Entwickler-Ecke

Internet / Netzwerk - Ganz einfaches Runterladen einer Datei in HTTP.


Shadowdragon - Sa 22.03.03 21:47
Titel: Ganz einfaches Runterladen einer Datei in HTTP.
Hallo! Folgendes:

Ich habe eine Datei auf einer Website, meinetwegen
http://www.testseite.de/variablen.txt

Jetzt will ich *einfach* nur, dass Delphi bzw. der Indy-Kompo HTTP diese Datei runterlädt und auf der Festplatte speichert....

Das schaut dann so aus:
Zitat:

idHttp1.get ('http://www.testseite.de/variablen.txt')


Soweit schön. Aber wo geht die Datei jetzt hin?! *LOL*

Ich will die nämlich anzeigen lassen in einer Memo-Box (wie das geht, weiss ich).

Danke schonmal im Voraus!


BungeeBug - Sa 22.03.03 22:26

Hi ... also der Code (unten) ist NICHT getestet ... sollte aber gehen ...


Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
VAR
 MyStream :TMemoryStream;
begin
IdHTTP1.Host := 'http://www.web.de/index.html'; //Host
IdHTTP1.Port := 80; // Port
MyStream := TMemoryStream.Create;
IdHTTP1.Connect(100);
IdHTTP1.Capture(MyStream);  <- kann sein das die Funktion falsch angewendent is :(
Memo1.Lines.LoadFromStream(MyStream);
MyStream.Free;


ist aber evl. noch nicht perfelkt :)


MfG BungeeBug

P.S.: Der Code is in 10 Sek entstanden


Shadowdragon - Sa 22.03.03 22:29

Den Stream capturen......net schlecht, aber das muss doch auch einfacher gehen! Was macht denn das GET sonst?! Das muss doch irgendwo hingehen *rofl*


Shadowdragon - Sa 22.03.03 22:39


Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
procedure TForm1.Button1Click(Sender: TObject);
var MyStream :TMemoryStream;
begin
MyStream := TMemoryStream.Create;
IdHTTP1.Get('http://www.hertztod.de/test.txt');
IdHTTP1.Capture(MyStream);
Memo1.Lines.LoadFromStream(MyStream);
end;


So, habs n bissl geändert, jetzt verbindet's.....aber die Verbindung "closed" sich selbst "gracefully". Also verbindet`s, trennt aber aus irgendeinem Grund wieder.[/quote]


anselm - Sa 22.03.03 23:13

noch einfacher get das so


Quelltext
1:
Memo1.Lines.Add(IdHTTP1.Get('http://mssdc.a-w-sys.de/event.php'));                    


Shadowdragon - Sa 22.03.03 23:23

Das wollt ich, danke dir :)