paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 10:00:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Working versions

Browse Source
This commit is contained in:
michael 2004-09-30 19:43:45 +00:00
parent 42e818fd52
commit 756ddadb81
2 changed files with 428 additions and 713 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

844
packages/base/mysql/ver40/mysql.pp
View File

@ -43,597 +43,367 @@ uses mysql_com;
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA }
type
type
Pmy_bool = ^my_bool;
my_bool = char;
Pmy_bool = ^my_bool;
my_bool = char;
Pgptr = ^gptr;
gptr = char;
Pgptr = ^gptr;
gptr = char;
Pmy_socket = ^my_socket;
my_socket = longint;
Pmy_socket = ^my_socket;
my_socket = longint;
var
mysql_port : dword;cvar;external;
mysql_unix_port : Pchar;cvar;external;
type
Pst_mysql_field = ^st_mysql_field;
st_mysql_field = record
name : Pchar;
table : Pchar;
org_table : Pchar;
db : Pchar;
def : Pchar;
length : dword;
max_length : dword;
flags : dword;
decimals : dword;
_type : enum_field_types;
end;
MYSQL_FIELD = st_mysql_field;
PMYSQL_FIELD = ^MYSQL_FIELD;
{ was #define dname(params) para_def_expr }
{ argument types are unknown }
function IS_PRI_KEY(n : longint) : Boolean;
{ was #define dname(params) para_def_expr }
{ argument types are unknown }
function IS_NOT_NULL(n : longint) : Boolean;
{ was #define dname(params) para_def_expr }
{ argument types are unknown }
function IS_BLOB(n : longint) : boolean;
(* error
#define IS_NUM(t) ((t) <= FIELD_TYPE_INT24 || (t) == FIELD_TYPE_YEAR)
in define line 32 *)
{ was #define dname(params) para_def_expr }
{ argument types are unknown }
{ return type might be wrong }
function IS_NUM_FIELD(f : Pst_mysql_field) : boolean;
(* error
#define INTERNAL_NUM_FIELD(f) (((f)->type <= FIELD_TYPE_INT24 && ((f)->type != FIELD_TYPE_TIMESTAMP || (f)->length == 14 || (f)->length == 8)) || (f)->type == FIELD_TYPE_YEAR)
in define line 34 *)
{ Name of column }
{ Table of column if column was a field }
{ Org table name if table was an alias }
{ Database for table }
{ Default value (set by mysql_list_fields) }
{ Width of column }
{ Max width of selected set }
{ Div flags }
{ Number of decimals in field }
{ Type of field. Se mysql_com.h for types }
var
mysql_port : dword;cvar;external;
mysql_unix_port : Pchar;cvar;external;
type
PMYSQL_ROW = ^MYSQL_ROW;
MYSQL_ROW = ppchar;
{ return data as array of strings }
Pst_mysql_field = ^st_mysql_field;
st_mysql_field = record
name : Pchar;
table : Pchar;
org_table : Pchar;
db : Pchar;
def : Pchar;
length : dword;
max_length : dword;
flags : dword;
decimals : dword;
ftype : enum_field_types;
end;
MYSQL_FIELD = st_mysql_field;
TMYSQL_FIELD = MYSQL_FIELD;
PMYSQL_FIELD = ^MYSQL_FIELD;
PMYSQL_FIELD_OFFSET = ^MYSQL_FIELD_OFFSET;
MYSQL_FIELD_OFFSET = dword;
{ offset to current field }
function IS_PRI_KEY(n : longint) : Boolean;
function IS_NOT_NULL(n : longint) : Boolean;
function IS_BLOB(n : longint) : boolean;
Pmy_ulonglong = ^my_ulonglong;
my_ulonglong = qword;
{ was #define dname def_expr }
function MYSQL_COUNT_ERROR : longint;
{ return type might be wrong }
type
MYSQL_ROW = ppchar;
PMYSQL_ROW = ^MYSQL_ROW;
TMYSQL_ROW = MYSQL_ROW;
{ list of rows }
PMYSQL_FIELD_OFFSET = ^MYSQL_FIELD_OFFSET;
MYSQL_FIELD_OFFSET = dword;
type
Pmy_ulonglong = ^my_ulonglong;
my_ulonglong = qword;
Pst_mysql_rows = ^st_mysql_rows;
st_mysql_rows = record
next : Pst_mysql_rows;
data : MYSQL_ROW;
end;
MYSQL_ROWS = st_mysql_rows;
PMYSQL_ROWS = ^MYSQL_ROWS;
function MYSQL_COUNT_ERROR : longint;
PMYSQL_ROW_OFFSET = ^MYSQL_ROW_OFFSET;
MYSQL_ROW_OFFSET = MYSQL_ROWS;
{ offset to current row }
{ struct for once_alloc }
{ Next block in use }
{ memory left in block }
{ size of block }
type
Pst_mysql_rows = ^st_mysql_rows;
st_mysql_rows = record
next : Pst_mysql_rows;
data : MYSQL_ROW;
end;
MYSQL_ROWS = st_mysql_rows;
TMYSQL_ROWS = MYSQL_ROWS;
PMYSQL_ROWS = ^MYSQL_ROWS;
Pst_used_mem = ^st_used_mem;
st_used_mem = record
next : Pst_used_mem;
left : dword;
size : dword;
end;
USED_MEM = st_used_mem;
PUSED_MEM = ^USED_MEM;
MYSQL_ROW_OFFSET = MYSQL_ROWS;
PMYSQL_ROW_OFFSET = ^MYSQL_ROW_OFFSET;
Pst_mem_root = ^st_mem_root;
st_mem_root = record
free : PUSED_MEM;
used : PUSED_MEM;
pre_alloc : PUSED_MEM;
min_malloc : dword;
block_size : dword;
error_handler : procedure ;cdecl;
end;
MEM_ROOT = st_mem_root;
PMEM_ROOT = ^MEM_ROOT;
Pst_used_mem = ^st_used_mem;
st_used_mem = record
next : Pst_used_mem;
left : dword;
size : dword;
end;
Pst_mysql_data = ^st_mysql_data;
st_mysql_data = record
rows : my_ulonglong;
fields : dword;
data : PMYSQL_ROWS;
alloc : MEM_ROOT;
end;
MYSQL_DATA = st_mysql_data;
PMYSQL_DATA = ^MYSQL_DATA;
{ PEM key file }
{ PEM cert file }
{ PEM CA file }
{ PEM directory of CA-s? }
{ cipher to use }
{ if to use SSL or not }
{
on connect, find out the replication role of the server, and
establish connections to all the peers
}
{
each call to mysql_real_query() will parse it to tell if it is a read
or a write, and direct it to the slave or the master
}
{
if set, never read from a master,only from slave, when doing
a read that is replication-aware
}
Pst_mysql_options = ^st_mysql_options;
st_mysql_options = record
connect_timeout : dword;
client_flag : dword;
port : dword;
host : Pchar;
init_command : Pchar;
user : Pchar;
password : Pchar;
unix_socket : Pchar;
db : Pchar;
my_cnf_file : Pchar;
my_cnf_group : Pchar;
charset_dir : Pchar;
charset_name : Pchar;
ssl_key : Pchar;
ssl_cert : Pchar;
ssl_ca : Pchar;
ssl_capath : Pchar;
ssl_cipher : Pchar;
use_ssl : my_bool;
compress : my_bool;
named_pipe : my_bool;
rpl_probe : my_bool;
rpl_parse : my_bool;
no_master_reads : my_bool;
end;
USED_MEM = st_used_mem;
TUSED_MEM = USED_MEM;
PUSED_MEM = ^USED_MEM;
mysql_option = (MYSQL_OPT_CONNECT_TIMEOUT,MYSQL_OPT_COMPRESS,
MYSQL_OPT_NAMED_PIPE,MYSQL_INIT_COMMAND,
MYSQL_READ_DEFAULT_FILE,MYSQL_READ_DEFAULT_GROUP,
MYSQL_SET_CHARSET_DIR,MYSQL_SET_CHARSET_NAME
);
Pst_mem_root = ^st_mem_root;
st_mem_root = record
free : PUSED_MEM;
used : PUSED_MEM;
pre_alloc : PUSED_MEM;
min_malloc : dword;
block_size : dword;
block_num : dword;
first_block_usage : dword;
error_handler : procedure ;cdecl;
end;
MEM_ROOT = st_mem_root;
TMEM_ROOT = MEM_ROOT;
PMEM_ROOT = ^MEM_ROOT;
mysql_status = (MYSQL_STATUS_READY,MYSQL_STATUS_GET_RESULT,
MYSQL_STATUS_USE_RESULT);
Pst_mysql_data = ^st_mysql_data;
st_mysql_data = record
rows : my_ulonglong;
fields : dword;
data : PMYSQL_ROWS;
alloc : MEM_ROOT;
end;
MYSQL_DATA = st_mysql_data;
TMYSQL_DATA = MYSQL_DATA;
PMYSQL_DATA = ^MYSQL_DATA;
{
There are three types of queries - the ones that have to go to
the master, the ones that go to a slave, and the adminstrative
type which must happen on the pivot connectioin
}
mysql_rpl_type = (MYSQL_RPL_MASTER,MYSQL_RPL_SLAVE,MYSQL_RPL_ADMIN
);
Pst_mysql_options = ^st_mysql_options;
st_mysql_options = record
connect_timeout : dword;
client_flag : dword;
port : dword;
host : Pchar;
init_command : Pchar;
user : Pchar;
password : Pchar;
unix_socket : Pchar;
db : Pchar;
my_cnf_file : Pchar;
my_cnf_group : Pchar;
charset_dir : Pchar;
charset_name : Pchar;
ssl_key : Pchar;
ssl_cert : Pchar;
ssl_ca : Pchar;
ssl_capath : Pchar;
ssl_cipher : Pchar;
max_allowed_packet : Cardinal;
use_ssl : my_bool;
compress : my_bool;
named_pipe : my_bool;
rpl_probe : my_bool;
rpl_parse : my_bool;
no_master_reads : my_bool;
end;
TMYSQL_OPTIONS = st_mysql_options;
PTMYSQL_OPTIONS = ^TMYSQL_OPTIONS;
mysql_option = (MYSQL_OPT_CONNECT_TIMEOUT,MYSQL_OPT_COMPRESS,
MYSQL_OPT_NAMED_PIPE,MYSQL_INIT_COMMAND,
MYSQL_READ_DEFAULT_FILE,MYSQL_READ_DEFAULT_GROUP,
MYSQL_SET_CHARSET_DIR,MYSQL_SET_CHARSET_NAME
);
{ Communication parameters }
{ ConnectorFd for SSL }
{ id if insert on table with NEXTNR }
{ Used by mysqlshow }
{ Id for connection in server }
{ If free in mysql_close }
{ set to 1 if automatic reconnect }
{
Set if this is the original connection, not a master or a slave we have
added though mysql_rpl_probe() or mysql_set_master()/ mysql_add_slave()
}
{ pointers to the master, and the next slave
connections, points to itself if lone connection }
{ needed for round-robin slave pick }
{ needed for send/read/store/use result to work correctly with replication }
mysql_status = (MYSQL_STATUS_READY,MYSQL_STATUS_GET_RESULT,
MYSQL_STATUS_USE_RESULT);
Pst_mysql = ^st_mysql;
st_mysql = record
net : NET;
connector_fd : gptr;
host : Pchar;
user : Pchar;
passwd : Pchar;
unix_socket : Pchar;
server_version : Pchar;
host_info : Pchar;
info : Pchar;
db : Pchar;
charset : Pointer; //!! Was Pcharset_info_st;
fields : PMYSQL_FIELD;
field_alloc : MEM_ROOT;
affected_rows : my_ulonglong;
insert_id : my_ulonglong;
extra_info : my_ulonglong;
thread_id : dword;
packet_length : dword;
port : dword;
client_flag : dword;
server_capabilities : dword;
protocol_version : dword;
field_count : dword;
server_status : dword;
server_language : dword;
options : st_mysql_options;
status : mysql_status;
free_me : my_bool;
reconnect : my_bool;
scramble_buff : array[0..8] of char;
rpl_pivot : my_bool;
master : Pst_mysql;
next_slave : Pst_mysql;
last_used_slave : Pst_mysql;
last_used_con : Pst_mysql;
end;
TMYSQL = st_mysql;
PMYSQL = ^TMYSQL;
{ column lengths of current row }
{ for unbuffered reads }
{ If unbuffered read }
{ buffer to current row }
{ Used by mysql_fetch_row }
mysql_rpl_type = (MYSQL_RPL_MASTER,MYSQL_RPL_SLAVE,MYSQL_RPL_ADMIN );
Pst_mysql_res = ^st_mysql_res;
st_mysql_res = record
row_count : my_ulonglong;
fields : PMYSQL_FIELD;
data : PMYSQL_DATA;
data_cursor : PMYSQL_ROWS;
lengths : Pdword;
handle : PMYSQL;
field_alloc : MEM_ROOT;
field_count : dword;
current_field : dword;
row : MYSQL_ROW;
current_row : MYSQL_ROW;
eof : my_bool;
end;
MYSQL_RES = st_mysql_res;
PMYSQL_RES = ^MYSQL_RES;
Pst_mysql = ^st_mysql;
st_mysql = record
net : NET;
connector_fd : gptr;
host : Pchar;
user : Pchar;
passwd : Pchar;
unix_socket : Pchar;
server_version : Pchar;
host_info : Pchar;
info : Pchar;
db : Pchar;
charset : Pointer; //!! Was Pcharset_info_st;
fields : PMYSQL_FIELD;
field_alloc : MEM_ROOT;
affected_rows : my_ulonglong;
insert_id : my_ulonglong;
extra_info : my_ulonglong;
thread_id : dword;
packet_length : dword;
port : dword;
client_flag : dword;
server_capabilities : dword;
protocol_version : dword;
field_count : dword;
server_status : dword;
server_language : dword;
options : st_mysql_options;
status : mysql_status;
free_me : my_bool;
reconnect : my_bool;
scramble_buff : array[0..8] of char;
rpl_pivot : my_bool;
master : Pst_mysql;
next_slave : Pst_mysql;
last_used_slave : Pst_mysql;
last_used_con : Pst_mysql;
end;
TMYSQL = st_mysql;
PMYSQL = ^TMYSQL;
const
MAX_MYSQL_MANAGER_ERR = 256;
MAX_MYSQL_MANAGER_MSG = 256;
MANAGER_OK = 200;
MANAGER_INFO = 250;
MANAGER_ACCESS = 401;
MANAGER_CLIENT_ERR = 450;
MANAGER_INTERNAL_ERR = 500;
Pst_mysql_res = ^st_mysql_res;
st_mysql_res = record
row_count : my_ulonglong;
fields : PMYSQL_FIELD;
data : PMYSQL_DATA;
data_cursor : PMYSQL_ROWS;
lengths : Pdword;
handle : PMYSQL;
field_alloc : MEM_ROOT;
field_count : dword;
current_field : dword;
row : MYSQL_ROW;
current_row : MYSQL_ROW;
eof : my_bool;
end;
MYSQL_RES = st_mysql_res;
TMYSQL_RES = MYSQL_RES;
PMYSQL_RES = ^MYSQL_RES;
type
const
MAX_MYSQL_MANAGER_ERR = 256;
MAX_MYSQL_MANAGER_MSG = 256;
MANAGER_OK = 200;
MANAGER_INFO = 250;
MANAGER_ACCESS = 401;
MANAGER_CLIENT_ERR = 450;
MANAGER_INTERNAL_ERR = 500;
Pst_mysql_manager = ^st_mysql_manager;
st_mysql_manager = record
net : NET;
host : Pchar;
user : Pchar;
passwd : Pchar;
port : dword;
free_me : my_bool;
eof : my_bool;
cmd_status : longint;
last_errno : longint;
net_buf : Pchar;
net_buf_pos : Pchar;
net_data_end : Pchar;
net_buf_size : longint;
last_error : array[0..(MAX_MYSQL_MANAGER_ERR)-1] of char;
end;
MYSQL_MANAGER = st_mysql_manager;
PMYSQL_MANAGER = ^MYSQL_MANAGER;
{ Set up and bring down the server; to ensure that applications will
work when linked against either the standard client library or the
embedded server library, these functions should be called. }
type
function mysql_server_init(argc:longint; argv:PPchar; groups:PPchar):longint;cdecl;external External_library name 'mysql_server_init';
Pst_mysql_manager = ^st_mysql_manager;
st_mysql_manager = record
net : NET;
host : Pchar;
user : Pchar;
passwd : Pchar;
port : dword;
free_me : my_bool;
eof : my_bool;
cmd_status : longint;
last_errno : longint;
net_buf : Pchar;
net_buf_pos : Pchar;
net_data_end : Pchar;
net_buf_size : longint;
last_error : array[0..(MAX_MYSQL_MANAGER_ERR)-1] of char;
end;
MYSQL_MANAGER = st_mysql_manager;
PMYSQL_MANAGER = ^MYSQL_MANAGER;
procedure mysql_server_end;cdecl;external External_library name 'mysql_server_end';
{ Set up and bring down a thread; these function should be called
for each thread in an application which opens at least one MySQL
connection. All uses of the connection(s) should be between these
function calls. }
function mysql_thread_init:my_bool;cdecl;external External_library name 'mysql_thread_init';
procedure mysql_thread_end;cdecl;external External_library name 'mysql_thread_end';
{ Functions to get information from the MYSQL and MYSQL_RES structures }
{ Should definitely be used if one uses shared libraries }
function mysql_num_rows(res:PMYSQL_RES):my_ulonglong;cdecl;external External_library name 'mysql_num_rows';
function mysql_num_fields(res:PMYSQL_RES):dword;cdecl;external External_library name 'mysql_num_fields';
function mysql_eof(res:PMYSQL_RES):my_bool;cdecl;external External_library name 'mysql_eof';
function mysql_fetch_field_direct(res:PMYSQL_RES; fieldnr:dword):PMYSQL_FIELD;cdecl;external External_library name 'mysql_fetch_field_direct';
function mysql_fetch_fields(res:PMYSQL_RES):PMYSQL_FIELD;cdecl;external External_library name 'mysql_fetch_fields';
function mysql_row_tell(res:PMYSQL_RES):PMYSQL_ROWS;cdecl;external External_library name 'mysql_row_tell';
function mysql_field_tell(res:PMYSQL_RES):dword;cdecl;external External_library name 'mysql_field_tell';
function mysql_field_count(mysql:PMYSQL):dword;cdecl;external External_library name 'mysql_field_count';
function mysql_affected_rows(mysql:PMYSQL):my_ulonglong;cdecl;external External_library name 'mysql_affected_rows';
function mysql_insert_id(mysql:PMYSQL):my_ulonglong;cdecl;external External_library name 'mysql_insert_id';
function mysql_errno(mysql:PMYSQL):dword;cdecl;external External_library name 'mysql_errno';
function mysql_error(mysql:PMYSQL):Pchar;cdecl;external External_library name 'mysql_error';
function mysql_info(mysql:PMYSQL):Pchar;cdecl;external External_library name 'mysql_info';
function mysql_thread_id(mysql:PMYSQL):dword;cdecl;external External_library name 'mysql_thread_id';
(* Const before type ignored *)
function mysql_character_set_name(mysql:PMYSQL):Pchar;cdecl;external External_library name 'mysql_character_set_name';
function mysql_init(mysql:PMYSQL):PMYSQL;cdecl;external External_library name 'mysql_init';
(* Const before type ignored *)
(* Const before type ignored *)
(* Const before type ignored *)
(* Const before type ignored *)
(* Const before type ignored *)
function mysql_ssl_set(mysql:PMYSQL; key:Pchar; cert:Pchar; ca:Pchar; capath:Pchar;
cipher:Pchar):longint;cdecl;external External_library name 'mysql_ssl_set';
function mysql_ssl_clear(mysql:PMYSQL):longint;cdecl;external External_library name 'mysql_ssl_clear';
(* Const before type ignored *)
(* Const before type ignored *)
(* Const before type ignored *)
function mysql_change_user(mysql:PMYSQL; user:Pchar; passwd:Pchar; db:Pchar):my_bool;cdecl;external External_library name 'mysql_change_user';
(* Const before type ignored *)
(* Const before type ignored *)
(* Const before type ignored *)
(* Const before type ignored *)
(* Const before type ignored *)
function mysql_real_connect(mysql:PMYSQL; host:Pchar; user:Pchar; passwd:Pchar; db:Pchar;
port:dword; unix_socket:Pchar; clientflag:dword):PMYSQL;cdecl;external External_library name 'mysql_real_connect';
procedure mysql_close(sock:PMYSQL);cdecl;external External_library name 'mysql_close';
(* Const before type ignored *)
function mysql_select_db(mysql:PMYSQL; db:Pchar):longint;cdecl;external External_library name 'mysql_select_db';
(* Const before type ignored *)
function mysql_query(mysql:PMYSQL; q:Pchar):longint;cdecl;external External_library name 'mysql_query';
(* Const before type ignored *)
function mysql_send_query(mysql:PMYSQL; q:Pchar; length:dword):longint;cdecl;external External_library name 'mysql_send_query';
function mysql_read_query_result(mysql:PMYSQL):longint;cdecl;external External_library name 'mysql_read_query_result';
(* Const before type ignored *)
function mysql_real_query(mysql:PMYSQL; q:Pchar; length:dword):longint;cdecl;external External_library name 'mysql_real_query';
{ perform query on master }
(* Const before type ignored *)
function mysql_master_query(mysql:PMYSQL; q:Pchar; length:dword):longint;cdecl;external External_library name 'mysql_master_query';
(* Const before type ignored *)
function mysql_master_send_query(mysql:PMYSQL; q:Pchar; length:dword):longint;cdecl;external External_library name 'mysql_master_send_query';
{ perform query on slave }
(* Const before type ignored *)
function mysql_slave_query(mysql:PMYSQL; q:Pchar; length:dword):longint;cdecl;external External_library name 'mysql_slave_query';
(* Const before type ignored *)
function mysql_slave_send_query(mysql:PMYSQL; q:Pchar; length:dword):longint;cdecl;external External_library name 'mysql_slave_send_query';
{
enable/disable parsing of all queries to decide if they go on master or
slave
}
procedure mysql_enable_rpl_parse(mysql:PMYSQL);cdecl;external External_library name 'mysql_enable_rpl_parse';
procedure mysql_disable_rpl_parse(mysql:PMYSQL);cdecl;external External_library name 'mysql_disable_rpl_parse';
{ get the value of the parse flag }
function mysql_rpl_parse_enabled(mysql:PMYSQL):longint;cdecl;external External_library name 'mysql_rpl_parse_enabled';
{ enable/disable reads from master }
procedure mysql_enable_reads_from_master(mysql:PMYSQL);cdecl;external External_library name 'mysql_enable_reads_from_master';
procedure mysql_disable_reads_from_master(mysql:PMYSQL);cdecl;external External_library name 'mysql_disable_reads_from_master';
{ get the value of the master read flag }
function mysql_reads_from_master_enabled(mysql:PMYSQL):longint;cdecl;external External_library name 'mysql_reads_from_master_enabled';
function mysql_server_init(argc:longint; argv:PPchar; groups:PPchar):longint;cdecl;external External_library name 'mysql_server_init';
procedure mysql_server_end;cdecl;external External_library name 'mysql_server_end';
function mysql_thread_init:my_bool;cdecl;external External_library name 'mysql_thread_init';
procedure mysql_thread_end;cdecl;external External_library name 'mysql_thread_end';
function mysql_num_rows(res:PMYSQL_RES):my_ulonglong;cdecl;external External_library name 'mysql_num_rows';
function mysql_num_fields(res:PMYSQL_RES):dword;cdecl;external External_library name 'mysql_num_fields';
function mysql_eof(res:PMYSQL_RES):my_bool;cdecl;external External_library name 'mysql_eof';
function mysql_fetch_field_direct(res:PMYSQL_RES; fieldnr:dword):PMYSQL_FIELD;cdecl;external External_library name 'mysql_fetch_field_direct';
function mysql_fetch_fields(res:PMYSQL_RES):PMYSQL_FIELD;cdecl;external External_library name 'mysql_fetch_fields';
function mysql_row_tell(res:PMYSQL_RES):PMYSQL_ROWS;cdecl;external External_library name 'mysql_row_tell';
function mysql_field_tell(res:PMYSQL_RES):dword;cdecl;external External_library name 'mysql_field_tell';
function mysql_field_count(mysql:PMYSQL):dword;cdecl;external External_library name 'mysql_field_count';
function mysql_affected_rows(mysql:PMYSQL):my_ulonglong;cdecl;external External_library name 'mysql_affected_rows';
function mysql_insert_id(mysql:PMYSQL):my_ulonglong;cdecl;external External_library name 'mysql_insert_id';
function mysql_errno(mysql:PMYSQL):dword;cdecl;external External_library name 'mysql_errno';
function mysql_error(mysql:PMYSQL):Pchar;cdecl;external External_library name 'mysql_error';
function mysql_info(mysql:PMYSQL):Pchar;cdecl;external External_library name 'mysql_info';
function mysql_thread_id(mysql:PMYSQL):dword;cdecl;external External_library name 'mysql_thread_id';
function mysql_character_set_name(mysql:PMYSQL):Pchar;cdecl;external External_library name 'mysql_character_set_name';
function mysql_init(mysql:PMYSQL):PMYSQL;cdecl;external External_library name 'mysql_init';
function mysql_ssl_set(mysql:PMYSQL; key:Pchar; cert:Pchar; ca:Pchar; capath:Pchar;
cipher:Pchar):longint;cdecl;external External_library name 'mysql_ssl_set';
function mysql_ssl_clear(mysql:PMYSQL):longint;cdecl;external External_library name 'mysql_ssl_clear';
function mysql_change_user(mysql:PMYSQL; user:Pchar; passwd:Pchar; db:Pchar):my_bool;cdecl;external External_library name 'mysql_change_user';
function mysql_real_connect(mysql:PMYSQL; host:Pchar; user:Pchar; passwd:Pchar; db:Pchar;
port:dword; unix_socket:Pchar; clientflag:dword):PMYSQL;cdecl;external External_library name 'mysql_real_connect';
procedure mysql_close(sock:PMYSQL);cdecl;external External_library name 'mysql_close';
function mysql_select_db(mysql:PMYSQL; db:Pchar):longint;cdecl;external External_library name 'mysql_select_db';
function mysql_query(mysql:PMYSQL; q:Pchar):longint;cdecl;external External_library name 'mysql_query';
function mysql_send_query(mysql:PMYSQL; q:Pchar; length:dword):longint;cdecl;external External_library name 'mysql_send_query';
function mysql_read_query_result(mysql:PMYSQL):longint;cdecl;external External_library name 'mysql_read_query_result';
function mysql_real_query(mysql:PMYSQL; q:Pchar; length:dword):longint;cdecl;external External_library name 'mysql_real_query';
function mysql_master_query(mysql:PMYSQL; q:Pchar; length:dword):longint;cdecl;external External_library name 'mysql_master_query';
function mysql_master_send_query(mysql:PMYSQL; q:Pchar; length:dword):longint;cdecl;external External_library name 'mysql_master_send_query';
function mysql_slave_query(mysql:PMYSQL; q:Pchar; length:dword):longint;cdecl;external External_library name 'mysql_slave_query';
function mysql_slave_send_query(mysql:PMYSQL; q:Pchar; length:dword):longint;cdecl;external External_library name 'mysql_slave_send_query';
procedure mysql_enable_rpl_parse(mysql:PMYSQL);cdecl;external External_library name 'mysql_enable_rpl_parse';
procedure mysql_disable_rpl_parse(mysql:PMYSQL);cdecl;external External_library name 'mysql_disable_rpl_parse';
function mysql_rpl_parse_enabled(mysql:PMYSQL):longint;cdecl;external External_library name 'mysql_rpl_parse_enabled';
procedure mysql_enable_reads_from_master(mysql:PMYSQL);cdecl;external External_library name 'mysql_enable_reads_from_master';
procedure mysql_disable_reads_from_master(mysql:PMYSQL);cdecl;external External_library name 'mysql_disable_reads_from_master';
function mysql_reads_from_master_enabled(mysql:PMYSQL):longint;cdecl;external External_library name 'mysql_reads_from_master_enabled';
(* error
enum mysql_rpl_type mysql_rpl_query_type(const char* q, int len);
in declaration at line 291 *)
{ discover the master and its slaves }
function mysql_rpl_probe(mysql:PMYSQL):longint;cdecl;external External_library name 'mysql_rpl_probe';
{ set the master, close/free the old one, if it is not a pivot }
(* Const before type ignored *)
(* Const before type ignored *)
(* Const before type ignored *)
function mysql_set_master(mysql:PMYSQL; host:Pchar; port:dword; user:Pchar; passwd:Pchar):longint;cdecl;external External_library name 'mysql_set_master';
function mysql_rpl_probe(mysql:PMYSQL):longint;cdecl;external External_library name 'mysql_rpl_probe';
function mysql_set_master(mysql:PMYSQL; host:Pchar; port:dword; user:Pchar; passwd:Pchar):longint;cdecl;external External_library name 'mysql_set_master';
function mysql_add_slave(mysql:PMYSQL; host:Pchar; port:dword; user:Pchar; passwd:Pchar):longint;cdecl;external External_library name 'mysql_add_slave';
function mysql_shutdown(mysql:PMYSQL):longint;cdecl;external External_library name 'mysql_shutdown';
function mysql_dump_debug_info(mysql:PMYSQL):longint;cdecl;external External_library name 'mysql_dump_debug_info';
function mysql_refresh(mysql:PMYSQL; refresh_options:dword):longint;cdecl;external External_library name 'mysql_refresh';
function mysql_kill(mysql:PMYSQL; pid:dword):longint;cdecl;external External_library name 'mysql_kill';
function mysql_ping(mysql:PMYSQL):longint;cdecl;external External_library name 'mysql_ping';
function mysql_stat(mysql:PMYSQL):Pchar;cdecl;external External_library name 'mysql_stat';
function mysql_get_server_info(mysql:PMYSQL):Pchar;cdecl;external External_library name 'mysql_get_server_info';
function mysql_get_client_info:Pchar;cdecl;external External_library name 'mysql_get_client_info';
function mysql_get_host_info(mysql:PMYSQL):Pchar;cdecl;external External_library name 'mysql_get_host_info';
function mysql_get_proto_info(mysql:PMYSQL):dword;cdecl;external External_library name 'mysql_get_proto_info';
function mysql_list_dbs(mysql:PMYSQL; wild:Pchar):PMYSQL_RES;cdecl;external External_library name 'mysql_list_dbs';
function mysql_list_tables(mysql:PMYSQL; wild:Pchar):PMYSQL_RES;cdecl;external External_library name 'mysql_list_tables';
function mysql_list_fields(mysql:PMYSQL; table:Pchar; wild:Pchar):PMYSQL_RES;cdecl;external External_library name 'mysql_list_fields';
function mysql_list_processes(mysql:PMYSQL):PMYSQL_RES;cdecl;external External_library name 'mysql_list_processes';
function mysql_store_result(mysql:PMYSQL):PMYSQL_RES;cdecl;external External_library name 'mysql_store_result';
function mysql_use_result(mysql:PMYSQL):PMYSQL_RES;cdecl;external External_library name 'mysql_use_result';
function mysql_options(mysql:PMYSQL; option:mysql_option; arg:Pchar):longint;cdecl;external External_library name 'mysql_options';
procedure mysql_free_result(result:PMYSQL_RES);cdecl;external External_library name 'mysql_free_result';
procedure mysql_data_seek(result:PMYSQL_RES; offset:my_ulonglong);cdecl;external External_library name 'mysql_data_seek';
function mysql_row_seek(result:PMYSQL_RES; _para2:MYSQL_ROW_OFFSET):MYSQL_ROW_OFFSET;cdecl;external External_library name 'mysql_row_seek';
function mysql_field_seek(result:PMYSQL_RES; offset:MYSQL_FIELD_OFFSET):MYSQL_FIELD_OFFSET;cdecl;external External_library name 'mysql_field_seek';
function mysql_fetch_row(result:PMYSQL_RES):MYSQL_ROW;cdecl;external External_library name 'mysql_fetch_row';
function mysql_fetch_lengths(result:PMYSQL_RES):Pdword;cdecl;external External_library name 'mysql_fetch_lengths';
function mysql_fetch_field(result:PMYSQL_RES):PMYSQL_FIELD;cdecl;external External_library name 'mysql_fetch_field';
function mysql_escape_string(_to:Pchar; from:Pchar; from_length:dword):dword;cdecl;external External_library name 'mysql_escape_string';
function mysql_real_escape_string(mysql:PMYSQL; _to:Pchar; from:Pchar; length:dword):dword;cdecl;external External_library name 'mysql_real_escape_string';
procedure mysql_debug(debug:Pchar);cdecl;external External_library name 'mysql_debug';
(* Const before type ignored *)
(* Const before type ignored *)
(* Const before type ignored *)
function mysql_add_slave(mysql:PMYSQL; host:Pchar; port:dword; user:Pchar; passwd:Pchar):longint;cdecl;external External_library name 'mysql_add_slave';
function mysql_shutdown(mysql:PMYSQL):longint;cdecl;external External_library name 'mysql_shutdown';
function mysql_dump_debug_info(mysql:PMYSQL):longint;cdecl;external External_library name 'mysql_dump_debug_info';
function mysql_refresh(mysql:PMYSQL; refresh_options:dword):longint;cdecl;external External_library name 'mysql_refresh';
function mysql_kill(mysql:PMYSQL; pid:dword):longint;cdecl;external External_library name 'mysql_kill';
function mysql_ping(mysql:PMYSQL):longint;cdecl;external External_library name 'mysql_ping';
function mysql_stat(mysql:PMYSQL):Pchar;cdecl;external External_library name 'mysql_stat';
function mysql_get_server_info(mysql:PMYSQL):Pchar;cdecl;external External_library name 'mysql_get_server_info';
function mysql_get_client_info:Pchar;cdecl;external External_library name 'mysql_get_client_info';
function mysql_get_host_info(mysql:PMYSQL):Pchar;cdecl;external External_library name 'mysql_get_host_info';
function mysql_get_proto_info(mysql:PMYSQL):dword;cdecl;external External_library name 'mysql_get_proto_info';
(* Const before type ignored *)
function mysql_list_dbs(mysql:PMYSQL; wild:Pchar):PMYSQL_RES;cdecl;external External_library name 'mysql_list_dbs';
(* Const before type ignored *)
function mysql_list_tables(mysql:PMYSQL; wild:Pchar):PMYSQL_RES;cdecl;external External_library name 'mysql_list_tables';
(* Const before type ignored *)
(* Const before type ignored *)
function mysql_list_fields(mysql:PMYSQL; table:Pchar; wild:Pchar):PMYSQL_RES;cdecl;external External_library name 'mysql_list_fields';
function mysql_list_processes(mysql:PMYSQL):PMYSQL_RES;cdecl;external External_library name 'mysql_list_processes';
function mysql_store_result(mysql:PMYSQL):PMYSQL_RES;cdecl;external External_library name 'mysql_store_result';
function mysql_use_result(mysql:PMYSQL):PMYSQL_RES;cdecl;external External_library name 'mysql_use_result';
(* Const before type ignored *)
function mysql_options(mysql:PMYSQL; option:mysql_option; arg:Pchar):longint;cdecl;external External_library name 'mysql_options';
procedure mysql_free_result(result:PMYSQL_RES);cdecl;external External_library name 'mysql_free_result';
procedure mysql_data_seek(result:PMYSQL_RES; offset:my_ulonglong);cdecl;external External_library name 'mysql_data_seek';
function mysql_row_seek(result:PMYSQL_RES; _para2:MYSQL_ROW_OFFSET):MYSQL_ROW_OFFSET;cdecl;external External_library name 'mysql_row_seek';
function mysql_field_seek(result:PMYSQL_RES; offset:MYSQL_FIELD_OFFSET):MYSQL_FIELD_OFFSET;cdecl;external External_library name 'mysql_field_seek';
function mysql_fetch_row(result:PMYSQL_RES):MYSQL_ROW;cdecl;external External_library name 'mysql_fetch_row';
function mysql_fetch_lengths(result:PMYSQL_RES):Pdword;cdecl;external External_library name 'mysql_fetch_lengths';
function mysql_fetch_field(result:PMYSQL_RES):PMYSQL_FIELD;cdecl;external External_library name 'mysql_fetch_field';
(* Const before type ignored *)
function mysql_escape_string(_to:Pchar; from:Pchar; from_length:dword):dword;cdecl;external External_library name 'mysql_escape_string';
(* Const before type ignored *)
function mysql_real_escape_string(mysql:PMYSQL; _to:Pchar; from:Pchar; length:dword):dword;cdecl;external External_library name 'mysql_real_escape_string';
(* Const before type ignored *)
procedure mysql_debug(debug:Pchar);cdecl;external External_library name 'mysql_debug';
(* Const before type ignored *)
Type
TExdendBuffer = function (_para1:pointer; _to:Pchar; length:Pdword):Pchar;
function mysql_odbc_escape_string(mysql:PMYSQL; _to:Pchar; to_length:dword; from:Pchar; from_length:dword;
param:pointer; extend_buffer: TExdendBuffer):Pchar;cdecl;external External_library name 'mysql_odbc_escape_string';
procedure myodbc_remove_escape(mysql:PMYSQL; name:Pchar);cdecl;external External_library name 'myodbc_remove_escape';
function mysql_thread_safe:dword;cdecl;external External_library name 'mysql_thread_safe';
function mysql_manager_init(con:PMYSQL_MANAGER):PMYSQL_MANAGER;cdecl;external External_library name 'mysql_manager_init';
(* Const before type ignored *)
(* Const before type ignored *)
(* Const before type ignored *)
function mysql_manager_connect(con:PMYSQL_MANAGER; host:Pchar; user:Pchar; passwd:Pchar; port:dword):PMYSQL_MANAGER;cdecl;external External_library name 'mysql_manager_connect';
procedure mysql_manager_close(con:PMYSQL_MANAGER);cdecl;external External_library name 'mysql_manager_close';
(* Const before type ignored *)
function mysql_manager_command(con:PMYSQL_MANAGER; cmd:Pchar; cmd_len:longint):longint;cdecl;external External_library name 'mysql_manager_command';
function mysql_manager_fetch_line(con:PMYSQL_MANAGER; res_buf:Pchar; res_buf_size:longint):longint;cdecl;external External_library name 'mysql_manager_fetch_line';
{ was #define dname(params) para_def_expr }
{ argument types are unknown }
{ return type might be wrong }
function mysql_reload(mysql : pmysql) : longint;
{
The following functions are mainly exported because of mysqlbinlog;
They are not for general usage
}
(* Const before type ignored *)
function simple_command(mysql:PMYSQL; command:enum_server_command; arg:Pchar; length:dword; skipp_check:my_bool):longint;cdecl;external External_library name 'simple_command';
function net_safe_read(mysql:PMYSQL):dword;cdecl;external External_library name 'net_safe_read';
implementation
{ was #define dname(params) para_def_expr }
{ argument types are unknown }
function IS_PRI_KEY(n : longint) : Boolean;
begin
IS_PRI_KEY:=(n and PRI_KEY_FLAG)<>0;
end;
function IS_PRI_KEY(n : longint) : Boolean;
begin
IS_PRI_KEY:=(n and PRI_KEY_FLAG)<>0;
end;
{ was #define dname(params) para_def_expr }
{ argument types are unknown }
function IS_NOT_NULL(n : longint) : Boolean;
begin
IS_NOT_NULL:=(n and NOT_NULL_FLAG)<>0;
end;
{ was #define dname(params) para_def_expr }
{ argument types are unknown }
function IS_BLOB(n : longint) : Boolean;
begin
IS_BLOB:=(n and BLOB_FLAG)<>0;
end;
function IS_NOT_NULL(n : longint) : Boolean;
begin
IS_NOT_NULL:=(n and NOT_NULL_FLAG)<>0;
end;
{ was #define dname(params) para_def_expr }
{ argument types are unknown }
{ return type might be wrong }
function IS_NUM_FIELD(f : Pst_mysql_field) : Boolean;
begin
IS_NUM_FIELD:=((f^.flags) and NUM_FLAG)<>0;
end;
{ was #define dname def_expr }
function MYSQL_COUNT_ERROR : longint;
{ return type might be wrong }
begin
MYSQL_COUNT_ERROR:= not (my_ulonglong(0));
end;
function IS_BLOB(n : longint) : Boolean;
begin
IS_BLOB:=(n and BLOB_FLAG)<>0;
end;
{ was #define dname(params) para_def_expr }
{ argument types are unknown }
{ return type might be wrong }
function mysql_reload(mysql : pmysql) : longint;
begin
mysql_reload:=mysql_refresh(mysql,REFRESH_GRANT);
end;
function IS_NUM_FIELD(f : Pst_mysql_field) : Boolean;
begin
IS_NUM_FIELD:=((f^.flags) and NUM_FLAG)<>0;
end;
function MYSQL_COUNT_ERROR : longint;
begin
MYSQL_COUNT_ERROR:= not (my_ulonglong(0));
end;
function mysql_reload(mysql : pmysql) : longint;
begin
mysql_reload:=mysql_refresh(mysql,REFRESH_GRANT);
end;
end.

297
packages/base/mysql/ver40/mysql_com.pp
View File

@ -11,17 +11,17 @@ interface
mysql_com.ph
}
const
External_library='mysqlclient'; {Setup as you need}
const
External_library='mysqlclient'; {Setup as you need}
{ Pointers to basic pascal types, inserted by h2pas conversion program.}
Type
PLongint = ^Longint;
PSmallInt = ^SmallInt;
PByte = ^Byte;
PWord = ^Word;
PDWord = ^DWord;
PDouble = ^Double;
{ Pointers to basic pascal types, inserted by h2pas conversion program.}
Type
PLongint = ^Longint;
PSmallInt = ^SmallInt;
PByte = ^Byte;
PWord = ^Word;
PDWord = ^DWord;
PDouble = ^Double;
{ Extra manually added types }
PVIO = Pointer;
@ -53,178 +53,123 @@ interface
}
{ Field/table name length }
const
NAME_LEN = 64;
HOSTNAME_LENGTH = 60;
USERNAME_LENGTH = 16;
SERVER_VERSION_LENGTH = 60;
LOCAL_HOST = 'localhost';
LOCAL_HOST_NAMEDPIPE = '.';
const
NAME_LEN = 64;
HOSTNAME_LENGTH = 60;
USERNAME_LENGTH = 16;
SERVER_VERSION_LENGTH = 60;
LOCAL_HOST = 'localhost';
LOCAL_HOST_NAMEDPIPE = '.';
type
enum_server_command = (COM_SLEEP,COM_QUIT,COM_INIT_DB,COM_QUERY,
COM_FIELD_LIST,COM_CREATE_DB,COM_DROP_DB,
COM_REFRESH,COM_SHUTDOWN,COM_STATISTICS,
COM_PROCESS_INFO,COM_CONNECT,COM_PROCESS_KILL,
COM_DEBUG,COM_PING,COM_TIME,COM_DELAYED_INSERT,
COM_CHANGE_USER,COM_BINLOG_DUMP,COM_TABLE_DUMP,
COM_CONNECT_OUT,COM_REGISTER_SLAVE);
type
enum_server_command = (COM_SLEEP,COM_QUIT,COM_INIT_DB,COM_QUERY,
COM_FIELD_LIST,COM_CREATE_DB,COM_DROP_DB,
COM_REFRESH,COM_SHUTDOWN,COM_STATISTICS,
COM_PROCESS_INFO,COM_CONNECT,COM_PROCESS_KILL,
COM_DEBUG,COM_PING,COM_TIME,COM_DELAYED_INSERT,
COM_CHANGE_USER,COM_BINLOG_DUMP,COM_TABLE_DUMP,
COM_CONNECT_OUT,COM_REGISTER_SLAVE);
{ Field can't be NULL }
{ Field can't be NULL }
const
NOT_NULL_FLAG = 1;
{ Field is part of a primary key }
PRI_KEY_FLAG = 2;
{ Field is part of a unique key }
UNIQUE_KEY_FLAG = 4;
{ Field is part of a key }
MULTIPLE_KEY_FLAG = 8;
{ Field is a blob }
BLOB_FLAG = 16;
{ Field is unsigned }
UNSIGNED_FLAG = 32;
{ Field is zerofill }
ZEROFILL_FLAG = 64;
BINARY_FLAG = 128;
{ The following are only sent to new clients }
{ field is an enum }
ENUM_FLAG = 256;
{ field is a autoincrement field }
AUTO_INCREMENT_FLAG = 512;
{ Field is a timestamp }
TIMESTAMP_FLAG = 1024;
{ field is a set }
SET_FLAG = 2048;
{ Field is num (for clients) }
NUM_FLAG = 32768;
{ Intern; Part of some key }
PART_KEY_FLAG = 16384;
{ Intern: Group field }
GROUP_FLAG = 32768;
{ Intern: Used by sql_yacc }
UNIQUE_FLAG = 65536;
{ Refresh grant tables }
REFRESH_GRANT = 1;
{ Start on new log file }
REFRESH_LOG = 2;
{ close all tables }
REFRESH_TABLES = 4;
{ Flush host cache }
REFRESH_HOSTS = 8;
{ Flush status variables }
REFRESH_STATUS = 16;
{ Flush status variables }
REFRESH_THREADS = 32;
{ Reset master info and restart slave
thread }
REFRESH_SLAVE = 64;
{ Remove all bin logs in the index
and truncate the index }
REFRESH_MASTER = 128;
{ The following can't be set with mysql_refresh() }
{ Lock tables for read }
REFRESH_READ_LOCK = 16384;
{ Intern flag }
REFRESH_FAST = 32768;
{ RESET (remove all queries) from query cache }
REFRESH_QUERY_CACHE = 65536;
{ pack query cache }
REFRESH_QUERY_CACHE_FREE = $20000;
REFRESH_DES_KEY_FILE = $40000;
{ new more secure passwords }
CLIENT_LONG_PASSWORD = 1;
{ Found instead of affected rows }
CLIENT_FOUND_ROWS = 2;
{ Get all column flags }
CLIENT_LONG_FLAG = 4;
{ One can specify db on connect }
CLIENT_CONNECT_WITH_DB = 8;
{ Don't allow database.table.column }
CLIENT_NO_SCHEMA = 16;
{ Can use compression protocol }
CLIENT_COMPRESS = 32;
{ Odbc client }
CLIENT_ODBC = 64;
{ Can use LOAD DATA LOCAL }
CLIENT_LOCAL_FILES = 128;
{ Ignore spaces before '(' }
CLIENT_IGNORE_SPACE = 256;
{ Support the mysql_change_user() }
CLIENT_CHANGE_USER = 512;
{ This is an interactive client }
CLIENT_INTERACTIVE = 1024;
{ Switch to SSL after handshake }
CLIENT_SSL = 2048;
{ IGNORE sigpipes }
CLIENT_IGNORE_SIGPIPE = 4096;
{ Client knows about transactions }
CLIENT_TRANSACTIONS = 8192;
{ Transaction has started }
SERVER_STATUS_IN_TRANS = 1;
{ Server in auto_commit mode }
SERVER_STATUS_AUTOCOMMIT = 2;
MYSQL_ERRMSG_SIZE = 200;
{ Timeout on read }
NET_READ_TIMEOUT = 30;
{ Timeout on write }
NET_WRITE_TIMEOUT = 60;
{
#define NET_WAIT_TIMEOUT (8 60 60)
}
{ Wait for new query }
{
struct st_vio; // Only C
typedef struct st_vio Vio;
}
{ Default width for blob }
MAX_BLOB_WIDTH = 8192;
{ For Perl DBI/dbd }
{
The following variable is set if we are doing several queries in one
command ( as in LOAD TABLE ... FROM MASTER ),
and do not want to confuse the client with OK at the wrong time
}
const
NOT_NULL_FLAG = 1;
PRI_KEY_FLAG = 2;
UNIQUE_KEY_FLAG = 4;
MULTIPLE_KEY_FLAG = 8;
BLOB_FLAG = 16;
UNSIGNED_FLAG = 32;
ZEROFILL_FLAG = 64;
BINARY_FLAG = 128;
ENUM_FLAG = 256;
AUTO_INCREMENT_FLAG = 512;
TIMESTAMP_FLAG = 1024;
SET_FLAG = 2048;
NUM_FLAG = 32768;
PART_KEY_FLAG = 16384;
GROUP_FLAG = 32768;
UNIQUE_FLAG = 65536;
REFRESH_GRANT = 1;
REFRESH_LOG = 2;
REFRESH_TABLES = 4;
REFRESH_HOSTS = 8;
REFRESH_STATUS = 16;
REFRESH_THREADS = 32;
REFRESH_SLAVE = 64;
REFRESH_MASTER = 128;
REFRESH_READ_LOCK = 16384;
REFRESH_FAST = 32768;
REFRESH_QUERY_CACHE = 65536;
REFRESH_QUERY_CACHE_FREE = $20000;
REFRESH_DES_KEY_FILE = $40000;
CLIENT_LONG_PASSWORD = 1;
CLIENT_FOUND_ROWS = 2;
CLIENT_LONG_FLAG = 4;
CLIENT_CONNECT_WITH_DB = 8;
CLIENT_NO_SCHEMA = 16;
CLIENT_COMPRESS = 32;
CLIENT_ODBC = 64;
CLIENT_LOCAL_FILES = 128;
CLIENT_IGNORE_SPACE = 256;
CLIENT_CHANGE_USER = 512;
CLIENT_INTERACTIVE = 1024;
CLIENT_SSL = 2048;
CLIENT_IGNORE_SIGPIPE = 4096;
CLIENT_TRANSACTIONS = 8192;
SERVER_STATUS_IN_TRANS = 1;
SERVER_STATUS_AUTOCOMMIT = 2;
MYSQL_ERRMSG_SIZE = 200;
NET_READ_TIMEOUT = 30;
NET_WRITE_TIMEOUT = 60;
MAX_BLOB_WIDTH = 8192;
{
#define NET_WAIT_TIMEOUT (8 60 60)
}
{
struct st_vio; // Only C
typedef struct st_vio Vio;
}
type
type
Pst_net = ^st_net;
st_net = record
vio : PVio;
buff : Pbyte;
buff_end : Pbyte;
write_pos : Pbyte;
read_pos : Pbyte;
fd : my_socket;
max_packet : dword;
max_packet_size : dword;
last_errno : dword;
pkt_nr : dword;
compress_pkt_nr : dword;
write_timeout : dword;
read_timeout : dword;
retry_count : dword;
fcntl : longint;
last_error : array[0..(MYSQL_ERRMSG_SIZE)-1] of char;
error : byte;
return_errno : my_bool;
compress : my_bool;
remain_in_buf : dword;
length : dword;
buf_length : dword;
where_b : dword;
return_status : Pdword;
reading_or_writing : byte;
save_char : char;
no_send_ok : my_bool;
query_cache_query : gptr;
end;
NET = st_net;
TNET = NET;
PNET = ^NET;
Pst_net = ^st_net;
st_net = record
vio : PVio;
buff : Pbyte;
buff_end : Pbyte;
write_pos : Pbyte;
read_pos : Pbyte;
fd : my_socket;
max_packet : dword;
fcntl : longint;
last_errno : dword;
timeout : dword;
pkt_nr : dword;
compress_pkt_nr : dword;
last_error : array[0..(MYSQL_ERRMSG_SIZE)-1] of char;
error : byte;
return_errno : my_bool;
compress : my_bool;
remain_in_buf : dword;
length : dword;
buf_length : dword;
where_b : dword;
return_status : Pdword;
reading_or_writing : byte;
save_char : char;
no_send_ok : my_bool;
query_cache_query : gptr;
end;
NET = st_net;
PNET = ^NET;
{ was #define dname def_expr }
function packet_error : longint;
{ return type might be wrong }
function packet_error : longint;
type
enum_field_types = (FIELD_TYPE_DECIMAL,FIELD_TYPE_TINY,FIELD_TYPE_SHORT,
type
enum_field_types = (FIELD_TYPE_DECIMAL,FIELD_TYPE_TINY,FIELD_TYPE_SHORT,
FIELD_TYPE_LONG,FIELD_TYPE_FLOAT,FIELD_TYPE_DOUBLE,
FIELD_TYPE_NULL,FIELD_TYPE_TIMESTAMP,
FIELD_TYPE_LONGLONG,FIELD_TYPE_INT24,