Hallo Zusammen,
den genannten Fehler konnte ich beheben: Ich musste die Variable
query und Datenbank von string auf AnsiString ändern.
Delphi-Quellcode:
function ExecQuery(
const Datenbank,
query: Ansistring;
var Cols: TCols;
var Rows: TRows): Boolean;
Die Procedure disconnect ist wie folgt angepasst, aber da glaube ich, dass noch nicht alles rund läuft. Kommentare dazu sind willkommen.
Delphi-Quellcode:
procedure disconnect;
begin
mysql_close(LibHandle);
LibHandle := nil;
mySQL_Res := nil;
libmysql_free;
end;
Ykcim