MySQL ohne Komponenten

[aberglan]

Zitat von DeddyH:

Das Prinzip ist immer das Gleiche:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Con: PMYSQL;
    host, user, pass, db: PChar;
    Row: PMySQL_Row;
    Res: PMYSQL_RES;
    query: string;
    i: integer;
begin
  host := 'localhost';
  user := 'root';
  pass := '';
  db   := 'projet';

  Con := mysql_init(nil);
  if Assigned(Con) then
    try
      if Assigned(mysql_real_connect(Con, host, user, pass, db, 3306, nil, 0)) then
        begin
          query := 'SHOW TABLES FROM tblplayer';
          mysql_real_query(Con,PChar(query), Length(query));
          Res := mysql_store_result(Con);
          if Assigned(Res) then
            for i := 0 to mysql_num_rows(Res) - 1 do
              begin
                Row := mysql_fetch_row(Res);
                Showmessage(Row[0]);
              end;
        end
      else
        ShowMessage(mysql_error(Con));
    finally
      mysql_close(Con);
    end;
end;

Ungetestet, sollte aber im Groben funktionieren.

Hi,

Also vor langer Zeit habe ich bereits einmal mit dieser Unit gearbeitet und hatte keine Probleme damit.
Für ein anderes Projet möchte ich wieder auf eine MySQl-DB zugreifen doch ich bekomme bereits beim
Befehl mysql_init(nil) eine Access Violation Felhermeldung. Weiß einer woran dies liegen kann?

mfg,
Jan