Ganz einfaches Runterladen einer Datei in HTTP.

Shadowdragon · Beiträge: 143 Win 2000 Delphi 6 Pers., Delphi 7

Hallo! Folgendes:

Ich habe eine Datei auf einer Website, meinetwegen
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!

_________________
Ein Programm gleicht dem Prinzip von Jenga:
Viele Bestandteile, wird nach oben hin immer besser, nach unten hin immer instabiler und wenn man was falsch macht klappt der ganze Mist zusammen.

BungeeBug · Beiträge: 901

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

markieren

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 · Beiträge: 143 Win 2000 Delphi 6 Pers., Delphi 7

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

_________________
Ein Programm gleicht dem Prinzip von Jenga:
Viele Bestandteile, wird nach oben hin immer besser, nach unten hin immer instabiler und wenn man was falsch macht klappt der ganze Mist zusammen.

Shadowdragon · Beiträge: 143 Win 2000 Delphi 6 Pers., Delphi 7

markieren

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]

_________________
Ein Programm gleicht dem Prinzip von Jenga:
Viele Bestandteile, wird nach oben hin immer besser, nach unten hin immer instabiler und wenn man was falsch macht klappt der ganze Mist zusammen.

anselm · Hält's aus hier Beiträge: 9

noch einfacher get das so

markieren

Quelltext

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

Shadowdragon · Beiträge: 143 Win 2000 Delphi 6 Pers., Delphi 7

Das wollt ich, danke dir

_________________
Ein Programm gleicht dem Prinzip von Jenga:
Viele Bestandteile, wird nach oben hin immer besser, nach unten hin immer instabiler und wenn man was falsch macht klappt der ganze Mist zusammen.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme