natürlich geht es wenn ich eine anderes
FTP Programm verwende
Nun habe ich mit einem OpenDialog getestet. Das Problem ist immer das selbe
das Programm bleibt hängen und auf server wird nur den Dateinamen hochgeladen !
Delphi-Quellcode:
procedure TForm1.Button4Click(Sender: TObject);
begin
IdFTP1.Username := '
xxx';
IdFTP1.Password := xxx
IdFTP1.Host := '
ftp.xxx.de';
IdFTP1.Connect;
if UploadOpenDialog1.Execute
then
IdFTP1.Put(UploadOpenDialog1.FileName,
ExtractFileName(UploadOpenDialog1.FileName));
end;