[Crossplatform] MySQL Wrapper

Share your advanced PureBasic knowledge/code with the community.
Post Reply
Thalius
Enthusiast
Enthusiast
Posts: 711
Joined: Thu Jul 17, 2003 4:15 pm
Contact:
Contact Thalius

[Crossplatform] MySQL Wrapper

Post by Thalius »

One of my projects i ve been using Flype's MYSQL Lib ( and am pretty happy with it ) but now came the question about a Linuxport of this project. So i had to whip me some wrapping functions around. Figured ill extend it a bit and post here. I didnt want to use ODBC because a. i would have to have to rewrite alot of code in the Project and b. the gann thing broke again as i upgraded to Susi 10.3 :| - well, at least this one should even run on mac :)


Code: Select all

; MySQL 5 DLL-Wrapper Include - Version: 0.2b
; OS: Linux / Windows / AmigaOS / MacOSX ? ( can somone test this ? )
; Author: Marius Eckardt (Thalius) 
; Syntaxcompatible & based on LibMySQL by Flype
; Last Changes: 29.10.2007
;
; Inspired by Flype's Userlib for Windows - i just needed a Version that runs under Linux aswell.
; There could have been alot of more checks/wraps, but in favor of speed and compatibility with Flype's
; Userlib i kept the Syntax the same.
;
; Requirements ( Version 5x of ):
; Linux  : libmysqlclient.so  - ( installed with "mysql-shared" Pakages )
; MacOSX : libmysqlclient.so
; Windows: libmysql.dll 
; AmigaOS: mysqlclient.library
;
; ToDo:
;  - Bugfixes ! ( getting used to Prototype's ... ;)
;  - Descriptions / Examples
;  - stmt functions
; -----------------------------------------------------------------------------------------------

;- Konstants
#MySQLLib = 0

;- OS Check
CompilerSelect #PB_Compiler_OS
  CompilerCase #PB_OS_Windows
    MysqlDllFilename$ = "libmysql.dll"
  CompilerCase #PB_OS_Linux
    MysqlDllFilename$ = "libmysqlclient.so"
  CompilerCase #PB_OS_MacOS
    MysqlDllFilename$ = "libmysqlclient.so"
  CompilerCase #PB_OS_AmigaOS
    MysqlDllFilename$ = "mysqlclient.library"
CompilerEndSelect

;- Initialization / OpenDLL
; Macro: InitMySQL() to initialize the MySQL DLL ( call me just once! ) 
Macro InitMySQL()

;- Structures
Structure MYSQL
EndStructure
Structure MYSQL_RES
EndStructure
Structure MYSQL_BIND
EndStructure
Structure MYSQL_STMT
EndStructure

Structure MYSQL_ROW
  field.s[255]
EndStructure
Structure MYSQL_FIELD
  name.s
  org_name.s
  table.s
  org_table.s
  db.s
  catalog.s
  def.s
  length.l
  max_length.l
  name_length.l
  org_name_length.l
  table_length.l
  org_table_length.l
  db_length.l
  catalog_length.l
  def_length.l
  flags.l
  decimals.l
  charset_nr.l
  type.l
EndStructure
Structure MY_CHARSET_INFO
  number.l
  state.l
  csname.s
  name.s
  Comment.s
  dir.s
  mbminlen.l
  mbmaxlen.l
EndStructure

If OpenLibrary(#MySQLLib, MysqlDllFilename$)
  If IsLibrary(#MySQLLib)
  
  ; ** Start Prototypes **
  
  ; Function : mysql_get_client_info()
  ; Usage    : PeekS(mysql_get_client_info())
  ; Desc     : Returns Pointer to Version STRING of Mysql Client
  PrototypeC.l PB_mysql_get_client_info() : Global mysql_get_client_info.PB_mysql_get_client_info = GetFunction(#MySQLLib,"mysql_get_client_info")
  
  ; Function : mysql_get_client_version()
  ; Usage    : Result.l = mysql_get_client_version()
  ; Desc     : Returns Versionnumber as LONG of Mysql Client
  PrototypeC.l PB_mysql_get_client_version() : Global mysql_get_client_version.PB_mysql_get_client_version = GetFunction(#MySQLLib,"mysql_get_client_version")
  
  ; Function : mysql_errno()
  ; Usage    : Result.l = mysql_get_client_info(*MySQLHandle)
  ; Desc     : Returns Error No as LONG
  PrototypeC.l PB_mysql_errno(*mysql.MYSQL) : Global mysql_errno.PB_mysql_errno = GetFunction(#MySQLLib,"mysql_errno")
  
  ; Function : mysql_init()
  ; Usage    : *MySQLHandle = mysql_init(#Null)
  ; Desc     : Returns MySQL DB Handle as LONG
  PrototypeC.l PB_mysql_init(*mysql.MYSQL) : Global mysql_init.PB_mysql_init = GetFunction(#MySQLLib,"mysql_init")
  
  ; Function : mysql_real_connect(*mysql.MYSQL,host.s,user.s,passwd.s,db.s,port.l,unix_socket.s,client_flag.l)
  ; Usage    : Result.l = mysql_real_connect(*mysql.MYSQL,host.s,user.s,passwd.s,db.s,port.l,unix_socket.s,client_flag.l)
  ; Desc     : 
  PrototypeC.l PB_mysql_real_connect(*mysql.MYSQL,host.s,user.s,passwd.s,db.s,port.l,unix_socket.s,client_flag.l) :  mysql_real_connect.PB_mysql_real_connect = GetFunction(#MySQLLib,"mysql_real_connect")
  
  ; Function : mysql_get_parameters()
  ; Usage    : debug Hex(mysql_get_parameters())
  ; Desc     : 
  PrototypeC.l PB_mysql_get_parameters() : Global mysql_get_parameters.PB_mysql_get_parameters = GetFunction(#MySQLLib,"mysql_get_parameters")
  
  ; Function : mysql_sqlstate()
  ; Usage    : State.s = PeekS(mysql_sqlstate(*MySQLHandle))
  ; Desc     : 
  PrototypeC.l PB_mysql_sqlstate(*mysql.MYSQL) : Global mysql_sqlstate.PB_mysql_sqlstate = GetFunction(#MySQLLib,"mysql_sqlstate")
  
  ; Function : mysql_error()
  ; Usage    : PeekS(mysql_error(*MySQLHandle))
  ; Desc     : Returns Pointer as LONG to ErrormessageString 
  PrototypeC.l PB_mysql_error(*mysql.MYSQL) : Global mysql_error.PB_mysql_error = GetFunction(#MySQLLib,"mysql_error")
  
  ; Function : mysql_get_server_version()
  ; Usage    : Result.l = mysql_get_server_version(*MySQLHandle)
  ; Desc     : Returns LONG from ServerVersion
  PrototypeC.l PB_mysql_get_server_version(*mysql.MYSQL) : Global mysql_get_server_version.PB_mysql_get_server_version = GetFunction(#MySQLLib,"mysql_get_server_version")
  
  ; Function : mysql_get_server_info()
  ; Usage    : PeekS(mysql_get_server_info(*MySQLHandle))
  ; Desc     : Returns Pointer as LONG to ServerInfoString 
  PrototypeC.l PB_mysql_get_server_info(*mysql.MYSQL) : Global mysql_get_server_info.PB_mysql_get_server_info = GetFunction(#MySQLLib,"mysql_get_server_info")
  
  ; Function : mysql_get_host_info()
  ; Usage    : PeekS(mysql_get_host_info(*MySQLHandle))
  ; Desc     : Returns Pointer as LONG to HostInfoString / Connectioninfo
  PrototypeC.l PB_mysql_get_host_info(*mysql.MYSQL) : Global mysql_get_host_info.PB_mysql_get_host_info = GetFunction(#MySQLLib,"mysql_get_host_info")
  
  ; Function : mysql_select_db()
  ; Usage    : mysql_select_db(*MySQLHandle, Databasename.s)
  ; Desc     : Selects current Database
  PrototypeC.l PB_mysql_select_db(*mysql.MYSQL, Databasename.s) : Global mysql_select_db.PB_mysql_select_db = GetFunction(#MySQLLib,"mysql_select_db")
  
  ; Function : mysql_get_proto_info()
  ; Usage    : Result.l = mysql_get_proto_info(*MySQLHandle))
  ; Desc     : 
  PrototypeC.l PB_mysql_get_proto_info(*mysql.MYSQL) : Global mysql_get_proto_info.PB_mysql_get_proto_info = GetFunction(#MySQLLib,"mysql_get_proto_info")
  
  ; Function : mysql_info()
  ; Usage    : Result.l = mysql_info(*MySQLHandle))
  ; Desc     : 
  PrototypeC.l PB_mysql_info(*mysql.MYSQL) : Global mysql_info.PB_mysql_info = GetFunction(#MySQLLib,"mysql_info")
  
  ; Function : mysql_insert_id()
  ; Usage    : Result.l = mysql_insert_id(*MySQLHandle))
  ; Desc     : Returns Inserted ID as LONG
  PrototypeC.l PB_mysql_insert_id(*mysql.MYSQL) : Global mysql_insert_id.PB_mysql_insert_id = GetFunction(#MySQLLib,"mysql_insert_id")
  
  ; Function : mysql_affected_rows()
  ; Usage    : Result.l = mysql_affected_rows(*MySQLHandle))
  ; Desc     : 
  PrototypeC.l PB_mysql_affected_rows(*mysql.MYSQL) : Global mysql_affected_rows.PB_mysql_affected_rows = GetFunction(#MySQLLib,"mysql_affected_rows")
  
  ; Function : mysql_autocommit()
  ; Usage    : mysql_autocommit(*MySQLHandle,#Bool) ; #True / #False
  ; Desc     : 
  PrototypeC.l PB_mysql_autocommit(*mysql.MYSQL,*mode.Byte) : Global mysql_autocommit.PB_mysql_autocommit = GetFunction(#MySQLLib,"mysql_autocommit")
  
  ; Function : mysql_character_set_name()
  ; Usage    : mysql_character_set_name(*MySQLHandle) 
  ; Desc     : 
  PrototypeC.l PB_mysql_character_set_name(*mysql.MYSQL) : Global mysql_character_set_name.PB_mysql_character_set_name = GetFunction(#MySQLLib,"mysql_character_set_name")
  
  ; Function : mysql_close()
  ; Usage    : mysql_close(*MySQLHandle) 
  ; Desc     : Closes the MySQL Connection
  PrototypeC.l PB_mysql_close(*mysql.MYSQL) : Global mysql_close.PB_mysql_close = GetFunction(#MySQLLib,"mysql_close")
  
  ; Function : mysql_commit()
  ; Usage    : mysql_commit(*MySQLHandle) 
  ; Desc     : 
  PrototypeC.l PB_mysql_commit(*mysql.MYSQL) : Global mysql_commit.PB_mysql_commit = GetFunction(#MySQLLib,"mysql_commit")
  
  ; Function : mysql_debug()
  ; Usage    : mysql_debug(DebugString.s) 
  ; Desc     : 
  PrototypeC.l PB_mysql_debug(DebugString.s) : Global mysql_debug.PB_mysql_debug = GetFunction(#MySQLLib,"mysql_debug")
  
  ; Function : mysql_disable_reads_from_master()
  ; Usage    : mysql_disable_reads_from_master(*MySQLHandle) 
  ; Desc     : 
  PrototypeC.l PB_mysql_disable_reads_from_master(*mysql.MYSQL) : Global mysql_disable_reads_from_master.PB_mysql_disable_reads_from_master = GetFunction(#MySQLLib,"mysql_disable_reads_from_master")
  
  ; Function : mysql_disable_rpl_parse()
  ; Usage    : mysql_disable_rpl_parse(*MySQLHandle) 
  ; Desc     : 
  PrototypeC.l PB_mysql_disable_rpl_parse(*mysql.MYSQL) : Global mysql_disable_rpl_parse.PB_mysql_disable_rpl_parse = GetFunction(#MySQLLib,"mysql_disable_rpl_parse")
  
  ; Function : mysql_dumPB_debug_info()
  ; Usage    : mysql_dumPB_debug_info(*MySQLHandle) 
  ; Desc     : 
  PrototypeC.l PB_mysql_dumPB_debug_info(*mysql.MYSQL) : Global mysql_dumPB_debug_info.PB_mysql_dumPB_debug_info = GetFunction(#MySQLLib,"mysql_dumPB_debug_info")
  
  ; Function : mysql_embedded()
  ; Usage    : mysql_embedded() 
  ; Desc     : 
  PrototypeC.l PB_mysql_embedded() : Global mysql_embedded.PB_mysql_embedded = GetFunction(#MySQLLib,"mysql_embedded")
  
  ; Function : mysql_enable_reads_from_master()
  ; Usage    : mysql_enable_reads_from_master(*MySQLHandle) 
  ; Desc     : 
  PrototypeC.l PB_mysql_enable_reads_from_master(*mysql.MYSQL) : Global mysql_enable_reads_from_master.PB_mysql_enable_reads_from_master = GetFunction(#MySQLLib,"mysql_enable_reads_from_master")
  
  ; Function : mysql_enable_rpl_parse()
  ; Usage    : mysql_enable_rpl_parse(*MySQLHandle) 
  ; Desc     : 
  PrototypeC.l PB_mysql_enable_rpl_parse(*mysql.MYSQL) : Global mysql_enable_rpl_parse.PB_mysql_enable_rpl_parse = GetFunction(#MySQLLib,"mysql_enable_rpl_parse")
  
  ; Function : mysql_field_count()
  ; Usage    : mysql_field_count(*MySQLHandle) 
  ; Desc     : 
  PrototypeC.l PB_mysql_field_count(*mysql.MYSQL) : Global mysql_field_count.PB_mysql_field_count = GetFunction(#MySQLLib,"mysql_field_count")
  
  ; Function : mysql_library_end()
  ; Usage    : mysql_library_end(*MySQLHandle) 
  ; Desc     : 
  PrototypeC.l PB_mysql_library_end(*mysql.MYSQL) : Global mysql_library_end.PB_mysql_library_end = GetFunction(#MySQLLib,"mysql_library_end")
  
  ; Function : mysql_list_processes()
  ; Usage    : mysql_list_processes(*MySQLHandle) 
  ; Desc     : 
  PrototypeC.l PB_mysql_list_processes(*mysql.MYSQL) : Global mysql_list_processes.PB_mysql_list_processes = GetFunction(#MySQLLib,"mysql_list_processes")
  
  ; Function : mysql_more_results()
  ; Usage    : mysql_more_results(*MySQLHandle) 
  ; Desc     : 
  PrototypeC.l PB_mysql_more_results(*mysql.MYSQL) : Global mysql_more_results.PB_mysql_more_results = GetFunction(#MySQLLib,"mysql_more_results")
  
  ; Function : mysql_next_result()
  ; Usage    : mysql_next_result(*MySQLHandle) 
  ; Desc     : 
  PrototypeC.l PB_mysql_next_result(*mysql.MYSQL) : Global mysql_next_result.PB_mysql_next_result = GetFunction(#MySQLLib,"mysql_next_result")
  
  ; Function : mysql_ping()
  ; Usage    : mysql_ping(*MySQLHandle) 
  ; Desc     : 
  PrototypeC.l PB_mysql_ping(*mysql.MYSQL) : Global mysql_ping.PB_mysql_ping = GetFunction(#MySQLLib,"mysql_ping")
  
  ; Function : mysql_read_query_result()
  ; Usage    : mysql_read_query_result(*MySQLHandle) 
  ; Desc     : 
  PrototypeC.l PB_mysql_read_query_result(*mysql.MYSQL) : Global mysql_read_query_result.PB_mysql_read_query_result = GetFunction(#MySQLLib,"mysql_read_query_result")
  
  ; Function : mysql_reload()
  ; Usage    : mysql_reload(*MySQLHandle) 
  ; Desc     : 
  PrototypeC.l PB_mysql_reload(*mysql.MYSQL) : Global mysql_reload.PB_mysql_reload = GetFunction(#MySQLLib,"mysql_reload")
  
  ; Function : mysql_rollback()
  ; Usage    : mysql_rollback(*MySQLHandle) 
  ; Desc     : 
  PrototypeC.l PB_mysql_rollback(*mysql.MYSQL) : Global mysql_rollback.PB_mysql_rollback = GetFunction(#MySQLLib,"mysql_rollback")
  
  ; Function : mysql_rpl_parse_enabled()
  ; Usage    : mysql_rpl_parse_enabled(*MySQLHandle) 
  ; Desc     : 
  PrototypeC.l PB_mysql_rpl_parse_enabled(*mysql.MYSQL) : Global mysql_rpl_parse_enabled.PB_mysql_rpl_parse_enabled = GetFunction(#MySQLLib,"mysql_rpl_parse_enabled")
  
  ; Function : mysql_rpl_probe()
  ; Usage    : mysql_rpl_probe(*MySQLHandle) 
  ; Desc     : 
  PrototypeC.l PB_mysql_rpl_probe(*mysql.MYSQL) : Global mysql_rpl_probe.PB_mysql_rpl_probe = GetFunction(#MySQLLib,"mysql_rpl_probe")
  
  ; Function : mysql_server_end()
  ; Usage    : mysql_server_end() 
  ; Desc     : 
  PrototypeC.l PB_mysql_server_end() : Global mysql_server_end.PB_mysql_server_end = GetFunction(#MySQLLib,"mysql_server_end")
  
  ; Function : mysql_thread_end()
  ; Usage    : mysql_thread_end() 
  ; Desc     : 
  PrototypeC.l PB_mysql_thread_end() : Global mysql_thread_end.PB_mysql_thread_end = GetFunction(#MySQLLib,"mysql_thread_end")
  
  ; Function : mysql_thread_init()
  ; Usage    : mysql_thread_init() 
  ; Desc     : 
  PrototypeC.l PB_mysql_thread_init() : Global mysql_thread_init.PB_mysql_thread_init = GetFunction(#MySQLLib,"mysql_thread_init")
  
  ; Function : mysql_thread_safe()
  ; Usage    : mysql_thread_safe() 
  ; Desc     : 
  PrototypeC.l PB_mysql_thread_safe() : Global mysql_thread_safe.PB_mysql_thread_safe = GetFunction(#MySQLLib,"mysql_thread_safe")
  
  ; Function : mysql_stat()
  ; Usage    : mysql_stat(*MySQLHandle) 
  ; Desc     : 
  PrototypeC.l PB_mysql_stat(*mysql.MYSQL) : Global mysql_stat.PB_mysql_stat = GetFunction(#MySQLLib,"mysql_stat")
  
  ; Function : mysql_store_result()
  ; Usage    : *MySQLResult = mysql_store_result(*MySQLHandle) 
  ; Desc     : 
  PrototypeC.l PB_mysql_store_result(*mysql.MYSQL) : Global mysql_store_result.PB_mysql_store_result = GetFunction(#MySQLLib,"mysql_store_result")
  
  ; Function : mysql_thread_id()
  ; Usage    : Result.l = mysql_thread_id(*MySQLHandle) 
  ; Desc     : 
  PrototypeC.l PB_mysql_thread_id(*mysql.MYSQL) : Global mysql_thread_id.PB_mysql_thread_id = GetFunction(#MySQLLib,"mysql_thread_id")
  
  ; Function : mysql_use_result()
  ; Usage    : mysql_use_result(*MySQLHandle) 
  ; Desc     : 
  PrototypeC.l PB_mysql_use_result(*mysql.MYSQL) : Global mysql_use_result.PB_mysql_use_result = GetFunction(#MySQLLib,"mysql_use_result")
  
  ; Function : mysql_warning_count()
  ; Usage    : mysql_warning_count(*MySQLHandle) 
  ; Desc     : 
  PrototypeC.l PB_mysql_warning_count(*mysql.MYSQL) : Global mysql_warning_count.PB_mysql_warning_count = GetFunction(#MySQLLib,"mysql_warning_count")
  
  ; Function : mysql_change_user()
  ; Usage    : mysql_change_user(*MySQLHandle, user.s, passwd.s, db.s) 
  ; Desc     : 
  PrototypeC.l PB_mysql_change_user(*mysql.MYSQL,user.s,passwd.s,db.s) : Global mysql_change_user.PB_mysql_change_user = GetFunction(#MySQLLib,"mysql_change_user")
  
  ; Function : mysql_data_seek()
  ; Usage    : mysql_data_seek(*MySQLResult, offset.d) 
  ; Desc     : 
  PrototypeC.l PB_mysql_data_seek(*result.MYSQL_RES,offset.d) : Global mysql_data_seek.PB_mysql_data_seek = GetFunction(#MySQLLib,"mysql_data_seek")
  
  ; Function : mysql_eof()
  ; Usage    : mysql_eof(*MySQLResult) 
  ; Desc     : 
  PrototypeC.l PB_mysql_eof(*result.MYSQL_RES) : Global mysql_eof.PB_mysql_eof = GetFunction(#MySQLLib,"mysql_eof")
  
  ; Function : mysql_escape_string()
  ; Usage    : mysql_escape_string(strTo.s, strFrom.s, length.l) 
  ; Desc     : 
  PrototypeC.l PB_mysql_escape_string(strTo.s,strFrom.s,length.l) : Global mysql_escape_string.PB_mysql_escape_string = GetFunction(#MySQLLib,"mysql_escape_string")
  
  ; Function : mysql_fetch_field()
  ; Usage    : *field.MYSQL_FIELD = mysql_fetch_field(*MySQLResult) 
  ; Desc     : 
  PrototypeC.l PB_mysql_fetch_field(*result.MYSQL_RES) : Global mysql_fetch_field.PB_mysql_fetch_field = GetFunction(#MySQLLib,"mysql_fetch_field")
  
  ; Function : mysql_fetch_field_direct()
  ; Usage    : *field.MYSQL_FIELD = mysql_fetch_field_direct(*MySQLResult, fieldnr.l) 
  ; Desc     : 
  PrototypeC.l PB_mysql_fetch_field_direct(*result.MYSQL_RES,fieldnr.l) : Global mysql_fetch_field_direct.PB_mysql_fetch_field_direct = GetFunction(#MySQLLib,"mysql_fetch_field_direct")
  
  ; Function : mysql_fetch_fields()
  ; Usage    : *fieldArray.MYSQL_FIELD = mysql_fetch_fields(*MySQLResult) 
  ; Desc     : 
  PrototypeC.l PB_mysql_fetch_fields(*result.MYSQL_RES) : Global mysql_fetch_fields.PB_mysql_fetch_fields = GetFunction(#MySQLLib,"mysql_fetch_fields")
  
  ; Function : mysql_fetch_lengths()
  ; Usage    : mysql_fetch_lengths(*MySQLResult) 
  ; Desc     : 
  PrototypeC.l PB_mysql_fetch_lengths(*result.MYSQL_RES) : Global mysql_fetch_lengths.PB_mysql_fetch_lengths = GetFunction(#MySQLLib,"mysql_fetch_lengths")
  
  ; Function : mysql_fetch_row()
  ; Usage    : *row.MYSQL_ROW = mysql_fetch_row(*MySQLResult) 
  ; Desc     : 
  PrototypeC.l PB_mysql_fetch_row(*result.MYSQL_RES) : Global mysql_fetch_row.PB_mysql_fetch_row = GetFunction(#MySQLLib,"mysql_fetch_row")
  
  ; Function : mysql_field_seek()
  ; Usage    : mysql_field_seek(*MySQLResult, offset.l) 
  ; Desc     : 
  PrototypeC.l PB_mysql_field_seek(*result.MYSQL_RES,offset.l) : Global mysql_field_seek.PB_mysql_field_seek = GetFunction(#MySQLLib,"mysql_field_seek")
  
  ; Function : mysql_field_tell()
  ; Usage    : mysql_field_tell(*MySQLResult) 
  ; Desc     : 
  PrototypeC.l PB_mysql_field_tell(*result.MYSQL_RES) : Global mysql_field_tell.PB_mysql_field_tell = GetFunction(#MySQLLib,"mysql_field_tell")
  
  ; Function : mysql_free_result()
  ; Usage    : mysql_free_result(*MySQLResult) 
  ; Desc     : 
  PrototypeC.l PB_mysql_free_result(*result.MYSQL_RES) : Global mysql_free_result.PB_mysql_free_result = GetFunction(#MySQLLib,"mysql_free_result")
  
  ; Function : mysql_get_character_set_info()
  ; Usage    : mysql_get_character_set_info(*MySQLResult, *MySQL_CharsetInfo) 
  ; Desc     : 
  PrototypeC.l PB_mysql_get_character_set_info(*mysql.MYSQL,*cs.MY_CHARSET_INFO) : Global mysql_get_character_set_info.PB_mysql_get_character_set_info = GetFunction(#MySQLLib,"mysql_get_character_set_info")
  
  ; Function : mysql_hex_string()
  ; Usage    : mysql_hex_string(strTo.s, strFrom.s, length.l) 
  ; Desc     : 
  PrototypeC.l PB_mysql_hex_string(strTo.s,strFrom.s,length.l) : Global mysql_hex_string.PB_mysql_hex_string = GetFunction(#MySQLLib,"mysql_hex_string")
  
  ; Function : mysql_kill()
  ; Usage    : mysql_kill(*MySQLHandle, pid.l) 
  ; Desc     : 
  PrototypeC.l PB_mysql_kill(*mysql.MYSQL,pid.l) : Global mysql_kill.PB_mysql_kill = GetFunction(#MySQLLib,"mysql_kill")
  
  ; Function : mysql_library_init()
  ; Usage    : mysql_library_init(argc.l, argv.l, groups.l) 
  ; Desc     : 
  PrototypeC.l PB_mysql_library_init(argc.l,argv.l,Groups.l) : Global mysql_library_init.PB_mysql_library_init = GetFunction(#MySQLLib,"mysql_library_init")
  
  ; Function : mysql_list_dbs()
  ; Usage    : mysql_list_dbs(*MySQLHandle, Wildcard.s) 
  ; Desc     : 
  PrototypeC.l PB_mysql_list_dbs(*mysql.MYSQL,wild.s) : Global mysql_list_dbs.PB_mysql_list_dbs = GetFunction(#MySQLLib,"mysql_list_dbs")
  
  ; Function : mysql_list_fields()
  ; Usage    : mysql_list_fields(*MySQLHandle, Table.s, Wildcard.s) 
  ; Desc     : 
  PrototypeC.l PB_mysql_list_fields(*mysql.MYSQL,table.s,wild.s) : Global mysql_list_fields.PB_mysql_list_fields = GetFunction(#MySQLLib,"mysql_list_fields")
  
  ; Function : mysql_list_tables()
  ; Usage    : mysql_list_tables(*MySQLHandle, Wildcard.s) 
  ; Desc     : 
  PrototypeC.l PB_mysql_list_tables(*mysql.MYSQL,wild.s) : Global mysql_list_tables.PB_mysql_list_tables = GetFunction(#MySQLLib,"mysql_list_tables")
  
  ; Function : mysql_master_query()
  ; Usage    : mysql_master_query(*MySQLHandle, query.s, length.l) 
  ; Desc     : 
  PrototypeC.l PB_mysql_master_query(*mysql.MYSQL,query.s,length.l) : Global mysql_master_query.PB_mysql_master_query = GetFunction(#MySQLLib,"mysql_master_query")
  
  ; Function : mysql_num_fields()
  ; Usage    : Result.l = mysql_num_fields(*MySQLResult) 
  ; Desc     : 
  PrototypeC.l PB_mysql_num_fields(*result.MYSQL_RES) : Global mysql_num_fields.PB_mysql_num_fields = GetFunction(#MySQLLib,"mysql_num_fields")
  
  ; Function : mysql_num_rows()
  ; Usage    : Result.l = mysql_num_rows(*MySQLResult) 
  ; Desc     : 
  PrototypeC.l PB_mysql_num_rows(*result.MYSQL_RES) : Global mysql_num_rows.PB_mysql_num_rows = GetFunction(#MySQLLib,"mysql_num_rows")
  
  ; Function : mysql_options()
  ; Usage    : Result.l = mysql_options(*MySQLHandle, option.l, arg.s) 
  ; Desc     : 
  PrototypeC.l PB_mysql_options(*mysql.MYSQL,option.l,arg.s) : Global mysql_options.PB_mysql_options = GetFunction(#MySQLLib,"mysql_options")
  
  ; Function : mysql_query()
  ; Usage    : Result.l = mysql_query(*MySQLHandle, query.s) 
  ; Desc     : 
  PrototypeC.l PB_mysql_query(*mysql.MYSQL,query.s) : Global mysql_query.PB_mysql_query = GetFunction(#MySQLLib,"mysql_query")
  
  ; Function : mysql_real_escape_string()
  ; Usage    : mysql_real_escape_string(*MySQLHandle, strTo.s, strFrom.s, length.l) 
  ; Desc     : 
  PrototypeC.l PB_mysql_real_escape_string(*mysql.MYSQL,strTo.s,strFrom.s,length.l) : Global mysql_real_escape_string.PB_mysql_real_escape_string = GetFunction(#MySQLLib,"mysql_real_escape_string")
  
  ; Function : mysql_real_query()
  ; Usage    : *MySQLResult = mysql_real_query(*MySQLHandle, query.s, length.l) 
  ; Desc     : 
  PrototypeC.l PB_mysql_real_query(*mysql.MYSQL,query.s,length.l) : Global mysql_real_query.PB_mysql_real_query = GetFunction(#MySQLLib,"mysql_real_query")
  
  ; Function : mysql_refresh()
  ; Usage    : mysql_refresh(*MySQLHandle, options.l) 
  ; Desc     : 
  PrototypeC.l PB_mysql_refresh(*mysql.MYSQL,Options.l) : Global mysql_refresh.PB_mysql_refresh = GetFunction(#MySQLLib,"mysql_refresh")
  
  ; Function : mysql_row_seek()
  ; Usage    : mysql_row_seek(*MySQLHandle, offset.l) 
  ; Desc     : 
  PrototypeC.l PB_mysql_row_seek(*mysql.MYSQL,offset.l) : Global mysql_row_seek.PB_mysql_row_seek = GetFunction(#MySQLLib,"mysql_row_seek")
  
  ; Function : mysql_row_tell()
  ; Usage    : mysql_row_tell(*MySQLResult) 
  ; Desc     : 
  PrototypeC.l PB_mysql_row_tell(*result.MYSQL_RES) : Global mysql_row_tell.PB_mysql_row_tell = GetFunction(#MySQLLib,"mysql_row_tell")
  
  ; Function : mysql_rpl_query_type()
  ; Usage    : mysql_rpl_query_type(*MySQLHandle, type.l) 
  ; Desc     : 
  PrototypeC.l PB_mysql_rpl_query_type(*mysql.MYSQL,type.l) : Global mysql_rpl_query_type.PB_mysql_rpl_query_type = GetFunction(#MySQLLib,"mysql_rpl_query_type")
  
  ; Function : mysql_send_query()
  ; Usage    : mysql_send_query(*MySQLHandle, query.s, length.l) 
  ; Desc     : 
  PrototypeC.l PB_mysql_send_query(*mysql.MYSQL,query.s,length.l) : Global mysql_send_query.PB_mysql_send_query = GetFunction(#MySQLLib,"mysql_send_query")
  
  ; Function : mysql_server_init()
  ; Usage    : mysql_server_init(argc.l, argv.l, groups.l) 
  ; Desc     : 
  PrototypeC.l PB_mysql_server_init(argc.l,argv.l,Groups.l) : Global mysql_server_init.PB_mysql_server_init = GetFunction(#MySQLLib,"mysql_server_init")
  
  ; Function : mysql_set_character_set()
  ; Usage    : mysql_set_character_set(*MySQLHandle, csname.s) 
  ; Desc     : 
  PrototypeC.l PB_mysql_set_character_set(*mysql.MYSQL,csname.s) : Global mysql_set_character_set.PB_mysql_set_character_set = GetFunction(#MySQLLib,"mysql_set_character_set")
  
  ; Function : mysql_set_server_option()
  ; Usage    : mysql_set_server_option(*MySQLHandle, option.l) 
  ; Desc     : 
  PrototypeC.l PB_mysql_set_server_option(*mysql.MYSQL,option.l) : Global mysql_set_server_option.PB_mysql_set_server_option = GetFunction(#MySQLLib,"mysql_set_server_option")
  
  ; Function : mysql_shutdown()
  ; Usage    : mysql_shutdown(*MySQLHandle, shutdown_level.l) 
  ; Desc     : 
  PrototypeC.l PB_mysql_shutdown(*mysql.MYSQL,shutdown_level.l) : Global mysql_shutdown.PB_mysql_shutdown = GetFunction(#MySQLLib,"mysql_shutdown")
  
  ; Function : mysql_slave_query()
  ; Usage    : mysql_slave_query(*MySQLHandle, query.s, length.l) 
  ; Desc     : 
  PrototypeC.l PB_mysql_slave_query(*mysql.MYSQL,query.s,length.l) : Global mysql_slave_query.PB_mysql_slave_query = GetFunction(#MySQLLib,"mysql_slave_query")
  
  ; Function : mysql_ssl_set()
  ; Usage    : mysql_ssl_set(*MySQLHandle, key.s, cert.s, ca.s, capath.s, cipher.s) 
  ; Desc     : 
  PrototypeC.l PB_mysql_ssl_set(*mysql.MYSQL,key.s,cert.s,ca.s,capath.s,cipher.s) : Global mysql_ssl_set.PB_mysql_ssl_set = GetFunction(#MySQLLib,"mysql_ssl_set")
  
  EndIf
Else
  MessageRequester("MySQL Wrapper","Unable to open MySQL Library")
EndIf
EndMacro

; Free's MySQL Library for a clean exit
Macro FreeMySQL()
  If IsLibrary(#MySQLLib)
    CloseLibrary(#MySQLLib) 
  EndIf
EndMacro

  ; Test / Example ( uncomment meh! ;) ) *************************************************************


;   InitMySQL() ; <- We Initialize the dll at Start 
;   
;   OpenConsole()
; 
;   Debug "Info:    " + PeekS(mysql_get_client_info())
;   Debug "Version: " + Str(mysql_get_client_version())
;   Debug Hex(mysql_get_parameters()) 
;   
;   *hDB = mysql_init(#Null)
; 
;   If *hDB      
;     If mysql_real_connect(*hDB,"127.0.0.1","root","password","",3306,"NULL",#Null)
;       mysql_autocommit(*hDB,#True)
;       Debug "Connected!" 
;       Debug mysql_get_server_version(*hDB)
; 
;       
;       Debug "Server:"
;       Debug PeekS(mysql_get_server_info(*hDB))
;       Debug "Connection:" 
;       Debug PeekS(mysql_get_host_info(*hDB)) 
;       Debug "Protocolgeneration:"
;       Debug Str(mysql_get_proto_info(*hDB)) 
;       
;       If mysql_select_db(*hDB,"test") <> 1
;         Debug "* DB Selected"
;         
;         If mysql_query(*hDB,"SHOW TABLES") <> 1
;           Debug "* Query made..."
;           ; get next INSERT ID 
;           id = mysql_insert_id(*hDB)
;           If id
;             Debug "id>"+Str(id)
;           EndIf
;           ; get query info
;           *info = mysql_info(*hDB)
;           If *info
;             Debug PeekS(*info)
;           EndIf
;           
;           ; do we have a Result ?
;           If mysql_field_count(*hDB)
;             *result = mysql_store_result(*hDB)
;             
;             If *result
;               Debug "* Got Result!"
;               nRows.l = mysql_num_rows(*result)
;               Debug "Num Rows: " + Str(nRows.l)
;               
;               For i = 0 To nRows.l - 1
;                 *row.MYSQL_ROW = mysql_fetch_row(*result)
;                 If *row
;                     Rows.s = ""
;                     For j = 0 To mysql_num_fields(*result) - 1
;                         Rows + *row\field[j] + ", "
;                     Next
;                   PrintN(Rows)
;                   Debug "rows>"+Rows
;                 EndIf
;               Next
;               
;               mysql_free_result(*result)
;             EndIf
;             
;           EndIf
;           
;         Else
;           Debug PeekS(mysql_error(*hDB)) 
;         EndIf
;         
;       Else
;         Debug Str(mysql_errno(*hDB)) 
;         Debug "Database Error!"
;         Debug PeekS(mysql_error(*hDB)) 
;       EndIf
;     
;     Else ; No Connect, Error! 
;       Debug "Error: " 
;       Debug PeekS(mysql_error(*hDB)) 
;     EndIf
;     
;     mysql_close(*hDB)
;     
;   EndIf
;   
;   FreeMySQL() ; <- for a clean exit we free Ressources.
  ; *************************************************************************************************
Cheers,
Thalius
"In 3D there is never enough Time to do Things right,
but there's always enough Time to make them *look* right."
"psssst! i steal signatures... don't tell anyone! ;)"
Top
quasiperfect
Enthusiast
Enthusiast
Posts: 157
Joined: Tue Feb 13, 2007 6:16 pm
Location: Romania
Contact:
Contact quasiperfect

thanks

Post by quasiperfect »

thanks
u'r a live saver, i realy needed something crossplatform
any updates to the code ?
Registered user of PureBasic
Top
akj
Enthusiast
Enthusiast
Posts: 668
Joined: Mon Jun 09, 2003 10:08 pm
Location: Nottingham

Error: Can't connect to MySQL server

Post by akj »

I cannot get Thalius's code to work. I always get the Debug output:

Executable started.
[Debug] Info: 5.0.27
[Debug] Version: 50027
[Debug] 1C59E7C
[Debug] Error:
[Debug] Can't connect to MySQL server on '127.0.0.1' (10061)
Execution stopped. (Program about to end)

On my Windows ME system, I have downloaded libmysql.dll from www.dll-files.com into C:\Windows\System and the file C:\Windows\HOSTS contains the line:
127.0.0.1 localhost

How can I get MySQL working?
Anthony Jordan
Top
Thalius
Enthusiast
Enthusiast
Posts: 711
Joined: Thu Jul 17, 2003 4:15 pm
Contact:
Contact Thalius

Post by Thalius »

is the MySQL Server on localhost running?.

Otherwise i dont see why it wouldnt work as the dll version is recognized correctly.

Ill give it a whirl to implement the rest of Features one of theese days.

Thanks for teh Feedback :)

Thalius
"In 3D there is never enough Time to do Things right,
but there's always enough Time to make them *look* right."
"psssst! i steal signatures... don't tell anyone! ;)"
Top
akj
Enthusiast
Enthusiast
Posts: 668
Joined: Mon Jun 09, 2003 10:08 pm
Location: Nottingham

Post by akj »

@Thalius
You say "Is the MySQL Server on localhost running?"
No it's not.

I was afraid that was the problem. I was hoping that the presence of libmysql.dll would be sufficient as is the case with SQLite, but I'm obviously wrong.

Thanks for your comments.
Anthony Jordan
Top
y3an
User
User
Posts: 56
Joined: Sun Mar 09, 2008 6:06 am

Post by y3an »

thanks
u'r a live saver, i realy needed something crossplatform
+1 :D
Top
Harry0
User
User
Posts: 13
Joined: Sun Mar 02, 2008 4:28 pm
Location: Palatine

This might help!

Post by Harry0 »

akj,

If you haven't already solved this, the following mught be of some help.

in the line

Code: Select all

If mysql_real_connect(*hDB,"127.0.0.1","root","password","",3306,"NULL",#Null)
The second parameter is the IP address of the MySQL server you are trying to connect to.

You should be able to change that to the IP of your MySQL server.

Also the third and fourth parameters (userID and Password) need to match.

Hope this helps.

Harry0
Top
Motu
Enthusiast
Enthusiast
Posts: 160
Joined: Tue Oct 19, 2004 12:24 pm

mySQL under windows

Post by Motu »

Hi Thalius,
there is something wrong in your code. Under Windows you need to use Prototype instead of PrototypeC. I solved the problem by defining macros inside the os compiler if

Code: Select all

CompilerSelect #PB_Compiler_OS 
  CompilerCase #PB_OS_Windows 
    MysqlDllFilename$ = "libmysql.dll" 
    Macro myprotottyp()
     Prototype
    EndMacro
  CompilerCase #PB_OS_Linux 
    MysqlDllFilename$ = "libmysqlclient.so" 
    Macro myprotottyp()
     PrototypeC
    EndMacro
  CompilerCase #PB_OS_MacOS 
    MysqlDllFilename$ = "libmysqlclient.so" 
    Macro myprotottyp()
     PrototypeC
    EndMacro
  CompilerCase #PB_OS_AmigaOS 
    MysqlDllFilename$ = "mysqlclient.library" 
    Macro myprotottyp()
     PrototypeC
    EndMacro
CompilerEndSelect
Anyway, nice pice of code :)

Motu
Top
Straker
Enthusiast
Enthusiast
Posts: 701
Joined: Wed Apr 13, 2005 10:45 pm
Location: Idaho, USA

Post by Straker »

Has anyone gotten this to work on Windows? I keep getting memory access errors when running the test code. I even updated using Motu's changes.

I have a valid installation of MySql, and its finding and loading the DLL with no problem.

Please help. I am using PB 4.20

Thanks.

EDIT: I have narrowed it down to the following lines:

Code: Select all

548: Debug "Version: " + Str(mysql_get_client_version())
549: Debug Hex(mysql_get_parameters())

555: mysql_autocommit(*hDB,#True)

557: Debug mysql_get_server_version(*hDB)
Image Image
Top
Thalius
Enthusiast
Enthusiast
Posts: 711
Joined: Thu Jul 17, 2003 4:15 pm
Contact:
Contact Thalius

Post by Thalius »

Working here - tho ill look over it theese days (if all goes well also with transaction functions) - as i need that thing again for a work project. Ill post the updated version as soon as i got it done.

Thalius
"In 3D there is never enough Time to do Things right,
but there's always enough Time to make them *look* right."
"psssst! i steal signatures... don't tell anyone! ;)"
Top
lexvictory
Addict
Addict
Posts: 1027
Joined: Sun May 15, 2005 5:15 am
Location: Australia
Contact:
Contact lexvictory

Post by lexvictory »

Just what I was looking for! thanks :)

Modified to be unicode safe and use import instead of prototypes (my personal preference)
windows needs libmysql.lib (installed with mysql in the lib folder, or here)

header not edited.

Code: Select all

; MySQL 5 DLL-Wrapper Include - Version: 0.2b
; OS: Linux / Windows / AmigaOS / MacOSX ? ( can somone test this ? )
; Author: Marius Eckardt (Thalius)
; Syntaxcompatible & based on LibMySQL by Flype
; Last Changes: 29.10.2007
;
; Inspired by Flype's Userlib for Windows - i just needed a Version that runs under Linux aswell.
; There could have been alot of more checks/wraps, but in favor of speed and compatibility with Flype's
; Userlib i kept the Syntax the same.
;
; Requirements ( Version 5x of ):
; Linux  : libmysqlclient.so  - ( installed with "mysql-shared" Pakages )
; MacOSX : libmysqlclient.so
; Windows: libmysql.dll
; AmigaOS: mysqlclient.library
;
; ToDo:
;  - Bugfixes ! ( getting used to Prototype's ... ;)
;  - Descriptions / Examples
;  - stmt functions
; -----------------------------------------------------------------------------------------------

;- OS Check
CompilerSelect #PB_Compiler_OS
  CompilerCase #PB_OS_Windows
    #MysqlDllFilename$ = "libmysql.lib"
  CompilerCase #PB_OS_Linux
    #MysqlDllFilename$ = "/usr/lib/libmysqlclient.so";symlink may be needed
  CompilerCase #PB_OS_MacOS
    #MysqlDllFilename$ = "libmysqlclient.so"
  CompilerCase #PB_OS_AmigaOS
    #MysqlDllFilename$ = "mysqlclient.library"
CompilerEndSelect

;- Structures
Structure MYSQL
EndStructure
Structure MYSQL_RES
EndStructure
Structure MYSQL_BIND
EndStructure
Structure MYSQL_STMT
EndStructure

Structure MYSQL_ROW
  *field[255]
EndStructure
Structure MYSQL_FIELD
  name.s
  org_name.s
  table.s
  org_table.s
  db.s
  catalog.s
  def.s
  length.l
  max_length.l
  name_length.l
  org_name_length.l
  table_length.l
  org_table_length.l
  db_length.l
  catalog_length.l
  def_length.l
  flags.l
  decimals.l
  charset_nr.l
  type.l
EndStructure
Structure MY_CHARSET_INFO
  number.l
  state.l
  csname.s
  name.s
  Comment.s
  dir.s
  mbminlen.l
  mbmaxlen.l
EndStructure

CompilerIf #PB_Compiler_OS = #PB_OS_Windows
  Import #MysqlDllFilename$
CompilerElse
  ImportC #MysqlDllFilename$
CompilerEndIf

 
  ; ** Start Prototypes **
 
  ; Function : mysql_get_client_info()
  ; Usage    : PeekS(mysql_get_client_info())
  ; Desc     : Returns Pointer to Version STRING of Mysql Client
  mysql_get_client_info()
 
  ; Function : mysql_get_client_version()
  ; Usage    : Result.l = mysql_get_client_version()
  ; Desc     : Returns Versionnumber as LONG of Mysql Client
  mysql_get_client_version()
 
  ; Function : mysql_errno()
  ; Usage    : Result.l = mysql_get_client_info(*MySQLHandle)
  ; Desc     : Returns Error No as LONG
  mysql_errno(*mysql.MYSQL)
 
  ; Function : mysql_init()
  ; Usage    : *MySQLHandle = mysql_init(#Null)
  ; Desc     : Returns MySQL DB Handle as LONG
  mysql_init(*mysql.MYSQL) 
 
  ; Function : mysql_real_connect(*mysql.MYSQL,host.p-utf8,user.p-utf8,passwd.p-utf8,db.p-utf8,port.l,unix_socket.p-utf8,client_flag.l)
  ; Usage    : Result.l = mysql_real_connect(*mysql.MYSQL,host.p-utf8,user.p-utf8,passwd.p-utf8,db.p-utf8,port.l,unix_socket.p-utf8,client_flag.l)
  ; Desc     :
  mysql_real_connect(*mysql.MYSQL,host.p-utf8,user.p-utf8,passwd.p-utf8,db.p-utf8,port.l,unix_socket.p-utf8,client_flag.l) 
 
  ; Function : mysql_get_parameters()
  ; Usage    : debug Hex(mysql_get_parameters())
  ; Desc     :
  mysql_get_parameters()
 
  ; Function : mysql_sqlstate()
  ; Usage    : State.p-utf8 = PeekS(mysql_sqlstate(*MySQLHandle))
  ; Desc     :
  mysql_sqlstate(*mysql.MYSQL)
 
  ; Function : mysql_error()
  ; Usage    : PeekS(mysql_error(*MySQLHandle))
  ; Desc     : Returns Pointer as LONG to ErrormessageString
  mysql_error(*mysql.MYSQL)
 
  ; Function : mysql_get_server_version()
  ; Usage    : Result.l = mysql_get_server_version(*MySQLHandle)
  ; Desc     : Returns LONG from ServerVersion
  mysql_get_server_version(*mysql.MYSQL)
 
  ; Function : mysql_get_server_info()
  ; Usage    : PeekS(mysql_get_server_info(*MySQLHandle))
  ; Desc     : Returns Pointer as LONG to ServerInfoString
  mysql_get_server_info(*mysql.MYSQL)
 
  ; Function : mysql_get_host_info()
  ; Usage    : PeekS(mysql_get_host_info(*MySQLHandle))
  ; Desc     : Returns Pointer as LONG to HostInfoString / Connectioninfo
  mysql_get_host_info(*mysql.MYSQL) 
 
  ; Function : mysql_select_db()
  ; Usage    : mysql_select_db(*MySQLHandle, Databasename.p-utf8)
  ; Desc     : Selects current Database
  mysql_select_db(*mysql.MYSQL, Databasename.p-utf8)
 
  ; Function : mysql_get_proto_info()
  ; Usage    : Result.l = mysql_get_proto_info(*MySQLHandle))
  ; Desc     :
  mysql_get_proto_info(*mysql.MYSQL)
 
  ; Function : mysql_info()
  ; Usage    : Result.l = mysql_info(*MySQLHandle))
  ; Desc     :
  mysql_info(*mysql.MYSQL)
 
  ; Function : mysql_insert_id()
  ; Usage    : Result.l = mysql_insert_id(*MySQLHandle))
  ; Desc     : Returns Inserted ID as LONG
  mysql_insert_id(*mysql.MYSQL)
 
  ; Function : mysql_affected_rows()
  ; Usage    : Result.l = mysql_affected_rows(*MySQLHandle))
  ; Desc     :
  mysql_affected_rows(*mysql.MYSQL) 
 
  ; Function : mysql_autocommit()
  ; Usage    : mysql_autocommit(*MySQLHandle,#Bool) ; #True / #False
  ; Desc     :
  mysql_autocommit(*mysql.MYSQL,*mode.Byte) 
 
  ; Function : mysql_character_set_name()
  ; Usage    : mysql_character_set_name(*MySQLHandle)
  ; Desc     :
  mysql_character_set_name(*mysql.MYSQL) 
 
  ; Function : mysql_close()
  ; Usage    : mysql_close(*MySQLHandle)
  ; Desc     : Closes the MySQL Connection
  mysql_close(*mysql.MYSQL) 
 
  ; Function : mysql_commit()
  ; Usage    : mysql_commit(*MySQLHandle)
  ; Desc     :
  mysql_commit(*mysql.MYSQL) 
 
  ; Function : mysql_debug()
  ; Usage    : mysql_debug(DebugString.p-utf8)
  ; Desc     :
  mysql_debug(DebugString.p-utf8) 
 
  ; Function : mysql_disable_reads_from_master()
  ; Usage    : mysql_disable_reads_from_master(*MySQLHandle)
  ; Desc     :
  mysql_disable_reads_from_master(*mysql.MYSQL) 
 
  ; Function : mysql_disable_rpl_parse()
  ; Usage    : mysql_disable_rpl_parse(*MySQLHandle)
  ; Desc     :
  mysql_disable_rpl_parse(*mysql.MYSQL) 
 
  ; Function : mysql_dumPB_debug_info()
  ; Usage    : mysql_dumPB_debug_info(*MySQLHandle)
  ; Desc     :
  mysql_dumPB_debug_info(*mysql.MYSQL) 
 
  ; Function : mysql_embedded()
  ; Usage    : mysql_embedded()
  ; Desc     :
  mysql_embedded() 
 
  ; Function : mysql_enable_reads_from_master()
  ; Usage    : mysql_enable_reads_from_master(*MySQLHandle)
  ; Desc     :
  mysql_enable_reads_from_master(*mysql.MYSQL) 
 
  ; Function : mysql_enable_rpl_parse()
  ; Usage    : mysql_enable_rpl_parse(*MySQLHandle)
  ; Desc     :
  mysql_enable_rpl_parse(*mysql.MYSQL) 
 
  ; Function : mysql_field_count()
  ; Usage    : mysql_field_count(*MySQLHandle)
  ; Desc     :
  mysql_field_count(*mysql.MYSQL) 
 
  ; Function : mysql_library_end()
  ; Usage    : mysql_library_end(*MySQLHandle)
  ; Desc     :
  mysql_library_end(*mysql.MYSQL) 
 
  ; Function : mysql_list_processes()
  ; Usage    : mysql_list_processes(*MySQLHandle)
  ; Desc     :
  mysql_list_processes(*mysql.MYSQL) 
 
  ; Function : mysql_more_results()
  ; Usage    : mysql_more_results(*MySQLHandle)
  ; Desc     :
  mysql_more_results(*mysql.MYSQL) 
 
  ; Function : mysql_next_result()
  ; Usage    : mysql_next_result(*MySQLHandle)
  ; Desc     :
  mysql_next_result(*mysql.MYSQL) 
 
  ; Function : mysql_ping()
  ; Usage    : mysql_ping(*MySQLHandle)
  ; Desc     :
  mysql_ping(*mysql.MYSQL) 
 
  ; Function : mysql_read_query_result()
  ; Usage    : mysql_read_query_result(*MySQLHandle)
  ; Desc     :
  mysql_read_query_result(*mysql.MYSQL) 
 
  ; Function : mysql_reload()
  ; Usage    : mysql_reload(*MySQLHandle)
  ; Desc     :
  mysql_reload(*mysql.MYSQL) 
 
  ; Function : mysql_rollback()
  ; Usage    : mysql_rollback(*MySQLHandle)
  ; Desc     :
  mysql_rollback(*mysql.MYSQL) 
 
  ; Function : mysql_rpl_parse_enabled()
  ; Usage    : mysql_rpl_parse_enabled(*MySQLHandle)
  ; Desc     :
  mysql_rpl_parse_enabled(*mysql.MYSQL) 
 
  ; Function : mysql_rpl_probe()
  ; Usage    : mysql_rpl_probe(*MySQLHandle)
  ; Desc     :
  mysql_rpl_probe(*mysql.MYSQL) 
 
  ; Function : mysql_server_end()
  ; Usage    : mysql_server_end()
  ; Desc     :
  mysql_server_end() 
 
  ; Function : mysql_thread_end()
  ; Usage    : mysql_thread_end()
  ; Desc     :
  mysql_thread_end() 
 
  ; Function : mysql_thread_init()
  ; Usage    : mysql_thread_init()
  ; Desc     :
  mysql_thread_init() 
 
  ; Function : mysql_thread_safe()
  ; Usage    : mysql_thread_safe()
  ; Desc     :
  mysql_thread_safe() 
 
  ; Function : mysql_stat()
  ; Usage    : mysql_stat(*MySQLHandle)
  ; Desc     :
  mysql_stat(*mysql.MYSQL) 
 
  ; Function : mysql_store_result()
  ; Usage    : *MySQLResult = mysql_store_result(*MySQLHandle)
  ; Desc     :
  mysql_store_result(*mysql.MYSQL)
 
  ; Function : mysql_thread_id()
  ; Usage    : Result.l = mysql_thread_id(*MySQLHandle)
  ; Desc     :
  mysql_thread_id(*mysql.MYSQL) 
 
  ; Function : mysql_use_result()
  ; Usage    : mysql_use_result(*MySQLHandle)
  ; Desc     :
  mysql_use_result(*mysql.MYSQL) 
 
  ; Function : mysql_warning_count()
  ; Usage    : mysql_warning_count(*MySQLHandle)
  ; Desc     :
  mysql_warning_count(*mysql.MYSQL) 
 
  ; Function : mysql_change_user()
  ; Usage    : mysql_change_user(*MySQLHandle, user.p-utf8, passwd.p-utf8, db.p-utf8)
  ; Desc     :
  mysql_change_user(*mysql.MYSQL,user.p-utf8,passwd.p-utf8,db.p-utf8) 
 
  ; Function : mysql_data_seek()
  ; Usage    : mysql_data_seek(*MySQLResult, offset.d)
  ; Desc     :
  mysql_data_seek(*result.MYSQL_RES,offset.d) 
 
  ; Function : mysql_eof()
  ; Usage    : mysql_eof(*MySQLResult)
  ; Desc     :
  mysql_eof(*result.MYSQL_RES) 
 
  ; Function : mysql_escape_string()
  ; Usage    : mysql_escape_string(strTo.p-utf8, strFrom.p-utf8, length.l)
  ; Desc     :
  mysql_escape_string(strTo.p-utf8,strFrom.p-utf8,length.l) 
 
  ; Function : mysql_fetch_field()
  ; Usage    : *field.MYSQL_FIELD = mysql_fetch_field(*MySQLResult)
  ; Desc     :
  mysql_fetch_field(*result.MYSQL_RES) 
 
  ; Function : mysql_fetch_field_direct()
  ; Usage    : *field.MYSQL_FIELD = mysql_fetch_field_direct(*MySQLResult, fieldnr.l)
  ; Desc     :
  mysql_fetch_field_direct(*result.MYSQL_RES,fieldnr.l) 
 
  ; Function : mysql_fetch_fields()
  ; Usage    : *fieldArray.MYSQL_FIELD = mysql_fetch_fields(*MySQLResult)
  ; Desc     :
  mysql_fetch_fields(*result.MYSQL_RES) 
 
  ; Function : mysql_fetch_lengths()
  ; Usage    : mysql_fetch_lengths(*MySQLResult)
  ; Desc     :
  mysql_fetch_lengths(*result.MYSQL_RES) 
 
  ; Function : mysql_fetch_row()
  ; Usage    : *row.MYSQL_ROW = mysql_fetch_row(*MySQLResult)
  ; Desc     :
  mysql_fetch_row(*result.MYSQL_RES) 
 
  ; Function : mysql_field_seek()
  ; Usage    : mysql_field_seek(*MySQLResult, offset.l)
  ; Desc     :
  mysql_field_seek(*result.MYSQL_RES,offset.l) 
 
  ; Function : mysql_field_tell()
  ; Usage    : mysql_field_tell(*MySQLResult)
  ; Desc     :
  mysql_field_tell(*result.MYSQL_RES) 
 
  ; Function : mysql_free_result()
  ; Usage    : mysql_free_result(*MySQLResult)
  ; Desc     :
  mysql_free_result(*result.MYSQL_RES) 
 
  ; Function : mysql_get_character_set_info()
  ; Usage    : mysql_get_character_set_info(*MySQLResult, *MySQL_CharsetInfo)
  ; Desc     :
  mysql_get_character_set_info(*mysql.MYSQL,*cs.MY_CHARSET_INFO) 
 
  ; Function : mysql_hex_string()
  ; Usage    : mysql_hex_string(strTo.p-utf8, strFrom.p-utf8, length.l)
  ; Desc     :
  mysql_hex_string(strTo.p-utf8,strFrom.p-utf8,length.l) 
 
  ; Function : mysql_kill()
  ; Usage    : mysql_kill(*MySQLHandle, pid.l)
  ; Desc     :
  mysql_kill(*mysql.MYSQL,pid.l) 
 
  ; Function : mysql_library_init()
  ; Usage    : mysql_library_init(argc.l, argv.l, groups.l)
  ; Desc     :
  mysql_library_init(argc.l,argv.l,Groups.l) 
 
  ; Function : mysql_list_dbs()
  ; Usage    : mysql_list_dbs(*MySQLHandle, Wildcard.p-utf8)
  ; Desc     :
  mysql_list_dbs(*mysql.MYSQL,wild.p-utf8) 
 
  ; Function : mysql_list_fields()
  ; Usage    : mysql_list_fields(*MySQLHandle, Table.p-utf8, Wildcard.p-utf8)
  ; Desc     :
  mysql_list_fields(*mysql.MYSQL,table.p-utf8,wild.p-utf8) 
 
  ; Function : mysql_list_tables()
  ; Usage    : mysql_list_tables(*MySQLHandle, Wildcard.p-utf8)
  ; Desc     :
  mysql_list_tables(*mysql.MYSQL,wild.p-utf8) 
 
  ; Function : mysql_master_query()
  ; Usage    : mysql_master_query(*MySQLHandle, query.p-utf8, length.l)
  ; Desc     :
  mysql_master_query(*mysql.MYSQL,query.p-utf8,length.l) 
 
  ; Function : mysql_num_fields()
  ; Usage    : Result.l = mysql_num_fields(*MySQLResult)
  ; Desc     :
  mysql_num_fields(*result.MYSQL_RES) 
 
  ; Function : mysql_num_rows()
  ; Usage    : Result.l = mysql_num_rows(*MySQLResult)
  ; Desc     :
  mysql_num_rows(*result.MYSQL_RES) 
 
  ; Function : mysql_options()
  ; Usage    : Result.l = mysql_options(*MySQLHandle, option.l, arg.p-utf8)
  ; Desc     :
  mysql_options(*mysql.MYSQL,option.l,arg.p-utf8) 
 
  ; Function : mysql_query()
  ; Usage    : Result.l = mysql_query(*MySQLHandle, query.p-utf8)
  ; Desc     :
  mysql_query(*mysql.MYSQL,query.p-utf8) 
 
  ; Function : mysql_real_escape_string()
  ; Usage    : mysql_real_escape_string(*MySQLHandle, strTo.p-utf8, strFrom.p-utf8, length.l)
  ; Desc     :
  mysql_real_escape_string(*mysql.MYSQL,strTo.p-utf8,strFrom.p-utf8,length.l) 
 
  ; Function : mysql_real_query()
  ; Usage    : *MySQLResult = mysql_real_query(*MySQLHandle, query.p-utf8, length.l)
  ; Desc     :
  mysql_real_query(*mysql.MYSQL,query.p-utf8,length.l) 
 
  ; Function : mysql_refresh()
  ; Usage    : mysql_refresh(*MySQLHandle, options.l)
  ; Desc     :
  mysql_refresh(*mysql.MYSQL,Options.l) 
 
  ; Function : mysql_row_seek()
  ; Usage    : mysql_row_seek(*MySQLHandle, offset.l)
  ; Desc     :
  mysql_row_seek(*mysql.MYSQL,offset.l) 
 
  ; Function : mysql_row_tell()
  ; Usage    : mysql_row_tell(*MySQLResult)
  ; Desc     :
  mysql_row_tell(*result.MYSQL_RES) 
 
  ; Function : mysql_rpl_query_type()
  ; Usage    : mysql_rpl_query_type(*MySQLHandle, type.l)
  ; Desc     :
  mysql_rpl_query_type(*mysql.MYSQL,type.l) 
 
  ; Function : mysql_send_query()
  ; Usage    : mysql_send_query(*MySQLHandle, query.p-utf8, length.l)
  ; Desc     :
  mysql_send_query(*mysql.MYSQL,query.p-utf8,length.l) 
 
  ; Function : mysql_server_init()
  ; Usage    : mysql_server_init(argc.l, argv.l, groups.l)
  ; Desc     :
  mysql_server_init(argc.l,argv.l,Groups.l) 
 
  ; Function : mysql_set_character_set()
  ; Usage    : mysql_set_character_set(*MySQLHandle, csname.p-utf8)
  ; Desc     :
  mysql_set_character_set(*mysql.MYSQL,csname.p-utf8) 
 
  ; Function : mysql_set_server_option()
  ; Usage    : mysql_set_server_option(*MySQLHandle, option.l)
  ; Desc     :
  mysql_set_server_option(*mysql.MYSQL,option.l) 
 
  ; Function : mysql_shutdown()
  ; Usage    : mysql_shutdown(*MySQLHandle, shutdown_level.l)
  ; Desc     :
  mysql_shutdown(*mysql.MYSQL,shutdown_level.l) 
 
  ; Function : mysql_slave_query()
  ; Usage    : mysql_slave_query(*MySQLHandle, query.p-utf8, length.l)
  ; Desc     :
  mysql_slave_query(*mysql.MYSQL,query.p-utf8,length.l) 
 
  ; Function : mysql_ssl_set()
  ; Usage    : mysql_ssl_set(*MySQLHandle, key.p-utf8, cert.p-utf8, ca.p-utf8, capath.p-utf8, cipher.p-utf8)
  ; Desc     :
  mysql_ssl_set(*mysql.MYSQL,key.p-utf8,cert.p-utf8,ca.p-utf8,capath.p-utf8,cipher.p-utf8) 
 
  EndImport
  
Procedure.s PeekS_Utf8(*buffer);also checks if buffer is valid, returns an empty string if *buffer is 0
  If *buffer
    ProcedureReturn PeekS(*buffer, -1, #PB_UTF8)
  Else
    ProcedureReturn ""
  EndIf
EndProcedure


;   Debug "Info:    " + PeekS(mysql_get_client_info(), -1, #PB_UTF8)
;   Debug "Version: " + Str(mysql_get_client_version())
;   Debug Hex(mysql_get_parameters())
;   
;   *hDB = mysql_init(#Null)
; 
;   If *hDB     
;     If mysql_real_connect(*hDB,"127.0.0.1","root","password","",3306,"NULL",#Null)
;       mysql_autocommit(*hDB,#True)
;       Debug "Connected!"
;       Debug mysql_get_server_version(*hDB)
; 
;       
;       Debug "Server:"
;       Debug PeekS(mysql_get_server_info(*hDB), -1, #PB_UTF8)
;       Debug "Connection:"
;       Debug PeekS(mysql_get_host_info(*hDB), -1, #PB_UTF8)
;       Debug "Protocolgeneration:"
;       Debug Str(mysql_get_proto_info(*hDB))
;       
;       If mysql_select_db(*hDB,"test") <> 1
;         Debug "* DB Selected"
;         
;         If mysql_query(*hDB,"SHOW TABLES") <> 1
;           Debug "* Query made..."
;           ; get next INSERT ID
;           id = mysql_insert_id(*hDB)
;           If id
;             Debug "id>"+Str(id)
;           EndIf
;           ; get query info
;           *info = mysql_info(*hDB)
;           If *info
;             Debug PeekS(*info, -1, #PB_UTF8)
;           EndIf
;           
;           ; do we have a Result ?
;           If mysql_field_count(*hDB)
;             *result = mysql_store_result(*hDB)
;             
;             If *result
;               Debug "* Got Result!"
;               nRows.l = mysql_num_rows(*result)
;               Debug "Num Rows: " + Str(nRows.l)
;               
;               For i = 0 To nRows.l - 1
;                 *row.MYSQL_ROW = mysql_fetch_row(*result)
;                 If *row
;                     Rows.s = ""
;                     For j = 0 To mysql_num_fields(*result) - 1
;                         Rows + PeekS_Utf8(*row\field[j]) + ", ";PeekS_Utf8() does a peeks in utf8 mode, but if *row\field[j] is null (field is empty) it returns an empty string.
;                     Next
;                   Debug Rows
;                   Debug "rows>"+Rows
;                 EndIf
;               Next
;               
;               mysql_free_result(*result)
;             EndIf
;             
;           EndIf
;           
;         Else
;           Debug PeekS(mysql_error(*hDB), -1, #PB_UTF8)
;         EndIf
;         
;       Else
;         Debug Str(mysql_errno(*hDB))
;         Debug "Database Error!"
;         Debug PeekS(mysql_error(*hDB), -1, #PB_UTF8)
;       EndIf
;     
;     Else ; No Connect, Error!
;       Debug "Error: "
;       Debug PeekS(mysql_error(*hDB), -1, #PB_UTF8)
;     EndIf
;     
;     mysql_close(*hDB)
;     
;   EndIf

  ;*************************************************************************************************
all strings need to be sent and read in utf-8 (.p-utf8 and peeks(*pointer, -1, #pb_utf8))

tested on window and linux.
Demonio Ardente

Currently managing Linux & OS X Tailbite
OS X TailBite now up to date with Windows!
Top
Fred
Administrator
Administrator
Posts: 18360
Joined: Fri May 17, 2002 4:39 pm
Location: France
Contact:
Contact Fred

Post by Fred »

I was looking to integrate native mysql support to PB via a database plugin, and while browsing the libmysql sources, i saw it was licensed as GPL. After a few search on google, even PHP5 removed native support of mysql because of license constraint.

What does it means ? It means than if you use this lib (dll or statically linked) in a non-GPL program you have a to buy a license to mysql. That's quite disappointing for such a 'free' database manager. Just wanted to let you know to avoid bad surprises.
Top
User avatar
DoubleDutch
Addict
Addict
Posts: 3220
Joined: Thu Aug 07, 2003 7:01 pm
Location: United Kingdom
Contact:
Contact DoubleDutch

Post by DoubleDutch »

I think the same thing happened with Rails. They removed default support for MySQL.
https://deluxepixel.com <- My Business website
https://reportcomplete.com <- School end of term reports system
Top
User avatar
Fangbeast
PureBasic Protozoa
PureBasic Protozoa
Posts: 4792
Joined: Fri Apr 25, 2003 3:08 pm
Location: Not Sydney!!! (Bad water, no goats)

Post by Fangbeast »

Fred wrote:I was looking to integrate native mysql support to PB via a database plugin, and while browsing the libmysql sources, i saw it was licensed as GPL. After a few search on google, even PHP5 removed native support of mysql because of license constraint.

What does it means ? It means than if you use this lib (dll or statically linked) in a non-GPL program you have a to buy a license to mysql. That's quite disappointing for such a 'free' database manager. Just wanted to let you know to avoid bad surprises.
Fred, what about FireBird? It seems to be free of those licenses and a lot of people like it as it seems to be as good as SQLite but also have server technology?
Amateur Radio/VK3HAF, (D-STAR/DMR and more), Arduino, ESP32, Coding, Crochet
Top
Coolman
Enthusiast
Enthusiast
Posts: 103
Joined: Sat Sep 03, 2005 4:07 pm

Post by Coolman »

+1, Firebird is an excellent choice 8)
*** Excuse my bad English, I uses has translating program ***
Top
Post Reply

Return to “Tricks 'n' Tips”