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:

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 :wall:

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:

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;

[Meflin]

Richtiger Übertragungsmodus (ASCII/Binary)?

[thomas2009]

Zitat:

Zitat von Meflin

Richtiger Übertragungsmodus (ASCII/Binary)?

Delphi-Quellcode:

...
self.IdFTP1.Connect;
IdFTP1.TransferType := ftBinary; // hat aber nichts gebracht

//IdFTP1.TransferType := ftASCII;

http://www.delphi-treff.de/tutorials...t/indy/page/4/

[Meflin]

ASCII is auch falsch. Wenn dann Binary :stupid:

[Klaus01]

.. und wenn Du es mal ohne Indy probieren willst -> putFile

Grüße
Klaus

[thomas2009]

Zitat:

Zitat von Meflin

ASCII is auch falsch. Wenn dann Binary :stupid:

ja beide ausprobiert (ASCII für text) und auch Binary

Zitat:

Zitat von Klaus01

.. und wenn Du es mal ohne Indy probieren willst -> putFile

Grüße
Klaus

Ja, mit dem Code oben funktioniert

Also woran kann es liegen ?

[blink182]

hatte bis eben noch ein ähnliches Problem, hab aber immer einen TimeOutError bekommen, kA warum, setz mal die Property "Passive" von idFtp auf True, vllt klappt es ja dann ;) also bei mir gings jetzt

[thomas2009]

Stimmt, das lag daran. Ich habe sie auf true gesetzt dann funktioniert

Nun habe ich ein weiteres Problem
Die Datei wird zwar erfolgreich hochgeladen aber am ende bekomme ich Fehlermeldung:
Eigenschaft progressbar1 außerhalb des gültiges Bereiches!

Ich habe daneben einen ProgressBar

Delphi-Quellcode:

procedure TForm1.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
progressbar1.position:=aworkcount
end;


procedure TForm1.IdFTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
  ProgressBar1.Max := AWorkCountMax;
  ProgressBar1.Position := 0;
end;


procedure TForm1.IdFTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
ProgressBar1.Position := 0;
Label1.Caption := 'Upload Complete.';
end;

[fkerber]

Hi!

Bitte mach für eine neue Frage auch einen neuen Thread auf.
Danke!


Ciao, Frederic