Möglichkeit IP Verfügbarkeit zu Überprüfen

[deathwish]

Hey Leute,

ich hab mit Delphi angefangen und bin zurzeit dabei ein kleines Chat Programm zum Üben zu entwickeln....

Jez wollte ich wissen ob mir einer von euch vllt sagen kann wie man Checkt ob mein Server auf der IP:Port läuft.... ich poste ebn wofür ichs brauch...

Delphi-Quellcode:

procedure TFrmLogin.BtnLoginClick(Sender: TObject);
var
  i : String;
begin

i:= EdNick.Text;

if i<>'' then

  begin
  FrmChat.ClientSocket.Open; // Hier liegt das Problem.. unten mehr
  FrmLogin.Hide;
  FrmChat.ShowModal;
  end
else
  ShowMessage('Bitte Nicknamen Eingeben!');

end;

Also da er ja den Befehl open kriegt versucht er zuzugreifen... doch wen der Server nicht Online ist kommt eine unschöne Fehler Meldung die ich unterbinden will....

Hier was ich meine:

http://img14.imageshack.us/img14/5627/errordelphi.jpg

Hoffe ihr versteht was ich mein und könnt mir helfen...

Ach und mit Exception-Handling gez auch net weil der Fehler ja nicht direkt auftritt...

[Apollonius]

Es sollte da ein Ereignis namens OnError existieren.

[deathwish]

könntest du mir erklären wie dieses funktioniert?

[jaenicke]

Wenn du eine Ereignisbehandlungsroutine dafür erstellst (also im Objektinspektor unter Ereignisse), dann solltest du dort ggf. selbst den Fehler anzeigen oder darauf reagieren können ohne dass eine weitere Anzeige des Fehlers erfolgt.

[hoika]

Hallo,

ansonsten

Delphi-Quellcode:

var
  bLoggedIn: Boolean;
begin
  bLoggedIn:= False;
  try
    FrmChat.ClientSocket.Open;
    bLoggedIn:= True;
  except
  end;

  if not bLoggedIn then Exit;

Die Exception wird in der IDE noch angezeigt,
wenn das Programm standalone läuft nicht mehr


Heiko