Dienste abfragen!

[Doktor Ruff]

Sorry wenn das jetzt ne absolute Noob-Frage seien sollte!

Es geht sich um folgendes.

Ich will abfragen ob ein bestimmter Dienst mit einem bestimmten Socket bereits gestartet ist. In meinem speziellen Fall ist es WinStone (ein Java Servlet Container).

Ich hab mir das so vorgestellt:

Delphi-Quellcode:

function isStarted: Boolean;
var
  socket: TClientSocket;
begin
  socket.Create;
  socket.Host := '127.0.0.1';
  socket.Port := 4051;
  socket.Open;
  Result := socket.Active;
end;

Nur kommt jedesmal eine Fehlermeldung "Asynchroner Socket Fehler xyz". Der Fehlercode variiert

Ich hoffe mal ich hab da irgendwie keinen Denkfehler drin oder so. Oder vielleicht gehts ja auch viel einfacher.