Wenn du es nicht 100% genau brauchst, dann hilft dir evtl. der Schnipsel hier :
Delphi-Quellcode:
function TSubnet.Ping(
IP, Port:
string):
string;
var
CurrentPC: TIdTCPClient;
begin
Result := '
Online';
CurrentPC := TIdTCPClient.Create(
nil);
CurrentPC.Host :=
IP;
CurrentPC.Port := StrToIntDef(Port, 80);
try
CurrentPC.Connect;
except
on E:
Exception do
begin
if AnsiContainsStr(E.
Message, '
Socket Error # 10061')
then
begin
Result := '
Service not available [' + AnsiReplaceStr(E.
Message, #13#10, '
- ') + '
]';
end;
if AnsiContainsStr(E.
Message, '
Socket Error # 11001')
then
begin
Result := '
Offline [' + AnsiReplaceStr(E.
Message, #13#10, '
- ') + '
]';
end;
end;
end;
CurrentPC.Free;
Application.ProcessMessages;
end;
Der Standard
MySQL Port ist glaube ich 3306.
Edit : Gut der MYSql Port hilft dir vmtl. nich viel ^^