Delphi-Quellcode:
function mysql_check(target : string) : boolean;
begin
zSocket := TClientSocket.Create(self);
zSocket.Host:=target;
zSocket.Port:=3306;
zSocket.Open;
result := zSocket.Active;
zSocket.Close;
end;
"self" undefinierter bezeichner sagt delphi ://
mfg
bLume
PS: *VERZWEIFEL*