INDY/FTP UPLOAD funktioniert nicht! )-;

[ATwardz]

Hallo zusammen und fröhliche Weihnachten!

Ich habe folgendes Problem!
Ich benutze die FTP komponete von Indy um eine Datei hoch zu laden doch dies funktioniert nicht!
Das Programm verbindet erfolgreich und ich kann auch dateien löschen aber nicht uploaden bzw. erstellt eine Datei , die ist aber leer!
Benutze folgenden CODE

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
begin  
  IdFTP1.Connect;
  Opendialog1.Execute;
  try
  IdFTP1.Put(Opendialog1.FileName,Extractfilename(Opendialog1.FileName));
  except
    Label1.Caption:='Fehler';
  end;
  IdFTP1.Quit;
end;

Obejktinspektor kennt das Passwort/Username/adresse
- auch wenn ich (c:\Test.txt natürlich vorher angelegt)
 IdFTP1.Put('c:\Test.txt','Test.txt'); benutze, das selbe resultat.Die Datei wird angelegt ist aber leer!

ielen Dank für Hilfe, will wirklich keinen vom feiern abhalten!

Danke im Vorraus Jan