paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-05-01 16:33:41 +02:00
Code Issues Packages Projects Releases Wiki Activity
aa5b73f3ec
fpc/packages/base/mysql/mysql4dyn.pp
joost 4f21f8ea34 - some cleanups 
- support for win32
- added a check for the mysql client version. If it aint 4.0.x raise an exception
2005-02-04 18:15:48 +00:00

280 lines
16 KiB
ObjectPascal
Raw Blame History

{
Contains the MySQL 4 functions calls
Call InitialiseMysql4 before using any of the calls, and call ReleaseMysql4
when finished.
}
unit mysql4dyn;
{$mode objfpc}{$H+}
{$MACRO on}
interface
uses dynlibs, classes, sysutils, mysql4_comdyn;
{
Automatically converted by H2Pas 0.99.15 from mysql.ph
The following command line parameters were used:
-p
-D
-l
mysqlclient
mysql.ph
}
{ Copyright (C) 2000 MySQL AB
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA }
{$IFDEF Unix}
{$DEFINE extdecl:=cdecl}
const
Mysqllib = 'libmysqlclient.so';
{$ENDIF}
{$IFDEF Win32}
{$DEFINE extdecl:=stdcall}
const
Mysqllib = 'libmysql.dll';
{$ENDIF}
{$PACKRECORDS C}
{$i mysql4types.inc}
type tpcharfunction = function : pchar; extdecl;
var
mysql_server_init : function (argc:longint; argv:PPchar; groups:PPchar):longint;extdecl;
mysql_server_end : procedure;extdecl;
mysql_thread_init : function :my_bool;extdecl;
mysql_thread_end : procedure;extdecl;
mysql_num_rows : function (res:PMYSQL_RES):my_ulonglong;extdecl;
mysql_num_fields : function (res:PMYSQL_RES):dword;extdecl;
mysql_eof : function (res:PMYSQL_RES):my_bool;extdecl;
mysql_fetch_field_direct : function (res:PMYSQL_RES; fieldnr:dword):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):dword;extdecl;
mysql_field_count : function (mysql:PMYSQL):dword;extdecl;
mysql_affected_rows : function (mysql:PMYSQL):my_ulonglong;extdecl;
mysql_insert_id : function (mysql:PMYSQL):my_ulonglong;extdecl;
mysql_errno : function (mysql:PMYSQL):dword;extdecl;
mysql_error : function (mysql:PMYSQL):Pchar;extdecl;
mysql_info : function (mysql:PMYSQL):Pchar;extdecl;
mysql_thread_id : function (mysql:PMYSQL):dword;extdecl;
mysql_character_set_name : function (mysql:PMYSQL):Pchar;extdecl;
mysql_init : function (mysql:PMYSQL):PMYSQL;extdecl;
mysql_ssl_set : function (mysql:PMYSQL; key:Pchar; cert:Pchar; ca:Pchar; capath:Pchar;cipher:Pchar):longint;extdecl;
mysql_ssl_clear : function (mysql:PMYSQL):longint;extdecl;
mysql_change_user : function (mysql:PMYSQL; user:Pchar; passwd:Pchar; db:Pchar):my_bool;extdecl;
mysql_real_connect : function (mysql:PMYSQL; host:Pchar; user:Pchar; passwd:Pchar; db:Pchar;port:dword; unix_socket:Pchar; clientflag:dword):PMYSQL;extdecl;
mysql_close : procedure (sock:PMYSQL);extdecl;
mysql_select_db : function (mysql:PMYSQL; db:Pchar):longint;extdecl;
mysql_query : function (mysql:PMYSQL; q:Pchar):longint;extdecl;
mysql_send_query : function (mysql:PMYSQL; q:Pchar; length:dword):longint;extdecl;
mysql_read_query_result : function (mysql:PMYSQL):longint;extdecl;
mysql_real_query : function (mysql:PMYSQL; q:Pchar; length:dword):longint;extdecl;
mysql_master_query : function (mysql:PMYSQL; q:Pchar; length:dword):longint;extdecl;
mysql_master_send_query : function (mysql:PMYSQL; q:Pchar; length:dword):longint;extdecl;
mysql_slave_query : function (mysql:PMYSQL; q:Pchar; length:dword):longint;extdecl;
mysql_slave_send_query : function (mysql:PMYSQL; q:Pchar; length:dword):longint;extdecl;
mysql_enable_rpl_parse : procedure (mysql:PMYSQL);extdecl;
mysql_disable_rpl_parse : procedure (mysql:PMYSQL);extdecl;
mysql_rpl_parse_enabled : function (mysql:PMYSQL):longint;extdecl;
mysql_enable_reads_from_master : procedure (mysql:PMYSQL);extdecl;
mysql_disable_reads_from_master : procedure (mysql:PMYSQL);extdecl;
mysql_reads_from_master_enabled : function (mysql:PMYSQL):longint;extdecl;
(* error
enum mysql_rpl_type mysql_rpl_query_type(const char* q, int len);
in declaration at line 291 *)
mysql_rpl_probe : function (mysql:PMYSQL):longint;extdecl;
mysql_set_master : function (mysql:PMYSQL; host:Pchar; port:dword; user:Pchar; passwd:Pchar):longint;extdecl;
mysql_add_slave : function (mysql:PMYSQL; host:Pchar; port:dword; user:Pchar; passwd: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:dword):longint;extdecl;
mysql_kill : function (mysql:PMYSQL; pid:dword):longint;extdecl;
mysql_ping : function (mysql:PMYSQL):longint;extdecl;
mysql_stat : function (mysql:PMYSQL):Pchar;extdecl;
mysql_get_server_info : function (mysql:PMYSQL):Pchar;extdecl;
mysql_get_client_info : tpcharfunction; //function:Pchar; extdecl;
mysql_get_host_info : function (mysql:PMYSQL):Pchar;extdecl;
mysql_get_proto_info : function (mysql:PMYSQL):dword;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:Pchar; 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_options : function (mysql:PMYSQL; option:mysql_option; arg:Pchar):longint;extdecl;
mysql_free_result : procedure (result:PMYSQL_RES);extdecl;
mysql_data_seek : procedure (result:PMYSQL_RES; offset:my_ulonglong);extdecl;
mysql_row_seek : function (result:PMYSQL_RES; _para2:MYSQL_ROW_OFFSET):MYSQL_ROW_OFFSET;extdecl;
mysql_field_seek : function (result:PMYSQL_RES; offset:MYSQL_FIELD_OFFSET):MYSQL_FIELD_OFFSET;extdecl;
mysql_fetch_row : function (result:PMYSQL_RES):MYSQL_ROW;extdecl;
mysql_fetch_lengths : function (result:PMYSQL_RES):Pdword;extdecl;
mysql_fetch_field : function (result:PMYSQL_RES):PMYSQL_FIELD;extdecl;
mysql_escape_string : function (_to:Pchar; from:Pchar; from_length:dword):dword;extdecl;
mysql_real_escape_string : function (mysql:PMYSQL; _to:Pchar; from:Pchar; length:dword):dword;extdecl;
mysql_debug : procedure (debug:Pchar);extdecl;
mysql_odbc_escape_string : function (mysql:PMYSQL; _to:Pchar; to_length:dword; from:Pchar; from_length:dword;param:pointer; extend_buffer: TExdendBuffer):Pchar;extdecl;
myodbc_remove_escape : procedure (mysql:PMYSQL; name:Pchar);extdecl;
mysql_thread_safe : function :dword;extdecl;
mysql_manager_init : function (con:PMYSQL_MANAGER):PMYSQL_MANAGER;extdecl;
mysql_manager_connect : function (con:PMYSQL_MANAGER; host:Pchar; user:Pchar; passwd:Pchar; port:dword):PMYSQL_MANAGER;extdecl;
mysql_manager_close : procedure (con:PMYSQL_MANAGER);extdecl;
mysql_manager_command : function (con:PMYSQL_MANAGER; cmd:Pchar; cmd_len:longint):longint;extdecl;
mysql_manager_fetch_line : function (con:PMYSQL_MANAGER; res_buf:Pchar; res_buf_size:longint):longint;extdecl;
simple_command : function (mysql:PMYSQL; command:enum_server_command; arg:Pchar; length:dword; skipp_check:my_bool):longint;extdecl;
net_safe_read : function (mysql:PMYSQL):dword;extdecl;
function IS_PRI_KEY(n : longint) : Boolean;
function IS_NOT_NULL(n : longint) : Boolean;
function IS_BLOB(n : longint) : boolean;
function MYSQL_COUNT_ERROR : longint;
function mysql_reload(mysql : pmysql) : longint;
Procedure InitialiseMysql4;
Procedure ReleaseMysql4;
var Mysql4LibraryHandle : TLibHandle;
implementation
var RefCount : integer;
Procedure InitialiseMysql4;
begin
inc(RefCount);
if RefCount = 1 then
begin
Mysql4LibraryHandle := loadlibrary(Mysqllib);
if Mysql4LibraryHandle = nilhandle then
begin
RefCount := 0;
Raise EInOutError.Create('Can not load MySQL client. Is it installed? ('+Mysqllib+')');
end;
pointer(mysql_get_client_info) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_get_client_info');
// To avoid the strangest problems for ppl using other client-libs
if copy(strpas(mysql_get_client_info()),1,3) <> '4.0' then
Raise EInOutError.Create('This program can only work with the MySQL client version 4.0.x. Please use the right version of '+Mysqllib+'.');
pointer(mysql_server_init) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_server_init');
pointer(mysql_server_end) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_server_end');
pointer(mysql_thread_init) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_thread_init');
pointer(mysql_thread_end) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_thread_end');
pointer(mysql_num_rows) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_num_rows');
pointer(mysql_num_fields) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_num_fields');
pointer(mysql_eof) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_eof');
pointer(mysql_fetch_field_direct) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_fetch_field_direct');
pointer(mysql_fetch_fields) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_fetch_fields');
pointer(mysql_row_tell) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_row_tell');
pointer(mysql_field_tell) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_field_tell');
pointer(mysql_field_count) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_field_count');
pointer(mysql_affected_rows) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_affected_rows');
pointer(mysql_insert_id) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_insert_id');
pointer(mysql_errno) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_errno');
pointer(mysql_error) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_error');
pointer(mysql_info) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_info');
pointer(mysql_thread_id) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_thread_id');
pointer(mysql_character_set_name) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_character_set_name');
pointer(mysql_init) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_init');
pointer(mysql_ssl_set) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_ssl_set');
pointer(mysql_ssl_clear) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_ssl_clear');
pointer(mysql_change_user) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_change_user');
pointer(mysql_real_connect) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_real_connect');
pointer(mysql_close) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_close');
pointer(mysql_select_db) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_select_db');
pointer(mysql_query) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_query');
pointer(mysql_send_query) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_send_query');
pointer(mysql_read_query_result) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_read_query_result');
pointer(mysql_real_query) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_real_query');
pointer(mysql_master_query) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_master_query');
pointer(mysql_master_send_query) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_master_send_query');
pointer(mysql_slave_query) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_slave_query');
pointer(mysql_slave_send_query) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_slave_send_query');
pointer(mysql_enable_rpl_parse) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_enable_rpl_parse');
pointer(mysql_disable_rpl_parse) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_disable_rpl_parse');
pointer(mysql_rpl_parse_enabled) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_rpl_parse_enabled');
pointer(mysql_enable_reads_from_master) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_enable_reads_from_master');
pointer(mysql_disable_reads_from_master) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_disable_reads_from_master');
pointer(mysql_reads_from_master_enabled) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_reads_from_master_enabled');
pointer(mysql_rpl_probe) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_rpl_probe');
pointer(mysql_set_master) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_set_master');
pointer(mysql_add_slave) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_add_slave');
pointer(mysql_shutdown) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_shutdown');
pointer(mysql_dump_debug_info) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_dump_debug_info');
pointer(mysql_refresh) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_refresh');
pointer(mysql_kill) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_kill');
pointer(mysql_ping) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_ping');
pointer(mysql_stat) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_stat');
pointer(mysql_get_server_info) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_get_server_info');
pointer(mysql_get_host_info) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_get_host_info');
pointer(mysql_get_proto_info) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_get_proto_info');
pointer(mysql_list_dbs) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_list_dbs');
pointer(mysql_list_tables) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_list_tables');
pointer(mysql_list_fields) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_list_fields');
pointer(mysql_list_processes) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_list_processes');
pointer(mysql_store_result) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_store_result');
pointer(mysql_use_result) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_use_result');
pointer(mysql_options) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_options');
pointer(mysql_free_result) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_free_result');
pointer(mysql_data_seek) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_data_seek');
pointer(mysql_row_seek) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_row_seek');
pointer(mysql_field_seek) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_field_seek');
pointer(mysql_fetch_row) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_fetch_row');
pointer(mysql_fetch_lengths) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_fetch_lengths');
pointer(mysql_fetch_field) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_fetch_field');
pointer(mysql_escape_string) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_escape_string');
pointer(mysql_real_escape_string) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_real_escape_string');
pointer(mysql_debug) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_debug');
pointer(mysql_odbc_escape_string) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_odbc_escape_string');
pointer(myodbc_remove_escape) := GetProcedureAddress(Mysql4LibraryHandle,'myodbc_remove_escape');
pointer(mysql_thread_safe) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_thread_safe');
pointer(mysql_manager_init) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_manager_init');
pointer(mysql_manager_connect) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_manager_connect');
pointer(mysql_manager_close) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_manager_close');
pointer(mysql_manager_command) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_manager_command');
pointer(mysql_manager_fetch_line) := GetProcedureAddress(Mysql4LibraryHandle,'mysql_manager_fetch_line');
pointer(simple_command) := GetProcedureAddress(Mysql4LibraryHandle,'simple_command');
pointer(net_safe_read) := GetProcedureAddress(Mysql4LibraryHandle,'net_safe_read');
InitialiseMysql4_com;
end;
end;
Procedure ReleaseMysql4;
begin
if RefCount > 0 then dec(RefCount);
if RefCount = 0 then
begin
if not UnloadLibrary(Mysql4LibraryHandle) then inc(RefCount);
ReleaseMysql4_com;
end;
end;
{$i mysql4impl.inc}
end.
Reference in New Issue View Git Blame Copy Permalink