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