Connecten zum ftp server erzeugt fehler

[5etH]

sry war mein fehler ich hatte das mit externalip und host vertauscht

das funktioniert auch jetzt über das Internet und nichtmer im LAN ... nur wenn ich jetzt die DB.txt Datei laden möchte, sagt er mir, das er die Datei nicht finden kann.

zum server:

OS win xp sp2 32bit
ftpserver : Filezilla

ich konnte speichern ohne probleme Datei wurde auch richtig angelegt.

Hier die Programmfragmente:

Speichern:

Delphi-Quellcode:

  if idftp1.Connected then
    begin
     IdFTP1.Disconnect;
     IdFTP1.Username := 'proguser';
     IdFTP1.Password := 'manuel13';
     IdFTP1.Host := '**************';
     IdFTP1.Connect;
     IdFTP1.Put('C:\DB\DB.txt',
     ExtractFileName('DB.txt'));

    end
  else
    begin
     IdFTP1.Username := 'proguser';
     IdFTP1.Password := 'manuel13';
     IdFTP1.Host := '**************';
     IdFTP1.Connect;
     IdFTP1.Put('C:\DB\DB.txt',
     ExtractFileName('DB.txt'));

    end;
    IdFTP1.Disconnect;

Laden:

Delphi-Quellcode:

   if idftp1.Connected then
    begin
     IdFTP1.Disconnect;
     IdFTP1.Username := 'proguser';
     IdFTP1.Password := 'manuel13';
     IdFTP1.Host := '**************';
     IdFTP1.Connect;
     IdFTP1.Get('DB.txt', 'C:\DB\DB.txt', true); // Fehler hier
  
     LoadStringGrid(form1.StringGrid1, 'c:\DB\DB.txt');

    end
  else
    begin
  IdFTP1.Username := 'proguser';
  IdFTP1.Password := 'manuel13';
  IdFTP1.Host := '**************';
  IdFTP1.Connect;
  IdFTP1.Get('DB.txt', 'C:\DB\DB.txt', true); // Bzw Hier
  LoadStringGrid(form1.StringGrid1, 'c:\DB\DB.txt');

    end;
    IdFTP1.Disconnect;