MySQL: AV beim pingen

[Pseudemys Nelsoni]

Moin,

ich habe eine Funktion geschrieben die prüft - bzw prüfen sollte - ob eine Verbindung zum MySQL-Server besteht.

So sieht sie aus:

Delphi-Quellcode:

function TMySQL.Connected: Boolean;
begin
  Result := mysql_ping(FMySQL) = 0;
end;

Nur wird hier eine AV verursacht. Ich frage mich aber wodurch?

In der Original mysql-unit sieht "mysql_ping" so aus:

Delphi-Quellcode:

mysql_ping: function(_mysql: PMYSQL): longint; stdcall;

Jemand ne Ahnung wo der Fehler ist?

mfg




EDIT: Es liegt daran, das man zum pingen verbunden sein muss.... Wie soll man aber prüfen ob eine Verbindung besteht, wenn man dazu verbunden sein muss, wo man sowieso weiss das man connected ist?


Das steht by mysql:

http://sunsite.mff.cuni.cz/MIRRORS/f...ysql_ping.html

Jemand ne idee wie ich sonst prüfen kann ob eine verbindung besteht?