Folgendes: Jedes Mal, wenn ich etwas hochlade, ist das Programm für diese Zeit wie eingefroren. Gibt es eine Möglichkeit, dass der Upload in der Hinsicht irgendwie optimiert werden kann? Schließlich frieren
FTP-Programme beim Upload ja auch nicht ein. *g*
Deswegen würde ich gerne für den Gesamtupload eine Art 'Ladebalken' einbauen. Doch bisher hab ich nur was gefunden, wo pro Datei der Status angezeigt wird. Hab das jetzt nicht mit drin.
Delphi-Quellcode:
procedure TForm1.BtFileUploadClick(Sender: TObject);
var Ini: TIniFile;
dirname,password,s,
url,username:
String;
nr: Integer;
begin
if OpenDialog2.Execute
then
try
Ini:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'
conf.ini');
username:=Ini.ReadString('
FTP-Daten','
Username','
');
password:=Ini.ReadString('
FTP-Daten','
Password','
');
url:=Ini.ReadString('
FTP-Daten','
URL','
');
dirname:=Ini.ReadString('
FTP-Daten','
Ordner','
');
IdFTP1.Username := username;
IdFTP1.Password := password;
IdFTP1.Host :=
url;
IdFTP1.Connect;
IdFTP1.ChangeDir(dirname);
FOR nr := 0
TO OpenDialog2.Files.Count-1
DO
begin
s := OpenDialog2.Files[nr];
// Zwischenvariable; vereinfacht das Debugging
IdFTP1.Put(s, ExtractFileName(s));
end;
IdFTP1.Quit;
finally
Ini.Free;
end;
end;