Code: Alles auswählen
Function LoadURLToStream(Const URL: String): TMemoryStream;
Begin
result := TMemoryStream.Create;
If Not HttpGetBinary(url, result) Then Begin
result.free;
result := Nil;
End
Else Begin
result.Position := 0;
End;
End;
Code: Alles auswählen
LoadURLToStream('http://static.tiptoi.com/db/applications/Englisch-Detektive.gme');
Code: Alles auswählen
LoadURLToStream('http://static.tiptoi.com/db/applications/Reise durch die Jahreszeiten.gme');