Datei auf server uploaden erfolgreich aber 0 kb

[thomas2009]

Hallo

ich lade eine Datei auf Server mit diesem Code hoch
Es erscheint kein Fehler. Wenn ich aber auf den Server anschaue, finde ich zwar die
datei da aber seine Größe 0 kb !

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  f,t: string;
begin
  self.IdFTP1.Host := 'ftp.myweb.de';
  self.IdFTP1.Username := 'user1';
self.IdFTP1.Password := 'passwort1';
  Label1.Caption := 'Connecting...';
  application.ProcessMessages;
  self.IdFTP1.Connect;
  f := 'C:\test.bmp';
  if IdFTP1.Connected then begin
      application.ProcessMessages;
      self.IdFTP1.ChangeDir('/');
     application.ProcessMessages;
     IdFTP1.Put(f, ExtractFileName(f));
     application.ProcessMessages;
  end; 
end;

Woran kann das Problem liegen ?

[Klaus01]

Hallo,

ich sehe im Moment nich wo Dein Code fehlerhaft sein sollte.
(Vielleicht für meinen Geschmack zu viele processMessages).

Mit einem "normale" FTP Client kannst Du da die Datei hochladen?
Ist die Originaldatei größer als 0 Byte?
Ist die OriginalDatei noch von einem anderen Programm geöffnet?

Grüße
Klaus

[fkerber]

Hi!

Wenn du ExtractFileName bei dem f machst, wird dann überhaupt noch die richtige Datei ausgewählt?
Du schmeißt damit doch die Info "C:\" weg, oder?


Ciao, Frederic

[Klaus01]

Zitat von fkerber:

Hi!

Wenn du ExtractFileName bei dem f machst, wird dann überhaupt noch die richtige Datei ausgewählt?
Du schmeißt damit doch die Info "C:\" weg, oder?

Ciao, Frederic

@Frederic,

ftp.put(Quelle,Ziel) auf dem Ziel wird C:\ nicht mehr gebraucht.

Grüße
Klaus

[fkerber]

Argh

Wer richtig rum liest, ist klar im Vorteil.
Sorry.


Ciao, Frederic

[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;

[Klaus01]

Kannst Du bitte mal die Fragen aus Beitrag #2 beantworten.

Grüße
Klaus

[thomas2009]

Zitat von Klaus01:

Ist die Originaldatei größer als 0 Byte?

16 kb auf Festplatte
0 kb auf Server nach dem Upload

[Klaus01]

.. und geht es mit einem anderen FTP Client?

Muss man Dir denn alles aus der Nase ziehen?

Grüße
Klaus

[thomas2009]

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;