Unverständliches Problem mit TClientSocket

[bLume]

nil hat worked !
danke dir vielmals )

mfg

bLume

[bLume]

neues prob ... ich nerv euch hier ...

Delphi-Quellcode:

function mysql_check(target : string) : boolean;
begin
    zSocket := TClientSocket.Create(nil);
    zSocket.Port:=3306;
    zSocket.Host:=target;
    zSocket.Open;
    if zSocket.Active=true then begin
    result:=true;
    zSocket.Close;
    end
    else
    result:=false;
end;

ich habe ein mysql server laufen und ich habe meine locale ip per parameter übergeben.
nun gibt er aber immer FALSE zurück.
obwohl er auf dem port ein mysql server finden müsste.

mfg

bLume

[Ratte]

Hi,

lass in mit sleep() ein bisschen warten, das aufbauen der Verbindung dauert auch etwas.

Rattre

[jfheins]

Ich würde das Warten mit einer Delay-Funktion realisieren ...
Delay

[bLume]

hm daran lag es nicht ...
funktioniert trotzdem nicht :/
Der Fehler muss woanders liegen ..

mfg

bLume

[jfheins]

Folgender Code geht (zumindest bei mir) wunderbar.
(Testified under Delphi 7)

Delphi-Quellcode:

procedure Delay(Milliseconds: Integer);
var
  Tick: DWord;
  Event: THandle; 
begin
  Event := CreateEvent(nil, False, False, nil); 
  try 
    Tick := GetTickCount + DWord(Milliseconds);
    while (Milliseconds > 0) and 
          (MsgWaitForMultipleObjects(1, Event, False, Milliseconds, QS_ALLINPUT) <> WAIT_TIMEOUT) do 
    begin 
      Application.ProcessMessages;
      Milliseconds := Tick - GetTickcount; 
    end; 
  finally
    CloseHandle(Event); 
  end;
end;

function mysql_check(target : string) : boolean;
var
 zSocket: TClientSocket;
begin
    zSocket := TClientSocket.Create(nil);
    zSocket.Port:=3306;
    zSocket.Host:=target;
    zSocket.Open;
    Delay (1000);
    result:=zSocket.Active;
    if zSocket.Active then zSocket.Close;
    zSocket.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 if mysql_check('127.0.0.1) then Beep;
end;

[bLume]

hi,

"Undefinierter Bezeichner "Application" sagt Delphi ...
das ganze ist auch keine TForm GUI anwendung sondern eine Konsolen Anwendung

mfg

bLume

[bLume]

habe das Apllication....
einfach kommentiert und compileirt ...
das Delay funktioniert... nur die mysql_check() wiedern icht :/
ich krieg das nich auf die reihe :/

mfg

bLume