Hallo Zusammen,

ich habe mich ein wenig mit den Indy komponenten auseinander gesetzt und wollter erstmal intern im lan auf meinen ftp server zugreifen nun bekomme ich eine fehlermeldung.

Accountdaten stimmen und ip sowieso ^^.

vielleicht habe einfach etwas vergessen ich gebe euch einmal den schnipsel der zum connecten gedacht ist

markieren

Delphi-Quellcode:

  IdFTP1.Port := 21;
  IdFTP1.Username := 'Proguser';
  IdFTP1.ExternalIP := '192.168.0.101';
  IdFTP1.Password := 'Manuel13';
  IdFTP1.Host := '192.168.0.2';
  IdFTP1.Connect;

schonmal vielen dank

euer manuel

.. vielleicht wäre es noch hilfreich wenn Du uns die Fehlermedlung mitteilen würdest.

[edit] und bist Du dir sicher, dass Du die externalIP benötigst.
Ich denke Du bewegst Dich im LAN und nicht über einen DSL Router. [edit]

Grüße
Klaus

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:

zusammenfalten · markieren

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:

zusammenfalten · markieren

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;

hab den fehler selbst gefunden der erste parameter bei get stimmt nicht ...