InraPorc

{  -----------------------------------------------------------------------------------------------

                      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

   -----------------------------------------------------------------------------------------------

                         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

       03-Jun-2002  so  result of mysql_row_tell is MYSQL_ROW_OFFSET

       05-Nov-2006  so  Update for LibMySQL Version 4.00 and 4.10

                        Different records for the varius versions

       26-May-2007  so  Update for LibMySQL Version 5.00 and 5.10

       29-Mar-2009  so  Remove all const in PAnsiChar-Params to

                        clearify what happend (C don't know "call by

                        reference")

       30-Mar-2009  so  Resourcestrings

                        Added functions mysql_field_flag,

                        mysql_field_type, mysql_field_name,

                        mysql_field_tablename

       11-Apr-2009  so  improved dynamic loading by new function

                        libmysql_fast_load

       13-Apr-2009  so  Added functions mysql_field_length, IS_LONGDATA;

                        Code maintenance enum_field_types

       17-Apr-2009  so  Added functions mysql_autocommit,

                        mysql_set_character_set, mysql_commit,

                        mysql_rollback, mysql_set_server_option,

                        mysql_sqlstate, mysql_warning_count

                        MySql_StrLen, CharSetNameToCodepage,

                        CodepageToCharSetName, MySqlToUTF16,

                        UTF16ToMySql

       01-May-2009  so  mysql_odbc_escape_string is deprecated

       08-Jun-2009  so  Added functions mysql_server_init, mysql_server_end

                        Added support for prepared statements

       09-Jun-2009  so  Added records: TNET501, TMYSQL501

       10-Jun-2009  so  Added functions mysql_thread_init, mysql_thread_end

       18-Jun-2009  so  Added functions mysql_more_results, mysql_next_result,

                        FormatIdentifier

       04-Jul-2009  so  Added functions EscapeString, EscapeForLike, QuoteString,

                        FullFieldname

                        Change FormatIdentifier to QuoteName

       04-Aug-2009  so  Bug in GetVersion fixed

   -----------------------------------------------------------------------------------------------

                     Latest releases of mysql.pas are made available through the

                      distribution site at: http://www.audio-data.de/mysql.html

                        See readme.txt for an introduction and documentation.

              *********************************************************************

              * The contents of this file are used with permission, subject to    *

              * the Mozilla Public License Version 1.1 (the "License"); you may   *

              * not use this file except in compliance with the License. You may  *

              * obtain a copy of the License at                                   *

              * http:  www.mozilla.org/MPL/MPL-1.1.html                           *

              *                                                                   *

              * Software distributed under the License is distributed on an       *

              * "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or    *

              * implied. See the License for the specific language governing      *

              * rights and limitations under the License.                         *

              *                                                                   *

              *  Contributor(s)                                                   *

              *  (mf)  Matthias Fichtner <matthias@fichtner.net>                  *

              *  (so)  Samuel Soldat     <samuel.soldat@audio-data.de>            *

              *                                                                   *

              *********************************************************************}

unit mysql;

{$IFNDEF DEBUG}

{$DEBUGINFO OFF}

{$LOCALSYMBOLS OFF}

{$ASSERTIONS OFF}

{$ENDIF}

{$RANGECHECKS OFF}

{$TYPEDADDRESS OFF}

{$LONGSTRINGS ON}

{$EXTENDEDSYNTAX ON}

{$REFERENCEINFO ON}

{$MINENUMSIZE 4}

{$DEFINE DONT_LOAD_DLL}

{.$DEFINE EmbeddedCharacterConvert}

{$DEFINE Win32CharacterConvert}

// -----------------------------------------------------------------------------------------------

INTERFACE

// -----------------------------------------------------------------------------------------------

uses

  Windows,  // Needed for some type definitions

  Winsock;  // Needed for some type definitions

type

{$IFDEF CONDITIONALEXPRESSIONS}

  {Delphi 6 and above}

  {$IF NOT DECLARED(UnicodeString)}

  UnicodeString = WideString;

  {$IFEND}

  {$IF NOT DECLARED(RawByteString)}

  RawByteString = AnsiString;

  {$IFEND}

  {$IF DECLARED(UInt64)}

  my_ulonglong = UInt64;

  {$IFEND}

  {$IF NOT DECLARED(UInt64)}

  my_ulonglong = Int64;

  {$IFEND}

{$ELSE}

  UnicodeString = WideString;

  RawByteString = AnsiString;

  PPAnsiChar = ^PAnsiChar;

  {$IFDEF VER100} {For Delphi 3}

  longword = DWORD;

  pLongword = ^longword;

  my_ulonglong = record

   dwMyLow: DWORD;

   dwMyHigh: DWORD;

  end;

  {$ELSE}

  my_ulonglong = int64;

  {$ENDIF}

{$ENDIF}

// ----------------

// From mysql.h ...

// ----------------

  my_bool = ByteBool;

  Pmy_bool = ^my_bool;

  gptr = PAnsiChar;

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;

// --------------------

// From my_alloc.h ...

// --------------------

type

  error_proc = procedure;

type

  TMEM_ROOT323 = record

    free: PUSED_MEM;

    used: PUSED_MEM;

    pre_alloc: PUSED_MEM;

    min_malloc: longword;

    block_size: longword;

    error_handler: error_proc;

  end;

  TMEM_ROOT400 = record

    free: PUSED_MEM;

    used: PUSED_MEM;

    pre_alloc: PUSED_MEM;

    min_malloc: longword;

    block_size: longword;

    block_num: longword;

    first_block_usage: longword;

    error_handler: error_proc;

  end;

type

  my_socket = TSocket;

// --------------------

// From mysql_com.h ...

// --------------------

const

  NAME_LEN = 64;               // Field/table name length

  HOSTNAME_LENGTH = 60;

  USERNAME_LENGTH = 16;

  SERVER_VERSION_LENGTH = 60;

  SQLSTATE_LENGTH = 5;

  SCRAMBLE_LENGTH = 20;

  SCRAMBLE_LENGTH_323 = 8;

  LOCAL_HOST = 'localhost';

  LOCAL_HOST_NAMEDPIPE = '.';

  MYSQL_NAMEDPIPE = 'MySQL';

  MYSQL_SERVICENAME = 'MySql';

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

  );

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)

  NO_DEFAULT_VALUE_FLAG = 4096;        // Field doesn't have default value

  PART_KEY_FLAG = 16384;        // Intern; Part of some key

  GROUP_FLAG = 32768;           // Intern: Group field

  UNIQUE_FLAG = 65536;          // Intern: Used by sql_yacc

  BINCMP_FLAG        = 131072;         // 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

  // RESET (remove all queries) from query cache

  REFRESH_QUERY_CACHE        = 65536;

  REFRESH_QUERY_CACHE_FREE = $20000; // pack query cache

  REFRESH_DES_KEY_FILE = $40000;

  REFRESH_USER_RESOURCES = $80000;

  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

  CLIENT_RESERVED = 16384;          // Old flag for 4.1 protocol

  CLIENT_SECURE_CONNECTION = 32768; // New 4.1 authentication

  CLIENT_MULTI_STATEMENTS = 65536;  // Enable/disable multi-stmt support

  CLIENT_MULTI_RESULTS = $20000;    // Enable/disable multi-results

  CLIENT_SSL_VERIFY_SERVER_CERT = $40000000;

  CLIENT_REMEMBER_OPTIONS = $80000000;

  SERVER_STATUS_IN_TRANS = 1;     // Transaction has started

  SERVER_STATUS_AUTOCOMMIT = 2;   // Server in auto_commit mode

  SERVER_MORE_RESULTS_EXISTS = 8; // Multi query - next query exists

  SERVER_QUERY_NO_GOOD_INDEX_USED = 16;

  SERVER_QUERY_NO_INDEX_USED = 32;

  SERVER_STATUS_CURSOR_EXISTS = 64;

  SERVER_STATUS_LAST_ROW_SENT = 128;

  SERVER_STATUS_DB_DROPPED = 256;

  SERVER_STATUS_NO_BACKSLASH_ESCAPES = 512;

  MYSQL_ERRMSG_SIZE = 200;

  MYSQL_ERRMSG_SIZE401 = 512;

  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 = Pointer;

  TNET323 = record

    vio: PVio;

    fd: my_socket;

    fcntl: longint;

    buff, buff_end, write_pos, read_pos: pByte;

    last_error: array [0..MYSQL_ERRMSG_SIZE - 1] of AnsiChar;

    last_errno, max_packet, timeout, pkt_nr: longword;                         // 228

    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: AnsiChar;

  end;

  TNET400 = record

    vio: PVio;

    buff, buff_end, write_pos, read_pos: pByte;

    fd: my_socket;

    max_packet, max_packet_size: longword;

    last_errno, pkt_nr, compress_pkt_nr: longword;

    write_timeout, read_timeout, retry_count: longword;

    fcntl: Integer;

    last_error: array [0..MYSQL_ERRMSG_SIZE - 1] of AnsiChar;

    error: byte;

    return_errno, compress: my_bool;

    remain_in_buf, length, buf_length, where_b: longword;

    return_status: pLongword;

    reading_or_writing: byte;

    save_char: AnsiChar;

    no_send_ok: my_bool;  // needed if we are doing several

    query_cache_query: gptr;

  end;

  TNET401 = record

    vio: PVio;

    buff, buff_end, write_pos, read_pos: pByte;

    fd: my_socket;

    max_packet, max_packet_size: longword;

    pkt_nr, compress_pkt_nr: longword;

    write_timeout, read_timeout, retry_count: longword;

    fcntl: Integer;

    compress: my_bool;

    remain_in_buf, length, buf_length, where_b: longword;

    return_status: pLongword;

    reading_or_writing: byte;

    save_char: AnsiChar;

    no_send_ok: my_bool;  // needed if we are doing several

    last_error: array [0..MYSQL_ERRMSG_SIZE401 - 1] of AnsiChar;

    sqlState: array [0..SQLSTATE_LENGTH] of AnsiChar;

    last_errno: longword;

    error: byte;

    query_cache_query: gptr;

    report_error: my_bool;   //* We should report error (we have unreported error) */

    return_errno: my_bool;

  end;

  TNET500 = record

    vio: PVio;

    buff, buff_end, write_pos, read_pos: pByte;

    fd: my_socket;

    max_packet, max_packet_size: longword;

    pkt_nr, compress_pkt_nr: longword;

    write_timeout, read_timeout, retry_count: longword;

    fcntl: Integer;

    compress: my_bool;

    remain_in_buf, length, buf_length, where_b: longword;

    return_status: pLongword;

    reading_or_writing: byte;

    save_char: AnsiChar;

    no_send_ok: my_bool;  //  For SPs and other things that do multiple stmts

    no_send_eof: my_bool;  // For SPs' first version read-only cursors

    no_send_error: my_bool;

    last_error: array [0..MYSQL_ERRMSG_SIZE401 - 1] of AnsiChar;

    sqlState: array [0..SQLSTATE_LENGTH] of AnsiChar;

    last_errno: longword;

    error: byte;

    query_cache_query: gptr;

    report_error: my_bool;   //* We should report error (we have unreported error) */

    return_errno: my_bool;

  end;

  TNET501 = record

    vio: PVio;

    buff, buff_end, write_pos, read_pos: pByte;

    fd: my_socket;

    remain_in_buf, length, buf_length, where_b: longword;

    max_packet, max_packet_size: longword;

    pkt_nr, compress_pkt_nr: longword;

    write_timeout, read_timeout, retry_count: longword;

    fcntl: Integer;

    return_status: Plongword;

    reading_or_writing: Byte;

    save_char: Char;

    unused0: my_bool; //* Please remove with the next incompatible ABI change. */

    unused: my_bool ; //* Please remove with the next incompatible ABI change */

    compress: my_bool;

    unused1: my_bool; //* Please remove with the next incompatible ABI change. */

    query_cache_query: gptr;

    last_errno: longword;

    error: byte;

    unused2: my_bool; //* Please remove with the next incompatible ABI change. */

    return_errno: my_bool;

    last_error: array [0..MYSQL_ERRMSG_SIZE401 - 1] of AnsiChar;

    sqlState: array [0..SQLSTATE_LENGTH] of AnsiChar;

    extension: Pointer;

  end;

const

  packet_error: longword = $ffffffff;

{$IFDEF CONDITIONALEXPRESSIONS} {Delphi 6 and above}

type

  enum_field_types = (MYSQL_TYPE_DECIMAL, MYSQL_TYPE_TINY,

                      MYSQL_TYPE_SHORT, MYSQL_TYPE_LONG,

                      MYSQL_TYPE_FLOAT, MYSQL_TYPE_DOUBLE,

                      MYSQL_TYPE_NULL, MYSQL_TYPE_TIMESTAMP,

                      MYSQL_TYPE_LONGLONG, MYSQL_TYPE_INT24,

                      MYSQL_TYPE_DATE, MYSQL_TYPE_TIME,

                      MYSQL_TYPE_DATETIME, MYSQL_TYPE_YEAR,

                      MYSQL_TYPE_NEWDATE, MYSQL_TYPE_VARCHAR,

                      MYSQL_TYPE_BIT,

                      MYSQL_TYPE_NEWDECIMAL=246,

                      MYSQL_TYPE_ENUM=247,

                      MYSQL_TYPE_SET=248,

                      MYSQL_TYPE_TINY_BLOB=249,

                      MYSQL_TYPE_MEDIUM_BLOB=250,

                      MYSQL_TYPE_LONG_BLOB=251,

                      MYSQL_TYPE_BLOB=252,

                      MYSQL_TYPE_VAR_STRING=253,

                      MYSQL_TYPE_STRING=254,

                      MYSQL_TYPE_GEOMETRY=255);

const

  FIELD_TYPE_DECIMAL     = Ord(MYSQL_TYPE_DECIMAL);

  FIELD_TYPE_TINY        = Ord(MYSQL_TYPE_TINY);

  FIELD_TYPE_SHORT       = Ord(MYSQL_TYPE_DECIMAL);

  FIELD_TYPE_LONG        = Ord(MYSQL_TYPE_LONG);

  FIELD_TYPE_FLOAT       = Ord(MYSQL_TYPE_FLOAT);

  FIELD_TYPE_DOUBLE      = Ord(MYSQL_TYPE_DOUBLE);

  FIELD_TYPE_NULL        = Ord(MYSQL_TYPE_NULL);

  FIELD_TYPE_TIMESTAMP   = Ord(MYSQL_TYPE_TIMESTAMP);

  FIELD_TYPE_LONGLONG    = Ord(MYSQL_TYPE_LONGLONG);

  FIELD_TYPE_INT24       = Ord(MYSQL_TYPE_INT24);

  FIELD_TYPE_DATE        = Ord(MYSQL_TYPE_DATE);

  FIELD_TYPE_TIME        = Ord(MYSQL_TYPE_TIME);

  FIELD_TYPE_DATETIME    = Ord(MYSQL_TYPE_DATETIME);

  FIELD_TYPE_YEAR        = Ord(MYSQL_TYPE_YEAR);

  FIELD_TYPE_NEWDATE     = Ord(MYSQL_TYPE_NEWDATE);

  FIELD_TYPE_VARCHAR     = Ord(MYSQL_TYPE_VARCHAR);

  FIELD_TYPE_BIT         = Ord(MYSQL_TYPE_BIT);

  FIELD_TYPE_NEWDECIMAL  = Ord(MYSQL_TYPE_NEWDECIMAL);

  FIELD_TYPE_ENUM        = Ord(MYSQL_TYPE_ENUM);

  FIELD_TYPE_SET         = Ord(MYSQL_TYPE_SET);

  FIELD_TYPE_TINY_BLOB   = Ord(MYSQL_TYPE_TINY_BLOB);

  FIELD_TYPE_MEDIUM_BLOB = Ord(MYSQL_TYPE_BLOB);

  FIELD_TYPE_LONG_BLOB   = Ord(MYSQL_TYPE_VAR_STRING);

  FIELD_TYPE_BLOB        = Ord(MYSQL_TYPE_BLOB);

  FIELD_TYPE_VAR_STRING  = Ord(MYSQL_TYPE_VAR_STRING);

  FIELD_TYPE_STRING      = Ord(MYSQL_TYPE_STRING);

  FIELD_TYPE_GEOMETRY    = Ord(MYSQL_TYPE_GEOMETRY);

{$ELSE}

const

  FIELD_TYPE_DECIMAL      = 0;

  FIELD_TYPE_TINY         = 1;

  FIELD_TYPE_SHORT        = 2;

  FIELD_TYPE_LONG         = 3;

  FIELD_TYPE_FLOAT        = 4;

  FIELD_TYPE_DOUBLE       = 5;

  FIELD_TYPE_NULL         = 6;

  FIELD_TYPE_TIMESTAMP    = 7;

  FIELD_TYPE_LONGLONG     = 8;

  FIELD_TYPE_INT24        = 9;

  FIELD_TYPE_DATE         = 10;

  FIELD_TYPE_TIME         = 11;

  FIELD_TYPE_DATETIME     = 12;

  FIELD_TYPE_YEAR         = 13;

  FIELD_TYPE_NEWDATE      = 14;

  FIELD_TYPE_VARCHAR      = 15;

  FIELD_TYPE_BIT          = 16;

  FIELD_TYPE_NEWDECIMAL   = 246;

  FIELD_TYPE_ENUM         = 247;

  FIELD_TYPE_SET          = 248;

  FIELD_TYPE_TINY_BLOB    = 249;

  FIELD_TYPE_MEDIUM_BLOB  = 250;

  FIELD_TYPE_LONG_BLOB    = 251;

  FIELD_TYPE_BLOB         = 252;

  FIELD_TYPE_VAR_STRING   = 253;

  FIELD_TYPE_STRING       = 254;

  FIELD_TYPE_GEOMETRY     = 255;

  MYSQL_TYPE_DECIMAL      = FIELD_TYPE_DECIMAL;

  MYSQL_TYPE_TINY         = FIELD_TYPE_TINY;

  MYSQL_TYPE_SHORT        = FIELD_TYPE_SHORT;

  MYSQL_TYPE_LONG         = FIELD_TYPE_LONG;

  MYSQL_TYPE_FLOAT        = FIELD_TYPE_FLOAT;

  MYSQL_TYPE_DOUBLE       = FIELD_TYPE_DOUBLE;

  MYSQL_TYPE_NULL         = FIELD_TYPE_NULL;

  MYSQL_TYPE_TIMESTAMP    = FIELD_TYPE_TIMESTAMP;

  MYSQL_TYPE_LONGLONG     = FIELD_TYPE_LONGLONG;

  MYSQL_TYPE_INT24        = FIELD_TYPE_INT24;

  MYSQL_TYPE_DATE         = FIELD_TYPE_DATE;

  MYSQL_TYPE_TIME         = FIELD_TYPE_TIME;

  MYSQL_TYPE_DATETIME     = FIELD_TYPE_DATETIME;

  MYSQL_TYPE_YEAR         = FIELD_TYPE_YEAR;

  MYSQL_TYPE_NEWDATE      = FIELD_TYPE_NEWDATE;

  MYSQL_TYPE_VARCHAR      = FIELD_TYPE_VARCHAR;

  MYSQL_TYPE_BIT          = FIELD_TYPE_BIT;

  MYSQL_TYPE_NEWDECIMAL   = FIELD_TYPE_NEWDECIMAL;

  MYSQL_TYPE_ENUM         = FIELD_TYPE_ENUM;

  MYSQL_TYPE_SET          = FIELD_TYPE_SET;

  MYSQL_TYPE_TINY_BLOB    = FIELD_TYPE_TINY_BLOB;

  MYSQL_TYPE_MEDIUM_BLOB  = FIELD_TYPE_MEDIUM_BLOB;

  MYSQL_TYPE_LONG_BLOB    = FIELD_TYPE_LONG_BLOB;

  MYSQL_TYPE_BLOB         = FIELD_TYPE_BLOB;

  MYSQL_TYPE_VAR_STRING   = FIELD_TYPE_VAR_STRING;

  MYSQL_TYPE_STRING       = FIELD_TYPE_STRING;

  MYSQL_TYPE_GEOMETRY     = FIELD_TYPE_GEOMETRY;

type

  enum_field_types = FIELD_TYPE_DECIMAL..FIELD_TYPE_GEOMETRY;

{$ENDIF}

const

  FIELD_TYPE_CHAR        = FIELD_TYPE_TINY;  // For compability

  FIELD_TYPE_INTERVAL    = FIELD_TYPE_ENUM;  // For compability

// ------------------------

// From mysql_version.h ...

// ------------------------

const

  PROTOCOL_VERSION = 10;

  MYSQL_SERVER_SUFFIX = '';

  FRM_VER = 6;

  MYSQL_PORT = 3306;

// ----------------

// From mysql.h ...

// ----------------

function IS_PRI_KEY(n: longword): boolean;

function IS_AUTO_INC(n: longword): boolean;

function IS_NOT_NULL(n: longword): boolean;

function IS_BLOB(n: longword): boolean;

{.$IFDEF CONDITIONALEXPRESSIONS} {Delphi 6 and above}

function IS_NUM(t: enum_field_types): boolean;

function IS_LONGDATA(t: enum_field_types): boolean;

{ $ELSE

function IS_NUM(t: longword): boolean;

function IS_LONGDATA(t: longword): boolean;

 $ENDIF}

type

  TMYSQL_FIELD323 = record

    name: PAnsiChar;          // Name of column

    table: PAnsiChar;         // Table of column if column was a field

    def: PAnsiChar;           // 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;

  TMYSQL_FIELD400 = record

    name: PAnsiChar;          // Name of column

    table: PAnsiChar;         // Table of column if column was a field

    org_table: PAnsiChar;     // Org table name if table was an alias

    db: PAnsiChar;            // Database for table

    def: PAnsiChar;           // Default value (set by mysql_list_fields)

    length: longword;         // Width of column

    max_length: longword;     // Max width of selected set

    flags: longword;          // Div flags

    decimals: longword;       // Number of decimals in field

    _type: enum_field_types;  // Type of field. Se mysql_com.h for types

  end;

  TMYSQL_FIELD401 = record

    name: PAnsiChar;          // Name of column

    org_name: PAnsiChar;      // Original column name, if an alias

    table: PAnsiChar;         // Table of column if column was a field

    org_table: PAnsiChar;     // Org table name if table was an alias

    db: PAnsiChar;            // Database for table

    catalog: PAnsiChar;       // Catalog for table

    def: PAnsiChar;           // Default value (set by mysql_list_fields)

    length: longword;         // Width of column

    max_length: longword;     // Max width of selected set

    name_length: longword;

    org_name_length: longword;

    table_length: longword;

    org_table_length: longword;

    db_length: longword;

    catalog_length: longword;

    def_length: longword;

    flags: longword;          // Div flags

    decimals: longword;       // Number of decimals in field

    charsetnr: longword;      // Character set

    _type: enum_field_types;  // Type of field. Se mysql_com.h for types

  end;

  TMYSQL_FIELD501 = record

    name: PAnsiChar;          // Name of column

    org_name: PAnsiChar;      // Original column name, if an alias

    table: PAnsiChar;         // Table of column if column was a field

    org_table: PAnsiChar;     // Org table name if table was an alias

    db: PAnsiChar;            // Database for table

    catalog: PAnsiChar;       // Catalog for table

    def: PAnsiChar;           // Default value (set by mysql_list_fields)

    length: longword;         // Width of column

    max_length: longword;     // Max width of selected set

    name_length: longword;

    org_name_length: longword;

    table_length: longword;

    org_table_length: longword;

    db_length: longword;

    catalog_length: longword;

    def_length: longword;

    flags: longword;          // Div flags

    decimals: longword;       // Number of decimals in field

    charsetnr: longword;      // Character set

    _type: enum_field_types;  // Type of field. Se mysql_com.h for types

    extension: Pointer;

  end;

  TMYSQL_FIELD = TMYSQL_FIELD401;

  PMYSQL_FIELD = Pointer;

{$IFDEF CONDITIONALEXPRESSIONS}

   {$IF SizeOf(TMYSQL_FIELD323)<>32}

   {$Message Fatal 'Wrong size of TMYSQL_FIELD323'}

   {$IFEND}

   {$IF SizeOf(TMYSQL_FIELD400)<>40}

   {$Message Fatal 'Wrong size of TMYSQL_FIELD400'}

   {$IFEND}

   {$IF SizeOf(TMYSQL_FIELD401)<>80}

   {$Message Fatal 'Wrong size of TMYSQL_FIELD401'}

   {$IFEND}

   {$IF SizeOf(TMYSQL_FIELD501)<>84}

   {$Message Fatal 'Wrong size of TMYSQL_FIELD501'}

   {$IFEND}

{$ENDIF}

function IS_NUM_FLAG(n: longword): boolean;

function INTERNAL_NUM_FIELD(f: PMYSQL_FIELD): boolean;

{ Copy the content of a unspecific field to a well defined field record }

function UpdateField(f: PMYSQL_FIELD): TMYSQL_FIELD;

{ Get fieldtype of the field }

function mysql_field_type(f: PMYSQL_FIELD): enum_field_types;

{ Get fieldflags of the field }

function mysql_field_flag(f: PMYSQL_FIELD): longword;

{ Get Length of the field }

function mysql_field_length(f: PMYSQL_FIELD): longword;

{ Get the name of the field }

function mysql_field_name(f: PMYSQL_FIELD): PAnsiChar;

{ Get the corresponding tablename of the field }

function mysql_field_tablename(f: PMYSQL_FIELD): PAnsiChar;

type

  PMYSQL_ROW = ^TMYSQL_ROW;   // return data as array of strings

  TMYSQL_ROW = array[0..MaxInt div SizeOf(PAnsiChar) - 1] of PAnsiChar;

type

  MYSQL_FIELD_OFFSET = longword;  // offset to current field

const

  MYSQL_COUNT_ERROR: my_ulonglong = 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_DATA323 = ^TMYSQL_DATA323;

  TMYSQL_DATA323 = record

    rows: my_ulonglong;

    fields: longword;

    data: PMYSQL_ROWS;

    alloc: TMEM_ROOT323;

  end;

  PMYSQL_DATA400 = ^TMYSQL_DATA400;

  TMYSQL_DATA400 = record

    rows: my_ulonglong;

    fields: longword;

    data: PMYSQL_ROWS;

    alloc: TMEM_ROOT400;

  end;

type

  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, MYSQL_OPT_LOCAL_INFILE,

  MYSQL_OPT_PROTOCOL, MYSQL_SHARED_MEMORY_BASE_NAME, MYSQL_OPT_READ_TIMEOUT,

  MYSQL_OPT_WRITE_TIMEOUT, MYSQL_OPT_USE_RESULT,

  MYSQL_OPT_USE_REMOTE_CONNECTION, MYSQL_OPT_USE_EMBEDDED_CONNECTION,

  MYSQL_OPT_GUESS_CONNECTION, MYSQL_SET_CLIENT_IP, MYSQL_SECURE_AUTH,

  MYSQL_REPORT_DATA_TRUNCATION, MYSQL_OPT_RECONNECT,

  MYSQL_OPT_SSL_VERIFY_SERVER_CERT

  );

type

  enum_mysql_set_option = (MYSQL_OPTION_MULTI_STATEMENTS_ON, MYSQL_OPTION_MULTI_STATEMENTS_OFF);

type

  PMYSQL_OPTIONS = Pointer;

  TMYSQL_OPTIONS323 = record

    connect_timeout, client_flag: longword;

    compress, named_pipe: my_bool;

    port: longword;

    host, init_command, user, password, unix_socket, db: PAnsiChar;

    my_cnf_file, my_cnf_group, charset_dir, charset_name: PAnsiChar;

    use_ssl: my_bool;       // if to use SSL or not

    ssl_key: PAnsiChar;     // PEM key file

    ssl_cert: PAnsiChar;    // PEM cert file

    ssl_ca: PAnsiChar;      // PEM CA file

    ssl_capath: PAnsiChar;  // PEM directory of CA-s?

  end;

  TMYSQL_OPTIONS400 = record

    connect_timeout, client_flag: longword;

    port: longword;

    host, init_command, user, password, unix_socket, db: PAnsiChar;

    my_cnf_file, my_cnf_group, charset_dir, charset_name: PAnsiChar;

    ssl_key: PAnsiChar;     // PEM key file

    ssl_cert: PAnsiChar;    // PEM cert file

    ssl_ca: PAnsiChar;      // PEM CA file

    ssl_capath: PAnsiChar;  // PEM directory of CA-s?

    ssl_cipher: PAnsiChar;  // cipher to use

    max_allowed_packet: longword;

    use_ssl: my_bool;       // if to use SSL or not

    compress, named_pipe: my_bool;

    rpl_probe: my_bool;

    rpl_parse: my_bool;

    no_master_reads: my_bool;

  end;

  TMYSQL_OPTIONS401 = record

    connect_timeout, read_timeout, write_timeout: longword;

    port, protocol: longword;

    client_flag: longword;

    host, user, password, unix_socket, db: PAnsiChar;

    init_commands: PAnsiChar;

    my_cnf_file, my_cnf_group, charset_dir, charset_name: PAnsiChar;

    ssl_key: PAnsiChar;     // PEM key file

    ssl_cert: PAnsiChar;    // PEM cert file

    ssl_ca: PAnsiChar;      // PEM CA file

    ssl_capath: PAnsiChar;  // PEM directory of CA-s?

    ssl_cipher: PAnsiChar;  // cipher to use

    shared_memory_base_name: PAnsiChar;

    max_allowed_packet: longword;

    use_ssl: my_bool;       // if to use SSL or not

    compress, named_pipe: my_bool;

    rpl_probe: my_bool;

    rpl_parse: my_bool;

    no_master_reads: my_bool;

//    separate_thread: my_bool;

    methods_to_use: mysql_option;

    client_ip: PAnsiChar;

    secure_auth: my_bool;

    // function pointers for local infile support

    local_infile_init: Pointer;

    local_infile_read: Pointer;

    local_infile_end: Pointer;

    local_infile_error: Pointer;

    local_infile_userdata: Pointer;

  end;

  TMYSQL_OPTIONS500 = record

    connect_timeout, read_timeout, write_timeout: longword;

    port, protocol: longword;

    client_flag: longword;

    host, user, password, unix_socket, db: PAnsiChar;

    init_commands: PAnsiChar;

    my_cnf_file, my_cnf_group, charset_dir, charset_name: PAnsiChar;

    ssl_key: PAnsiChar;     // PEM key file

    ssl_cert: PAnsiChar;    // PEM cert file

    ssl_ca: PAnsiChar;      // PEM CA file

    ssl_capath: PAnsiChar;  // PEM directory of CA-s?

    ssl_cipher: PAnsiChar;  // cipher to use

    shared_memory_base_name: PAnsiChar;

    max_allowed_packet: longword;

    use_ssl: my_bool;       // if to use SSL or not

    compress, named_pipe: my_bool;

    rpl_probe: my_bool;

    rpl_parse: my_bool;

    no_master_reads: my_bool;

//    separate_thread: my_bool;

    methods_to_use: mysql_option;

    client_ip: PAnsiChar;

    secure_auth: my_bool;

    report_data_truncation: my_bool;

    // function pointers for local infile support

    local_infile_init: Pointer;

    local_infile_read: Pointer;

    local_infile_end: Pointer;

    local_infile_error: Pointer;

    local_infile_userdata: Pointer;

  end;

type

  mysql_status = (MYSQL_STATUS_READY, MYSQL_STATUS_GET_RESULT, MYSQL_STATUS_USE_RESULT);

type

  PMYSQL_FIELDS=Pointer;

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 = Pointer;

  TMYSQL323 = record

    net: TNET323;                 // Communication parameters

    connector_fd: gptr;           // ConnectorFd for SSL

    host, user, passwd, unix_socket, server_version, host_info, info, db: PAnsiChar;     //  260, 264, 268, 272, 276, 280, 284

    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: longword;             //seems to be a longword

//    status: mysql_status;

    fields: PMYSQL_FIELDS;

    field_alloc: TMEM_ROOT323;

    free_me: my_bool;             // If free in mysql_close

    reconnect: my_bool;           // set to 1 if automatic reconnect

    options: TMYSQL_OPTIONS323;

    scramble_buff: array [0..SCRAMBLE_LENGTH_323] of AnsiChar;

    charset: PCHARSET_INFO;

    server_language: longword;

  end;

  TMYSQL400 = record

    net: TNET400;                 // Communication parameters

    connector_fd: gptr;           // ConnectorFd for SSL

    host, user, passwd, unix_socket, server_version, host_info, info, db: PAnsiChar;     //  260, 264, 268, 272, 276, 280, 284

    charset: PCHARSET_INFO;

    fields: PMYSQL_FIELDS;

    field_alloc: TMEM_ROOT400;

    affected_rows: my_ulonglong;

    insert_id: my_ulonglong;      // id if insert on table with NEXTNR

    extra_info: my_ulonglong;     // Used by mysqlshow

    thread_id: longword;          // Id for connection in server

    packet_length: longword;

    port, client_flag, server_capabilities: longword;

    protocol_version: longword;

    field_count: longword;

    server_status: longword;

    server_language: longword;

    options: TMYSQL_OPTIONS400;

    status: longword;             //seems to be a longword

//    status: mysql_status;

    free_me: my_bool;             // If free in mysql_close

    reconnect: my_bool;           // set to 1 if automatic reconnect

    scramble_buff: array [0..SCRAMBLE_LENGTH_323] of AnsiChar;

    rpl_pivot: my_bool;

    master, next_slave: PMYSQL;

    last_used_slave: PMYSQL; //* needed for round-robin slave pick */

    //* needed for send/read/store/use result to work correctly with replication */

    last_used_con: PMYSQL;

  end;

  TMYSQL401 = record

    net: TNET401;                 // Communication parameters

    connector_fd: gptr;           // ConnectorFd for SSL

    host, user, passwd, unix_socket, server_version, host_info, info, db: PAnsiChar;     //  260, 264, 268, 272, 276, 280, 284

    charset: PCHARSET_INFO;

    fields: PMYSQL_FIELDS;

    field_alloc: TMEM_ROOT400;

    affected_rows: my_ulonglong;

    insert_id: my_ulonglong;      // id if insert on table with NEXTNR

    extra_info: my_ulonglong;     // Used by mysqlshow

    thread_id: longword;          // Id for connection in server

    packet_length: longword;

    port, client_flag, server_capabilities: longword;

    protocol_version: longword;

    field_count: longword;

    server_status: longword;

    server_language: longword;

    warning_count: longword;

    options: TMYSQL_OPTIONS401;

    status: mysql_status;

    free_me: my_bool;             // If free in mysql_close

    reconnect: my_bool;           // set to 1 if automatic reconnect

    scramble_buff: array [0..SCRAMBLE_LENGTH] of AnsiChar;

    rpl_pivot: my_bool;

    master, next_slave: PMYSQL;

    last_used_slave: PMYSQL;      //* needed for round-robin slave pick */

    //* needed for send/read/store/use result to work correctly with replication */

    last_used_con: PMYSQL;

    stmts: Pointer;               // list of all statements

    methods: Pointer;

    thd: Pointer;

    unbuffered_fetch_owner: Pmy_bool;

    current_stmt: Pointer;

  end;

  TMYSQL500 = record

    net: TNET500;                 // Communication parameters

    connector_fd: gptr;           // ConnectorFd for SSL

    host, user, passwd, unix_socket, server_version, host_info, info, db: PAnsiChar;

    charset: PCHARSET_INFO;

    fields: PMYSQL_FIELDS;

    field_alloc: TMEM_ROOT400;

    affected_rows: my_ulonglong;

    insert_id: my_ulonglong;      // id if insert on table with NEXTNR

    extra_info: my_ulonglong;     // Used by mysqlshow

    thread_id: longword;          // Id for connection in server

    packet_length: longword;

    port, client_flag, server_capabilities: longword;

    protocol_version: longword;

    field_count: longword;

    server_status: longword;

    server_language: longword;

    warning_count: longword;

    options: TMYSQL_OPTIONS500;

    status: mysql_status;

    free_me: my_bool;             // If free in mysql_close

    reconnect: my_bool;           // set to 1 if automatic reconnect

    scramble_buff: array [0..SCRAMBLE_LENGTH] of AnsiChar;

    rpl_pivot: my_bool;

    master, next_slave: PMYSQL;

    last_used_slave: PMYSQL;      //* needed for round-robin slave pick */

    //* needed for send/read/store/use result to work correctly with replication */

    last_used_con: PMYSQL;

    stmts: Pointer;               // list of all statements

    methods: Pointer;

    thd: Pointer;

    unbuffered_fetch_owner: Pmy_bool;

    info_buffer: Pointer;         // some info for embedded server

  end;

  TMYSQL501 = record

    net: TNET501;                 // Communication parameters

    connector_fd: gptr;           // ConnectorFd for SSL

    host, user, passwd, unix_socket, server_version, host_info, info, db: PAnsiChar;

    charset: PCHARSET_INFO;

    fields: PMYSQL_FIELDS;

    field_alloc: TMEM_ROOT400;

    affected_rows: my_ulonglong;

    insert_id: my_ulonglong;      // id if insert on table with NEXTNR

    extra_info: my_ulonglong;     // Used by mysqlshow

    thread_id: longword;          // Id for connection in server

    packet_length: longword;

    port, client_flag, server_capabilities: longword;

    protocol_version: longword;

    field_count: longword;

    server_status: longword;

    server_language: longword;

    warning_count: longword;

    options: TMYSQL_OPTIONS500;

    status: mysql_status;

    free_me: my_bool;             // If free in mysql_close

    reconnect: my_bool;           // set to 1 if automatic reconnect

    scramble_buff: array [0..SCRAMBLE_LENGTH] of AnsiChar;

    rpl_pivot: my_bool;

    master, next_slave: PMYSQL;

    last_used_slave: PMYSQL;      //* needed for round-robin slave pick */

    //* needed for send/read/store/use result to work correctly with replication */

    last_used_con: PMYSQL;

    stmts: Pointer;               // list of all statements

    methods: Pointer;

    thd: Pointer;

    unbuffered_fetch_owner: Pmy_bool;

    info_buffer: Pointer;         // some info for embedded server

    extension: Pointer;

  end;

type

  PMYSQL_RES = Pointer;

  TMYSQL_RES323 = record

    row_count: my_ulonglong;

    field_count, current_field: longword;

    fields: PMYSQL_FIELDS;

    data: PMYSQL_DATA323;

    data_cursor: PMYSQL_ROWS;

    field_alloc: TMEM_ROOT323;

    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;

  TMYSQL_RES400 = record

    row_count: my_ulonglong;

    field_count, current_field: longword;

    fields: PMYSQL_FIELDS;

    data: PMYSQL_DATA400;

    data_cursor: PMYSQL_ROWS;

    field_alloc: TMEM_ROOT400;

    row: PMYSQL_ROW;              // If unbuffered read

    current_row: PMYSQL_ROW;      // buffer to current row