MySQL ohne Komponenten

[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   := 'apitest';

  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 apitest';
          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);
                Memo1.Lines.Add(Row[0]);
              end;
        end
      else
        ShowMessage(mysql_error(Con));
    finally
      mysql_close(Con);
    end;
end;

Ungetestet, sollte aber im Groben funktionieren.