MySQL ohne Komponenten

[Schuster]

ich habe das so gelöst um zu testen ob eine Verbindung besteht:

Delphi-Quellcode:

try
   begin
      if _MySql=nil then         //Wenn Objekt nicht vorhanden raus
      begin                      // ist notwendig da sonst Exception kommt
          result:=false;
          exit;
      end;
      if Verbindung=false then      //Globale Var die in Connect und disconect gesetzt wird
      begin                         // ist notwendig da sonst Exception kommt
          result:= false;
          exit;
      end;
      if _MySql<>nil then
      begin
        if mysql_ping(_MySql)=0 then
          result:= true
        else
          result:= false;
      end
      else
        result:=false;
   end;
   except
    result:=false;
   end;