mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-01 21:33:45 +02:00
181 lines
9.2 KiB
ObjectPascal
181 lines
9.2 KiB
ObjectPascal
{
|
|
Contains the MySQL 3 functions calls
|
|
|
|
Call InitialiseMysql3 before using any of the calls, and call ReleaseMysql3
|
|
when finished.
|
|
}
|
|
unit mysql3dyn;
|
|
|
|
{
|
|
Adapted from mysql4dyn by Bram Kuijvenhoven (Hexis BV, The Netherlands)
|
|
}
|
|
|
|
{$mode objfpc}{$H+}
|
|
{$MACRO on}
|
|
|
|
interface
|
|
|
|
uses dynlibs, classes, sysutils, mysql3_comdyn;
|
|
|
|
{$IFDEF Unix}
|
|
{$DEFINE extdecl:=cdecl}
|
|
const
|
|
Mysqllib = 'libmysqlclient.so';
|
|
{$ENDIF}
|
|
{$IFDEF Win32}
|
|
{$DEFINE extdecl:=stdcall}
|
|
const
|
|
Mysqllib = 'libmysql.dll';
|
|
{$ENDIF}
|
|
|
|
{$PACKRECORDS C}
|
|
|
|
{$i mysql3types.inc}
|
|
|
|
type tpcharfunction = function : pchar; extdecl;
|
|
|
|
var
|
|
mysql_num_rows : function(res : PMYSQL_RES) : my_ulonglong; extdecl;
|
|
mysql_num_fields : function(res : PMYSQL_RES) : Cardinal; extdecl;
|
|
mysql_eof : function(res : PMYSQL_RES) : my_bool; extdecl;
|
|
mysql_fetch_field_direct : function(res : PMYSQL_RES; fieldnr : Cardinal) : PMYSQL_FIELD; extdecl;
|
|
mysql_fetch_fields : function(res : PMYSQL_RES) : PMYSQL_FIELD; extdecl;
|
|
mysql_row_tell : function(res : PMYSQL_RES) : PMYSQL_ROWS; extdecl;
|
|
mysql_field_tell : function(res : PMYSQL_RES) : Cardinal; extdecl;
|
|
mysql_affected_rows : function(mysql : PMYSQL): my_ulonglong; extdecl;
|
|
mysql_insert_id : function(mysql : PMYSQL): my_ulonglong; extdecl;
|
|
mysql_errno : function(mysql : PMYSQL) : Cardinal; extdecl;
|
|
mysql_info : function(mysql : PMYSQL): Pchar; extdecl;
|
|
mysql_thread_id : function(mysql : PMYSQL) : ptruint; extdecl;
|
|
mysql_error : function(mysql : PMYSQL) : pchar; extdecl;
|
|
|
|
mysql_init : function(mysql: PMYSQL) : PMYSQL;extdecl;
|
|
mysql_connect : function(mysql : PMYSQL; host,user,passwd: pchar) : PMYSQL;extdecl;
|
|
mysql_real_connect : function(mysql : PMYSQL; const host,user,passwd : pchar;
|
|
port : cardinal;
|
|
unix_socket : pchar;
|
|
clientflag : cardinal) : PMYSQL;extdecl;
|
|
mysql_close : function(sock : PMYSQL) : longint ;extdecl;
|
|
mysql_select_db : function(MYSQL : PMYSQL; db : Pchar) : longint;extdecl;
|
|
mysql_query : function(mysql : PMYSQL; q : pchar) : longint;extdecl;
|
|
mysql_real_query : function(mysql : PMYSQL; q : Pchar; length : longint) : longint;extdecl;
|
|
mysql_create_db : function(mysql : PMYSQL; db : pchar) : longint;extdecl;
|
|
mysql_drop_db : function(mysql : PMYSQL; DB : Pchar) : longint;extdecl;
|
|
mysql_shutdown : function(mysql : PMYSQL) : longint;extdecl;
|
|
mysql_dump_debug_info : function(mysql : PMYSQL) : longint;extdecl;
|
|
mysql_refresh : function(mysql : PMYSQL; refresh_options : cardinal) : longint;extdecl;
|
|
mysql_kill : function(mysql : PMYSQL; pid : Cardinal) : longint;extdecl;
|
|
mysql_stat : function(mysql : PMYSQL) : Pchar;extdecl;
|
|
mysql_get_server_info : function(mysql : PMYSQL) : pchar;extdecl;
|
|
mysql_get_client_info : function : pchar;extdecl;
|
|
mysql_get_host_info : function(mysql : PMYSQL) : pchar;extdecl;
|
|
mysql_get_proto_info : function(mysql : PMYSQL) : Cardinal;extdecl;
|
|
mysql_list_dbs : function(mysql : PMYSQL;wild : Pchar) : PMYSQL_RES;extdecl;
|
|
mysql_list_tables : function(mysql : PMYSQL;Wild : Pchar) : PMYSQL_RES;extdecl;
|
|
mysql_list_fields : function(mysql : PMYSQL; table,wild : pchar) : PMYSQL_RES;extdecl;
|
|
mysql_list_processes : function(mysql : PMYSQL) : PMYSQL_RES;extdecl;
|
|
mysql_store_result : function(mysql : PMYSQL) : PMYSQL_RES;extdecl;
|
|
mysql_use_result : function(mysql : PMYSQL) : PMYSQL_RES;extdecl;
|
|
mysql_free_result : procedure(res : PMYSQL_RES);extdecl;
|
|
mysql_data_seek : procedure(mysql : PMYSQL_RES; offs : cardinal);extdecl;
|
|
mysql_row_seek : function(mysql : PMYSQL_RES; Offs: TMYSQL_ROW_OFFSET): TMYSQL_ROW_OFFSET;extdecl;
|
|
mysql_field_seek : function(musql : PMYSQL_RES;offs : TMYSQL_FIELD_OFFSET): TMYSQL_FIELD_OFFSET;extdecl;
|
|
mysql_fetch_row : function(mysql : PMYSQL_RES) : TMYSQL_ROW;extdecl;
|
|
mysql_fetch_lengths : function(mysql : PMYSQL_RES) : PCardinal;extdecl;
|
|
mysql_fetch_field : function(handle : PMYSQL_RES) : PMYSQL_FIELD;extdecl;
|
|
mysql_escape_string : function(escto,escfrom : pchar; length : Cardinal) : cardinal;extdecl;
|
|
mysql_debug : procedure(debug : pchar);extdecl;
|
|
|
|
Procedure InitialiseMysql3;
|
|
Procedure ReleaseMysql3;
|
|
|
|
var Mysql3LibraryHandle : TLibHandle;
|
|
|
|
implementation
|
|
|
|
var RefCount : integer;
|
|
|
|
Procedure InitialiseMysql3;
|
|
|
|
begin
|
|
inc(RefCount);
|
|
if RefCount = 1 then
|
|
begin
|
|
Mysql3LibraryHandle := loadlibrary(Mysqllib);
|
|
if Mysql3LibraryHandle = nilhandle then
|
|
begin
|
|
RefCount := 0;
|
|
Raise EInOutError.Create('Can not load MySQL client. Is it installed? ('+Mysqllib+')');
|
|
end;
|
|
pointer(mysql_get_client_info) := GetProcedureAddress(Mysql3LibraryHandle,'mysql_get_client_info');
|
|
|
|
// To avoid the strangest problems for ppl using other client-libs
|
|
if copy(strpas(mysql_get_client_info()),1,4) <> '3.23' then
|
|
Raise EInOutError.Create('This program can only work with the MySQL client version 3.23.x. Please use the right version of '+Mysqllib+'.');
|
|
|
|
pointer(mysql_num_rows) := GetProcedureAddress(Mysql3LibraryHandle,'mysql_num_rows');
|
|
pointer(mysql_num_fields) := GetProcedureAddress(Mysql3LibraryHandle,'mysql_num_fields');
|
|
pointer(mysql_eof) := GetProcedureAddress(Mysql3LibraryHandle,'mysql_eof');
|
|
pointer(mysql_fetch_field_direct) := GetProcedureAddress(Mysql3LibraryHandle,'mysql_fetch_field_direct');
|
|
pointer(mysql_fetch_fields) := GetProcedureAddress(Mysql3LibraryHandle,'mysql_fetch_fields');
|
|
pointer(mysql_row_tell) := GetProcedureAddress(Mysql3LibraryHandle,'mysql_row_tell');
|
|
pointer(mysql_field_tell) := GetProcedureAddress(Mysql3LibraryHandle,'mysql_field_tell');
|
|
pointer(mysql_affected_rows) := GetProcedureAddress(Mysql3LibraryHandle,'mysql_affected_rows');
|
|
pointer(mysql_insert_id) := GetProcedureAddress(Mysql3LibraryHandle,'mysql_insert_id');
|
|
pointer(mysql_errno) := GetProcedureAddress(Mysql3LibraryHandle,'mysql_errno');
|
|
pointer(mysql_info) := GetProcedureAddress(Mysql3LibraryHandle,'mysql_info');
|
|
pointer(mysql_thread_id) := GetProcedureAddress(Mysql3LibraryHandle,'mysql_thread_id');
|
|
pointer(mysql_error) := GetProcedureAddress(Mysql3LibraryHandle,'mysql_error');
|
|
|
|
pointer(mysql_init) := GetProcedureAddress(Mysql3LibraryHandle,'mysql_init');
|
|
pointer(mysql_connect) := GetProcedureAddress(Mysql3LibraryHandle,'mysql_connect');
|
|
pointer(mysql_real_connect) := GetProcedureAddress(Mysql3LibraryHandle,'mysql_real_connect');
|
|
pointer(mysql_close) := GetProcedureAddress(Mysql3LibraryHandle,'mysql_close');
|
|
pointer(mysql_select_db) := GetProcedureAddress(Mysql3LibraryHandle,'mysql_select_db');
|
|
pointer(mysql_query) := GetProcedureAddress(Mysql3LibraryHandle,'mysql_query');
|
|
pointer(mysql_real_query) := GetProcedureAddress(Mysql3LibraryHandle,'mysql_real_query');
|
|
pointer(mysql_create_db) := GetProcedureAddress(Mysql3LibraryHandle,'mysql_create_db');
|
|
pointer(mysql_drop_db) := GetProcedureAddress(Mysql3LibraryHandle,'mysql_drop_db');
|
|
pointer(mysql_shutdown) := GetProcedureAddress(Mysql3LibraryHandle,'mysql_shutdown');
|
|
pointer(mysql_dump_debug_info) := GetProcedureAddress(Mysql3LibraryHandle,'mysql_dump_debug_info');
|
|
pointer(mysql_refresh) := GetProcedureAddress(Mysql3LibraryHandle,'mysql_refresh');
|
|
pointer(mysql_kill) := GetProcedureAddress(Mysql3LibraryHandle,'mysql_kill');
|
|
pointer(mysql_stat) := GetProcedureAddress(Mysql3LibraryHandle,'mysql_stat');
|
|
pointer(mysql_get_server_info) := GetProcedureAddress(Mysql3LibraryHandle,'mysql_get_server_info');
|
|
pointer(mysql_get_host_info) := GetProcedureAddress(Mysql3LibraryHandle,'mysql_get_host_info');
|
|
pointer(mysql_get_proto_info) := GetProcedureAddress(Mysql3LibraryHandle,'mysql_get_proto_info');
|
|
pointer(mysql_list_dbs) := GetProcedureAddress(Mysql3LibraryHandle,'mysql_list_dbs');
|
|
pointer(mysql_list_tables) := GetProcedureAddress(Mysql3LibraryHandle,'mysql_list_tables');
|
|
pointer(mysql_list_fields) := GetProcedureAddress(Mysql3LibraryHandle,'mysql_list_fields');
|
|
pointer(mysql_list_processes) := GetProcedureAddress(Mysql3LibraryHandle,'mysql_list_processes');
|
|
pointer(mysql_store_result) := GetProcedureAddress(Mysql3LibraryHandle,'mysql_store_result');
|
|
pointer(mysql_use_result) := GetProcedureAddress(Mysql3LibraryHandle,'mysql_use_result');
|
|
pointer(mysql_free_result) := GetProcedureAddress(Mysql3LibraryHandle,'mysql_free_result');
|
|
pointer(mysql_data_seek) := GetProcedureAddress(Mysql3LibraryHandle,'mysql_data_seek');
|
|
pointer(mysql_row_seek) := GetProcedureAddress(Mysql3LibraryHandle,'mysql_row_seek');
|
|
pointer(mysql_field_seek) := GetProcedureAddress(Mysql3LibraryHandle,'mysql_field_seek');
|
|
pointer(mysql_fetch_row) := GetProcedureAddress(Mysql3LibraryHandle,'mysql_fetch_row');
|
|
pointer(mysql_fetch_lengths) := GetProcedureAddress(Mysql3LibraryHandle,'mysql_fetch_lengths');
|
|
pointer(mysql_fetch_field) := GetProcedureAddress(Mysql3LibraryHandle,'mysql_fetch_field');
|
|
pointer(mysql_escape_string) := GetProcedureAddress(Mysql3LibraryHandle,'mysql_escape_string');
|
|
pointer(mysql_debug) := GetProcedureAddress(Mysql3LibraryHandle,'mysql_debug');
|
|
|
|
InitialiseMysql3_com;
|
|
end;
|
|
end;
|
|
|
|
Procedure ReleaseMysql3;
|
|
|
|
begin
|
|
if RefCount > 0 then dec(RefCount);
|
|
if RefCount = 0 then
|
|
begin
|
|
if not UnloadLibrary(Mysql3LibraryHandle) then inc(RefCount);
|
|
ReleaseMysql3_com;
|
|
end;
|
|
end;
|
|
|
|
{$i mysql3impl.inc}
|
|
|
|
end.
|