Datei auf server uploaden erfolgreich aber 0 kb

[thomas2009]

Wieso
IdFTP1.Put(f, ExtractFileName(f));
f:= C:\test.bmp
Dateiname auf Server soll ExtractFileName(f) = test.bmp
wo ist das Problem ?

ich habe mit dem Code ausprobiert, ist aber das selbe Problem und bleibt das Programm hängen !

Delphi-Quellcode:

// Code 2 :
procedure TForm1.Button2Click(Sender: TObject);
begin

if idftp1.Connected then
    begin
     IdFTP1.Disconnect;
     IdFTP1.Username := 'user1';
     IdFTP1.Password := 'password1';
     IdFTP1.Host := 'ftp.myweb.de';
     IdFTP1.Connect;
     IdFTP1.Put('C:\test2.bmp',
     ExtractFileName('test2.bmp'));

    end
  else
    begin
     IdFTP1.Username := 'user1';
     IdFTP1.Password := 'password1';
     IdFTP1.Host := 'ftp.myweb.de';
     IdFTP1.Connect;
     IdFTP1.Put('C:\test2.bmp',
     ExtractFileName('test2.bmp'));

    end;
    IdFTP1.Disconnect;
end;