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:

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:

zSocket := TClientSocket.Create; anschließend sollte auch der Rest funktionieren

Greetz
alcaeus

PS: herzlich willkommen in der 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

......

[alcaeus]

Da hab ich glatt den Owner vergessen..

zSocket := TClientSocket.Create(self); PS: In der OH gibts auch die Hilfe zu den Sockets, die kann dir manchmal weiterhelfen

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 von bLume:

"self" undefinierter bezeichner sagt delphi ://

mfg

bLume

PS: *VERZWEIFEL*

Probiers mal mitzSocket := TClientSocket.Create(Form1); // oder TForm1 oder nil