Thema: Delphi MySQL ohne Komponenten

Einzelnen Beitrag anzeigen

aberglan

Registriert seit: 29. Mär 2009
Ort: Luxemburg
7 Beiträge
 
Delphi 6 Professional
 
#278

Re: MySQL ohne Komponenten

  Alt 10. Apr 2009, 12:12
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
  Mit Zitat antworten Zitat