Strict

Import pub.libmysql

MYSQL.Connect("host.net", "user", "password", "database")

Local res:MYSQL_RES = MYSQL.Query("SELECT * FROM news")

If res <> Null

   For Local x = 0 To res.Rows-1
      For Local y = 0 To res.Fields-1
         Print res.Row[x,y]
      Next
   Next

EndIf

MYSQL.Query("DELETE FROM news WHERE username='Jolinah'")

MYSQL.Close()

End

Strict

Module pub.libmysql

Import "pub_mysql.a"
Import brl.retro

Extern
   Function MySQL_Init()
   Function MySQL_Connect(mysql, host$z, user$z, passwd$z, db$z, port)
   Function MySQL_Close(mysql)
   Function MySQL_Query(mysql, query$z)
   Function MySQL_Num_Rows(res)
   Function MySQL_Num_Fields(res)
   Function MySQL_Fetch_Row:Byte Ptr Ptr(res)
   Function MySQL_Fetch_Lengths:Int Ptr(res)
   Function MySQL_Free_Result(res)
End Extern


Type MYSQL_RES
   Field Rows:Int
   Field Fields:Int
   Field Row:String[,]
End Type

Type MYSQL

   Global _mysql
   Global _res
   Global row:Byte Ptr Ptr
   Global lengths:Int Ptr
   
   Function Init()
      _mysql = MySQL_Init()
   End Function
   
   Function Connect:Byte(host:String, user:String, passwd:String, db:String, port:Int = 0)
      Local mysql = MySQL_Connect(_mysql, host, user, passwd, db, port)
      If mysql <> 0 And mysql = _mysql
         Return True
      EndIf
      
      Return False
   End Function
   
   Function Query:MYSQL_RES(query:String)
      Local _res = MySQL_Query(_mysql, query)
      
      If _res <> 0
         Local num = MySQL_Num_Rows(_res)
         If num = 0 Then Return Null
         
         Local mres:MYSQL_RES = New MYSQL_RES
         mres.Rows = num
         mres.Fields = MySQL_Num_Fields(_res)
         mres.Row = New String[mres.Rows, mres.Fields]
         
         row = MySQL_Fetch_Row(_res)
         lengths = MySQL_Fetch_Lengths(_res)
         Local value:String
         Local i, x, c
         
            
         While row <> Null
            For i = 0 To mres.Fields-1
               value = ""
               For x = 0 To lengths[i]
                  value :+ Chr(row[i][x])
               Next
               mres.Row[c, i] = Replace(value, "~0", "")
            Next               
            
            row = MySQL_Fetch_Row(_res)
            lengths = MySQL_Fetch_Lengths(_res)            
            c :+ 1
         Wend

         MySQL_Free_Result(_res)
         _res = 0
         row = Null
         lengths = Null

         Return mres
      EndIf

      Return Null   
   End Function
   
   Function Close()
      If _mysql <> 0 Then
         MySQL_Close(_mysql)
         _mysql = 0
      EndIf
   End Function

End Type

MySQL.Init()

Import "libmysql.c"

Extern
Function mysql_init(mysql)
End Extern

Den Ordner libmysql.mod in den BlitzMax\mods\pub.mod\ Ordner kopieren und
anschliessend das Modul kompilieren lassen.

Compile Error: Can't find interface for module 'pub.libmysql'

Compiling:mysql.bmx
Compile Error: File 'G:/Projekte/mysql/pub_mysql.a' not found

import brl.blitz
import "pub_mysql.a"
import brl.retro
MySQL_Init()="MySQL_Init"
MySQL_Connect(mysql,host$z,user$z,passwd$z,db$z,port)="MySQL_Connect"
MySQL_Close(mysql)="MySQL_Close"
MySQL_Query(mysql,query$z)="MySQL_Query"
MySQL_Num_Rows(res)="MySQL_Num_Rows"
MySQL_Num_Fields(res)="MySQL_Num_Fields"
MySQL_Fetch_Row@**(res)="MySQL_Fetch_Row"
MySQL_Fetch_Lengths*(res)="MySQL_Fetch_Lengths"
MySQL_Free_Result(res)="MySQL_Free_Result"
MYSQL_RES^Object{
.Rows&
.Fields&
.Row$&[,]&
-New()="_pub_libmysql_MYSQL_RES_New"
-Delete()="_pub_libmysql_MYSQL_RES_Delete"
}="pub_libmysql_MYSQL_RES"
MYSQL^Object{
_mysql&=mem("_pub_libmysql_MYSQL__mysql")
_res&=mem("_pub_libmysql_MYSQL__res")
row@**&=mem:p("_pub_libmysql_MYSQL_row")
lengths*&=mem:p("_pub_libmysql_MYSQL_lengths")
-New()="_pub_libmysql_MYSQL_New"
-Delete()="_pub_libmysql_MYSQL_Delete"
+Init()="_pub_libmysql_MYSQL_Init"
+Connect@(host$,user$,passwd$,db$,port=0)="_pub_libmysql_MYSQL_Connect"
+Query:MYSQL_RES(query$)="_pub_libmysql_MYSQL_Query"
+Close()="_pub_libmysql_MYSQL_Close"
}="pub_libmysql_MYSQL"