Unverständliches Problem mit TClientSocket

[bLume]

also ich habe eine Funktion die einfach nur Checken soll ob ein MySQL Server vorhanden ist.

Delphi-Quellcode:

var
  zSocket: TClientSocket;

...

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

Beim Compilen bekomme ich nun keinen Error, aber wenn ich die Funktion aufrufe kommt dieser Fehler:

Exception EAccessViolation in Modul iBot.exe bei 00019668.
Zugriffsverletzung bei Adresse 00419668 in Modul 'iBot.exe'. Lesen von Adresse 0
000003C.

ich habe keine ahnung woran es liegt :(
bitte helft mir !!!

mfg

bLume

[Pseudemys Nelsoni]

hi

vielleicht solltest du das im event onconnect oder so machen.

ausserdem kannst du das:

Delphi-Quellcode:

if zSocket.Active=True then
begin 
  zSocket.Close; 
  result := true; 
end 
else 
  result := false;

in:

Delphi-Quellcode:

result := zSocket.Active;

umschreiben

[Pseudemys Nelsoni]

hab das close übersehen... naja kannste sicher auchnoch mit unterbringen...

[bLume]

hm was soll ich ins event onconnect machen ? versteh das nich :)
bin delphi anfänger :)

muss ich irgendwie das objekt noch initialisieren oder so ? :/
ausser dem hab ich den befehl zSocket.Create weggelassen da er bei mir ein Fehler verursacht.

mfg

bLume

PS: Danke für den anderen Hinweis ^^

[alcaeus]

Du musst das Socket zuerst erstellen:

Delphi-Quellcode:

zSocket := TClientSocket.Create;

anschließend sollte auch der Rest funktionieren ;)

Greetz
alcaeus

PS: herzlich willkommen in der DP :hi: :dp:

[bLume]

danke für das herzlich willkommen :))

Delphi-Quellcode:

function mysql_check(target : string) : boolean;
begin
    zSocket := TClientSocket.Create;
    zSocket.Host:=target;
    zSocket.Port:=3306;
    zSocket.Open;
    result := zSocket.Active;
    zSocket.Close;
end;

so ist nun der code ...
Delphi sagt mir: "Nicht genügend Parameter"

Denke das bezieht sich auf das "Create" ...
verstehe das nicht ...

mfg
bLume

[sakura]

@blume: Editiere doch noch mal obige Beiträge und füge die [delphi] und [/delphi] Tags um Deinen Code ein ;-)

...:cat:...

[alcaeus]

:oops: Da hab ich glatt den Owner vergessen..

Delphi-Quellcode:

zSocket := TClientSocket.Create(self);

PS: In der OH gibts auch die Hilfe zu den Sockets, die kann dir manchmal weiterhelfen :zwinker:

Greetz
alcaeus

[bLume]

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*

[jfheins]

Zitat:

Zitat von bLume

"self" undefinierter bezeichner sagt delphi ://

mfg

bLume

PS: *VERZWEIFEL*

Probiers mal mit

Delphi-Quellcode:

zSocket := TClientSocket.Create(Form1); // oder TForm1 oder nil

[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