ESocketError

[ascotlx]

Moin kenu,

ich habe folgendes mal in einer Konsolen-Anwendung benutzt (durch die Abfrage welcher Socket-Fehler
kommt, kann man genauer darauf reagieren). Vielleicht hilft Dir das weiter ...

Delphi-Quellcode:

uses 
  ..., IdException, ...

  try //FTP: ist der Host erreichbar ??
    IdFTP1.Connect;
  except on e:EIdSocketError do
    begin
      writeLn('');
      SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE), FOREGROUND_RED + FOREGROUND_INTENSITY);
      Write(E.Message);
      Write('Bitte überprüfen Sie, ob der Server erreichbar ist (cronproc).');
      WriteLn(' ');
      SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE), 7);
      Write('Bitte drücken Sie die <ENTER>-Taste um das Fenster zu schliessen.');
      ReadLn;
      Exit;
    end;
  end;

gruss ascotlx