1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TForm1.ftpverbindungherstellen;
begin

  ini:=TIniFile.Create(extractfilepath(application.ExeName)+'\Daten\externeDaten.ini');
  FTPUsername := ini.readstring('ftpdaten','Username','');
  FTPpassword := ini.readstring('ftpdaten','password','');
  FTPhost := ini.readstring('ftpdaten','host','');
  if ftpUsername = '' then exit;


  idftp1 := Tidftp.Create();
  idftp1.Quit;


  if idftp1.connected=false then begin
    idftp1.Username:=FTPUsername;
    idftp1.password:=FTPpassword;
    idftp1.Host:=FTPhost;
    idftp1.connect;
  end;

end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

Microsoft Windows XP [Version 5.1.2600]
(C) Copyright 1985-2001 Microsoft Corp.

C:\Dokumente und Einstellungen\Michael>net helpmsg 10065

Der Host war bei einem Socketvorgang nicht erreichbar.


C:\Dokumente und Einstellungen\Michael>