String Download

[Madara Uchiha]

Okay, es funktioniert.

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?

[Bummi]

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
Const
 doc='Kapazitaetsplanung.zip';
var
  TextEmpfangen: TFileStream;
  size:Integer;
begin
  IdFTP1.Connect;
  TextEmpfangen := TFileStream.Create('C:\temp\test.xx', fmCreate);
  try
  size := idFTP1.Size(doc);
  if size>0 then ProgressBar1.Max := size;
  IdFTP1.get(doc, TextEmpfangen);
  TextEmpfangen.Seek(0, soFromBeginning);
  Memo1.Lines.LoadFromStream(TextEmpfangen);
  finally
    FreeAndNil(TextEmpfangen);
  end;

end;


procedure TForm2.idFTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Int64);
begin
  ProgressBar1.Position := AWorkcount;
end;

procedure TForm2.idFTP1WorkEnd(ASender: TObject; AWorkMode: TWorkMode);
begin
  ProgressBar1.Position := 0;
end;

[Madara Uchiha]

Kann ich days eigentlich alternativ such mit einem tstringstream machen?
Also der download des Strings auf dem FTP server?