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:
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