// ----------------------------------------------------------------------------------------------- // // MySQL Client API for Borland Delphi (version 4 and above) // // Pascal Interface Unit for libmySQL.dll, the // Client Library for MySQL AB's SQL Database Server // // This is a literal translation of relevant parts of MySQL AB's // C header files, mysql.h, mysql_com.h, and mysql_version.h // // Copyright (c) 1999-2002 Matthias Fichtner // (see license.txt for licensing information) // // ----------------------------------------------------------------------------------------------- // See mysql.h for MySQL AB's copyright and GPL notice // ----------------------------------------------------------------------------------------------- // // 17-Aug-1999 mf Translated mysql.h MySQL 3.22.24 // 19-Aug-1999 mf Corrected some type definitions MySQL 3.22.24 // 20-Aug-1999 mf Finished debugging the unit MySQL 3.22.24 // 18-Sep-1999 mf Code maintenance for release 3.22.26a MySQL 3.22.26a // 22-Oct-1999 mf Code maintenance for release 3.22.28 MySQL 3.22.28 // 02-Jan-2000 mf Code maintenance for release 3.22.29 MySQL 3.22.29 // 21-Jan-2000 mf Code maintenance for release 3.22.30 MySQL 3.22.30 // 07-Feb-2000 mf Code maintenance for release 3.22.31 MySQL 3.22.31 // 16-Feb-2000 mf Code maintenance for release 3.22.32 MySQL 3.22.32 // 13-Aug-2000 mf Code maintenance for release 3.22.34 MySQL 3.22.34 // 14-Aug-2000 mf Reworked entire unit for first 3.23 release MySQL 3.23.19-beta // 14-Aug-2000 mf Added mysql_character_set_name() MySQL 3.23.22-beta // 11-Sep-2000 mf Added IS_NUM_FIELD and INTERNAL_NUM_FIELD MySQL 3.23.24-beta // 08-Oct-2000 mf Modified TMEM_ROOT, enum_server_command, MySQL 3.23.25-beta // and INTERNAL_NUM_FIELD // 01-Nov-2000 mf Code maintenance for release 3.23.27 MySQL 3.23.27-beta // 25-Nov-2000 mf Code maintenance for release 3.23.28 MySQL 3.23.28-gamma // 05-Jan-2001 mf Code maintenance for release 3.23.30 MySQL 3.23.30-gamma // 19-Jan-2001 mf Code maintenance for release 3.23.31 MySQL 3.23.31 // 11-Mar-2001 mf Added functions mysql_real_send_query(), MySQL 3.23.33 // mysql_send_query(), and mysql_reap_query() // 28-Mai-2001 mf Modified mysql_send_query(), removed MySQL 3.23.38 // mysql_real_send_query(), mysql_reap_query(), // added mysql_read_query_result(), and fixed // CLIENT_TRANSACTIONS // 07-Aug-2001 mf Code maintenance for release 3.23.40 MySQL 3.23.40 // 23-Sep-2001 mf Code maintenance for release 3.23.42 MySQL 3.23.42 // 29-Jan-2002 mf Added libmysql_load(), libmysql_free(), MySQL 3.23.47 // libmysql_status and LIBMYSQL_ constants // for dynamic loading of libmySQL.dll // 11-Mar-2002 mf Added MYSQL_OPT_LOCAL_INFILE to mysql_option MySQL 3.23.49 // // ----------------------------------------------------------------------------------------------- // // Latest releases of mysql.pas are made available through the // distribution site at: http://www.fichtner.net/delphi/mysql/ // // Please send questions, bug reports, and suggestions regarding // mysql.pas to Matthias Fichtner <mfichtner@fichtner-meyer.com> // // See readme.txt for an introduction and documentation. // See license.txt for licensing information and disclaimer. // // ----------------------------------------------------------------------------------------------- // This unit is provided "as is". Use it at your own risk. // -----------------------------------------------------------------------------------------------
uses
Windows, // Needed for some type definitions
Winsock; // Needed for some type definitions
// ---------------- // From mysql.h ... // ----------------
type
my_bool = byte;
gptr = pChar;
type
PUSED_MEM = ^TUSED_MEM; // struct for once_alloc
TUSED_MEM = record
next: PUSED_MEM; // Next block in use
left: longword; // memory left in block
size: longword; // size of block end;
type
error_proc = procedure;
type
PMEM_ROOT = ^TMEM_ROOT;
TMEM_ROOT = record
free: PUSED_MEM;
used: PUSED_MEM;
pre_alloc: PUSED_MEM;
min_malloc: longword;
block_size: longword;
error_handler: error_proc; end;
type
my_socket = TSocket;
// -------------------- // From mysql_com.h ... // --------------------
const
NOT_NULL_FLAG = 1; // Field can't be NULL
PRI_KEY_FLAG = 2; // Field is part of a primary key
UNIQUE_KEY_FLAG = 4; // Field is part of a unique key
MULTIPLE_KEY_FLAG = 8; // Field is part of a key
BLOB_FLAG = 16; // Field is a blob
UNSIGNED_FLAG = 32; // Field is unsigned
ZEROFILL_FLAG = 64; // Field is zerofill
BINARY_FLAG = 128;
// The following are only sent to new clients
ENUM_FLAG = 256; // field is an enum
AUTO_INCREMENT_FLAG = 512; // field is a autoincrement field
TIMESTAMP_FLAG = 1024; // Field is a timestamp
SET_FLAG = 2048; // field is a set
NUM_FLAG = 32768; // Field is num (for clients)
PART_KEY_FLAG = 16384; // Intern; Part of some key
GROUP_FLAG = 32768; // Intern: Group field
UNIQUE_FLAG = 65536; // Intern: Used by sql_yacc
REFRESH_GRANT = 1; // Refresh grant tables
REFRESH_LOG = 2; // Start on new log file
REFRESH_TABLES = 4; // close all tables
REFRESH_HOSTS = 8; // Flush host cache
REFRESH_STATUS = 16; // Flush status variables
REFRESH_THREADS = 32; // Flush status variables
REFRESH_SLAVE = 64; // Reset master info and restart slave // thread
REFRESH_MASTER = 128; // Remove all bin logs in the index // and truncate the index
// The following can't be set with mysql_refresh()
REFRESH_READ_LOCK = 16384; // Lock tables for read
REFRESH_FAST = 32768; // Intern flag
CLIENT_LONG_PASSWORD = 1; // new more secure passwords
CLIENT_FOUND_ROWS = 2; // Found instead of affected rows
CLIENT_LONG_FLAG = 4; // Get all column flags
CLIENT_CONNECT_WITH_DB = 8; // One can specify db on connect
CLIENT_NO_SCHEMA = 16; // Don't allow database.table.column
CLIENT_COMPRESS = 32; // Can use compression protcol
CLIENT_ODBC = 64; // Odbc client
CLIENT_LOCAL_FILES = 128; // Can use LOAD DATA LOCAL
CLIENT_IGNORE_SPACE = 256; // Ignore spaces before '('
CLIENT_INTERACTIVE = 1024; // This is an interactive client
CLIENT_SSL = 2048; // Switch to SSL after handshake
CLIENT_IGNORE_SIGPIPE = 4096; // IGNORE sigpipes
CLIENT_TRANSACTIONS = 8192; // Client knows about transactions
SERVER_STATUS_IN_TRANS = 1; // Transaction has started
SERVER_STATUS_AUTOCOMMIT = 2; // Server in auto_commit mode
MYSQL_ERRMSG_SIZE = 200;
NET_READ_TIMEOUT = 30; // Timeout on read
NET_WRITE_TIMEOUT = 60; // Timeout on write
NET_WAIT_TIMEOUT = 8*60*60; // Wait for new query
type
PVio = ^TVio;
TVio = record end;
type
PNET = ^TNET;
TNET = record
vio: PVio;
fd: my_socket;
fcntl: longint;
buff, buff_end, write_pos, read_pos: pByte;
last_error: array [0..MYSQL_ERRMSG_SIZE - 1] ofchar;
last_errno, max_packet, timeout, pkt_nr: longword;
error: byte;
return_errno, compress: my_bool;
no_send_ok: my_bool; // needed 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
remain_in_buf, length, buf_length, where_b: longword;
return_status: pLongword;
reading_or_writing: byte;
save_char: char; end;
// ---------------- // From mysql.h ... // ----------------
function IS_PRI_KEY(n: longword): boolean; function IS_NOT_NULL(n: longword): boolean; function IS_BLOB(n: longword): boolean; function IS_NUM(t: longword): boolean;
type
PMYSQL_FIELD = ^TMYSQL_FIELD;
TMYSQL_FIELD = record
name: pChar; // Name of column
table: pChar; // Table of column if column was a field
def: pChar; // Default value (set by mysql_list_fields)
_type: enum_field_types; // Type of field. Se mysql_com.h for types
length: longword; // Width of column
max_length: longword; // Max width of selected set
flags: longword; // Div flags
decimals: longword; // Number of decimals in field end;
function IS_NUM_FIELD(f: PMYSQL_FIELD): boolean; function INTERNAL_NUM_FIELD(f: PMYSQL_FIELD): boolean;
type
PMYSQL_ROW = ^TMYSQL_ROW; // return data as array of strings
TMYSQL_ROW = array[0..MaxInt div SizeOf(pChar) - 1] of pChar;
type
MYSQL_FIELD_OFFSET = longword; // offset to current field
type
my_ulonglong = int64;
const
MYSQL_COUNT_ERROR: my_ulonglong = not 0;
type
PMYSQL_ROWS = ^TMYSQL_ROWS;
TMYSQL_ROWS = record
next: PMYSQL_ROWS; // list of rows
data: PMYSQL_ROW; end;
type
MYSQL_ROW_OFFSET = PMYSQL_ROWS; // offset to current row
type
PMYSQL_DATA = ^TMYSQL_DATA;
TMYSQL_DATA = record
rows: my_ulonglong;
fields: longword;
data: PMYSQL_ROWS;
alloc: TMEM_ROOT; end;
type
PMYSQL_OPTIONS = ^TMYSQL_OPTIONS;
TMYSQL_OPTIONS = record
connect_timeout, client_flag: longword;
compress, named_pipe: my_bool;
port: longword;
host, init_command, user, password, unix_socket, db: pChar;
my_cnf_file, my_cnf_group, charset_dir, charset_name: pChar;
use_ssl: my_bool; // if to use SSL or not
ssl_key: pChar; // PEM key file
ssl_cert: pChar; // PEM cert file
ssl_ca: pChar; // PEM CA file
ssl_capath: pChar; // PEM directory of CA-s? end;
type
mysql_status = (
MYSQL_STATUS_READY, MYSQL_STATUS_GET_RESULT,
MYSQL_STATUS_USE_RESULT
);
type
PMYSQL_FIELDS = ^TMYSQL_FIELDS;
TMYSQL_FIELDS = array[0..MaxInt div SizeOf(TMYSQL_FIELD) - 1] of TMYSQL_FIELD;
type
PCHARSET_INFO = ^TCHARSET_INFO;
TCHARSET_INFO = record // Omitted: Structure not necessarily needed. // Definition of struct charset_info_st can be // found in include/m_ctype.h end;
type
PMYSQL = ^TMYSQL;
TMYSQL = record
net: TNET; // Communication parameters
connector_fd: gptr; // ConnectorFd for SSL
host, user, passwd, unix_socket, server_version, host_info, info, db: pChar;
port, client_flag, server_capabilities: longword;
protocol_version: longword;
field_count: longword;
server_status: longword;
thread_id: longword; // Id for connection in server
affected_rows: my_ulonglong;
insert_id: my_ulonglong; // id if insert on table with NEXTNR
extra_info: my_ulonglong; // Used by mysqlshow
packet_length: longword;
status: mysql_status;
fields: PMYSQL_FIELDS;
field_alloc: TMEM_ROOT;
free_me: my_bool; // If free in mysql_close
reconnect: my_bool; // set to 1 if automatic reconnect
options: TMYSQL_OPTIONS;
scramble_buff: array [0..8] ofchar;
charset: PCHARSET_INFO;
server_language: longword; end;
type
PMYSQL_RES = ^TMYSQL_RES;
TMYSQL_RES = record
row_count: my_ulonglong;
field_count, current_field: longword;
fields: PMYSQL_FIELDS;
data: PMYSQL_DATA;
data_cursor: PMYSQL_ROWS;
field_alloc: TMEM_ROOT;
row: PMYSQL_ROW; // If unbuffered read
current_row: PMYSQL_ROW; // buffer to current row
lengths: pLongword; // column lengths of current row
handle: PMYSQL; // for unbuffered reads
eof: my_bool; // Used my mysql_fetch_row end;
// Functions to get information from the MYSQL and MYSQL_RES structures // Should definitely be used if one uses shared libraries
const
LIBMYSQL_UNDEFINED = 0; // libmysql_load() has not yet been called
LIBMYSQL_MISSING = 1; // No suitable DLL could be located
LIBMYSQL_INCOMPATIBLE = 2; // A DLL was found but it is not compatible
LIBMYSQL_READY = 3; // The DLL was loaded successfully
var
libmysql_handle: HMODULE = 0;
libmysql_status: byte = LIBMYSQL_UNDEFINED;
function libmysql_load(name: pChar): byte; procedure libmysql_free;
function IS_PRI_KEY(n: longword): boolean; begin
Result := (n and PRI_KEY_FLAG) = PRI_KEY_FLAG; end;
function IS_NOT_NULL(n: longword): boolean; begin
Result := (n and NOT_NULL_FLAG) = NOT_NULL_FLAG; end;
function IS_BLOB(n: longword): boolean; begin
Result := (n and BLOB_FLAG) = BLOB_FLAG; end;
function IS_NUM(t: longword): boolean; begin
Result := (t <= FIELD_TYPE_INT24) or (t = FIELD_TYPE_YEAR); end;
function IS_NUM_FIELD(f: PMYSQL_FIELD): boolean; begin
Result := (f.flags and NUM_FLAG) = NUM_FLAG; end;
function INTERNAL_NUM_FIELD(f: PMYSQL_FIELD): boolean; begin
Result := (((f._type <= FIELD_TYPE_INT24) and ((f._type <> FIELD_TYPE_TIMESTAMP) or (f.length = 14) or (f.length = 8))) or (f._type = FIELD_TYPE_YEAR)); end;
function mysql_reload(_mysql: PMYSQL): longint; begin
Result := mysql_refresh(_mysql, REFRESH_GRANT); end;
function libmysql_load(name: pChar): byte;
procedure assign_proc(var proc: FARPROC; name: pChar); begin
proc := GetProcAddress(libmysql_handle, name); if proc = nilthen libmysql_status := LIBMYSQL_INCOMPATIBLE; end;
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
