String Download

[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;