MySQL ohne Komponenten

[himitsu]

aber hier #227, würd ich mal sagen :roll:

[samso]

Es gibt nun eine aktualisierte mysql.pas. Diese Version ist mit diversen libmysql.dll's lauffähig.

Neue MySql.pas

Ein Demoprogramm liegt bei.

Die Lizenz wurden in Absprache mit Matthias Fichtner auf die Mozilla Public License Version 1.1 geändert.

[Progman]

Zitat:

Zitat von samso

Es gibt nun eine aktualisierte mysql.pas. Diese Version ist mit diversen libmysql.dll's lauffähig.

Neue MySql.pas

Ein Demoprogramm liegt bei.

Die Lizenz wurden in Absprache mit Matthias Fichtner auf die Mozilla Public License Version 1.1 geändert.

Leider ist keine zip-Datei vorhanden ;)

[delphinia]

Klar unter dem angegeben link habe ich es runtergeladen! alles ok gerade nochmal getestet!

[Progman]

Zitat:

Not Found

The requested URL /delphi\mysql\mysql.zip was not found on this server.

Das kommt bei mir.

[delphinia]

Witzig komisch ... also hier mal der direkte link SORRY soll nun kein Deep-Link sein!

http://www.audio-data.de/delphi/mysql/mysql.zip - funktioniert das?!

[Progman]

Jetzt hab ichs. Hab die URL von Hand eingegeben und die \ durch / ersetzt, dann kam es auch ;)
(liegt vielleicht am FireFox?)

[aberglan]

Zitat:

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

[samso]

Vielleicht fehlt

Delphi-Quellcode:

libmysql_load(nil);

Alternativ zu dem Befehl "libmysql_load(nil)" kann auch in mysql.pas die Zeile

Delphi-Quellcode:

{$DEFINE DONT_LOAD_DLL}

in

Delphi-Quellcode:

{.$DEFINE DONT_LOAD_DLL}

geändert werden. Damit wird die libmysql.dll bereits beim Programmstart geladen.

[aberglan]

Zitat:

Zitat von samso

Vielleicht fehlt

Delphi-Quellcode:

libmysql_load(nil);

Vielen dank :) Jetzt funktionierts