Ich experimentiere gerade mit einen mimi
FTP-Client der nur eine Datei für mich runter laden soll. Runterladen klappt soweit super: Leider ist bei folgendem Code der AWorkCountMax immer 0.
Code:
procedure TftpForm.FTPClientWorkBegin(ASender: TObject; AWorkMode: TWorkMode;
AWorkCountMax: Integer);
begin
ProgressBar1.Max:=AWorkCountMax;
Code zum runterladen.
Code:
procedure TftpForm.Button1Click(Sender: TObject);
var
filestream:tfilestream;
Datei:TextFile;
b:byte;
begin
//Dateii zum schreiben anlegen
AssignFile(Datei,'.\update\test.zip');
Rewrite(datei);
CloseFile(Datei);
filestream:=tfilestream.Create('.\update\test.zip', fmOpenWrite, fmShareDenyWrite);
//Username,password,host setzen
FTPClient.Connect;
FTPClient.get('temp.zip',filestream,false);
FTPClient.Disconnect;
FTPClient.Free;
filestream.Free;
end;
Weitere Informationen:
Indy 10.1.5
CodeGear
Rad Studio