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;