Delphi String Download - Delphi-PRAXiS

Thema durchsuchen

Ansicht

Themen-Optionen

String Download

Ein Thema von Madara Uchiha · begonnen am 8. Apr 2013 · letzter Beitrag vom 19. Apr 2013

Vorheriger Beitrag

Nächster Beitrag

Madara Uchiha

Registriert seit: 7. Apr 2013
25 Beiträge

Delphi XE2 Architect

#10

AW: String Download

9. Apr 2013, 12:32

Okay, es funktioniert.

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

var

TextEmpfangen: TFileStream;

begin

idftp1.Connect;

TextEmpfangen := TFileStream.Create('dokument.txt', fmCreate);

IdFtp1.get('dokument.txt', TextEmpfangen);

TextEmpfangen.Seek(0, soFromBeginning);

Memo1.Lines.LoadFromStream(TextEmpfangen);

FreeAndNil(TextEmpfangen);

end;

Aber könnte ich das auch noch mit einer Progressbar verbinden? Um mir den Downloadfortschritt anzuzeigen?