Ftp download

[Counter909]

ich versuche gerade eine .txt fil von einem Ftp runterzuladen
doch will es noch nicht ganz klappen i.wie... in moment versucht er was zu laden
doch dann kommt ne meldung "no such direction" und wenn ich dann noch debugge
dann erstellte eine leere .´txt dtei mit dem name test.txt:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
vAR success: integer ;
    localfilename: widestring ;
    remotefilename: widestring;
begin
  ftp.Host     := 'xxxx';
  ftp.Port     := strtoint(edit2.text) ;
  ftp.Username := 'xxxx';
  ftp.Password := 'xxxx';
try 
ftp.Connect();
exept
 showmessage('keine verbindung');
if ftp.connected then begin
       showmessage('verbindung vorhanden');
                      end; 

  begin localfilename := 'test.txt' ;
        remotefilename:= 'neu.txt' ;
        ftp.get(remoteFilename,localFilename);

[Daniel G]

Jo, geil.... Wenn du uns jetzt auch noch erzählen würdest, welche FTP - Komponente du verwendest... :mrgreen:


Außerdem sollte dir bewusst sein, dass alles, was nach except kommt, auch nur im Falle einer Exception ausgeführt wird.... Entweder kürzt du also den QT richtig, so das wir damit noch was anfangen können, oder du lässt es gleich.... So wird er nicht kompillieren...

[Counter909]

meinst du das ???
ja gut, das mit except ist auch net so wichtig..also compilieren tut er schon..
wiegesagt ne verbindung stellt er vermutlich auf aber erstellt eben nur eine .txt datei
auf dem localen rechner


-----------idftp------------

[Daniel G]

Zitat:

Zitat von Counter909

-----------idftp------------

Jo.

[Counter909]

hat keiner eine idee ? :-(

[TonyR]

Kommt in deinem Programm nun eigentlich die Meldung "Verbindung vorhanden", oder nicht???

Edit: Was soll das überhaupt heißen?

Zitat:

Zitat von Counter909

-----------idftp------------

[Counter909]

ja die verbindung ist wohl vorhanden...ich brauch jetzt nur noch
hilfe bei deim datei-runterladen


idftp .. das ist der FTP-Komponent den man dann auch bei Uses einfügt und so weiter


mfg
counter

[Counter909]

kann damit immernoch keiner was mit anfangen ? :-(

[mr47]

Mach doch mal das Try-Except weg und guck was für ne Fehlermeldung zurückgegeben wird.

[Andidreas]

hier haste mal en bsp.

Delphi-Quellcode:

FTP.Host := edt_Host.Text;
FTP.Username := edt_User.Text;
FTP.Password := edt_PW.Text;

    Try
      FTP.Connect;
    Except
      MessageDlg('No Connection!', mtError, [mbOK], 0);
    End;

und kuck dir nochmal denn get befehl an, der hat imho ein bischen wenig parameter!