DOMConnection hängt sich auf

**horstmeyer**

Hallo zusammen,

ich suche nach einer Möglichkeit wie man eine DCOMConnection-Verbindung testen kann oder wie man bei DCOMConnection einen timeout setzen kann. Folgende Funktion funktioniert leider nicht:

zusammenfalten · markieren

Delphi-Quellcode:

			function Verbindungstest(bMeld:boolean):boolean;

begin

  result:=true;

  try

    Form1.DCOMConnection1.ComputerName:=Form1.edComputername.Text;

    Form1.DCOMConnection1.Connected:=true;

    Form1.DCOMConnection1.Connected:=false;

    if bMeld then

      Showmessage('Verbindung erfolgreich!');

  except

    result:=false;

    if bMeld then

      Showmessage('Verbindung fehlgeschlagen!');

  end;

end;

Wenn der DCOM-Server sich aufgehangen hat, dann bleibt der DCOM-Client an der Stelle "Form1.DCOMConnection1.Connected:=true;" hängen. Wie kann ich das verhindern. Danke für einen hilfreichen Tipp.

Viele Grüße
Horst

DOMConnection hängt sich auf

DOMConnection hängt sich auf

Forumregeln