'############################################################################### '############################################################################### ' ' Copyright (C) 2001 Devparadise.com. ' ' This library is free software; you can redistribute it and/or ' modify it under the terms of the GNU Library General Public ' License as published by the Free Software Foundation; either ' version 2 of the License, or (at your option) any later version. ' ' This library is distributed in the hope that it will be useful, ' but WITHOUT ANY WARRANTY; without even the implied warranty of ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ' Library General Public License for more details. ' ' You should have received a copy of the GNU Library General Public ' License along with this library; if not, write to the Free ' Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. ' '############################################################################### '############################################################################### ' ' Written by Philippe PETIT ' ' Please send questions, comments, and changes to [email protected] ' '############################################################################### '############################################################################### ' %LONG_SIZE = 4 %INT_SIZE = 2 %BYTE_SIZE = 1 '=============================================================================================== '========= public declarations ================================================================= '=============================================================================================== %MYSQL_OPT_CONNECT_TIMEOUT = 0 %MYSQL_OPT_COMPRESS = 1 %MYSQL_OPT_NAMED_PIPE = 2 %MYSQL_INIT_COMMAND = 3 %MYSQL_READ_DEFAULT_FILE = 4 %MYSQL_READ_DEFAULT_GROUP = 5 %MYSQL_SET_CHARSET_DIR = 6 %MYSQL_SET_CHARSET_NAME = 7 %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 protocol %CLIENT_ODBC = 64 'Odbc client %CLIENT_LOCAL_FILES = 128 'Can use LOAD DATA LOCAL %CLIENT_IGNORE_SPACE = 256 'Ignore spaces before '(' %CLIENT_CHANGE_USER = 512 'Support the mysql_change_user() %CLIENT_INTERACTIVE = 1024 'This is an interactive client %CLIENT_SSL = 2048 'Switch to SSL after handshake %CLIENT_IGNORE_SIGPIPE = 4096 'IGNORE sigpipes %CLIENT_TRANSACTIONS = 8196 'Client knows about transactions Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (lpDestination As Any, lpSource As Any, ByVal lLength As Long) 'connection management routines Declare Sub mysql_close Lib "libmySQL.DLL" ALIAS "mysql_close" (ByVal lMYSQL As Long) Declare Function mysql_init Lib "libmySQL.DLL" ALIAS "mysql_init" (ByVal lMYSQL As Long) As Long Declare Function mysql_options Lib "libmySQL.DLL" ALIAS "mysql_options" (ByVal lMYSQL As Long, ByVal lOption As Long, sArg As ASCIIZ) As Long Declare Function mysql_ping Lib "libmySQL.DLL" ALIAS "mysql_ping" (ByVal lMYSQL As Long) As Long Declare Function mysql_real_connect Lib "libmySQL.DLL" ALIAS "mysql_real_connect" (ByVal lMYSQL As Long, sHostName As ASCIIZ, sUserName As ASCIIZ, sPassword As ASCIIZ, sDbName As ASCIIZ, byval lPortNum As Long, sSocketName As ASCIIZ, ByVal lFlags As Long) As Long 'status and error-reporting routines Declare Function mysql_errno Lib "libmySQL.DLL" ALIAS "mysql_errno" (ByVal lMYSQL As Long) As Long Declare Function mysql_error Lib "libmySQL.DLL" ALIAS "mysql_error" (ByVal lMYSQL As Long) As Long 'query contruction and execution routines Declare Function mysql_query Lib "libmySQL.DLL" ALIAS "mysql_query" (ByVal lMYSQL As Long, sQueryString As ASCIIZ) As Long Declare Function mysql_select_db Lib "libmySQL.DLL" ALIAS "mysql_select_db" (ByVal lMYSQL As Long, sDbName As ASCIIZ) As Long 'result set processing routines Declare Function mysql_affected_rows Lib "libmySQL.DLL" ALIAS "mysql_affected_rows" (ByVal lMYSQL_RES As Long) As Long Declare Sub mysql_data_seek Lib "libmySQL.DLL" ALIAS "mysql_data_seek" (ByVal lMYSQL_RES As Long, ByVal lOffset As Currency) Declare Function mysql_fetch_field_direct Lib "libmySQL.DLL" ALIAS "mysql_fetch_field_direct" (ByVal lMYSQL_RES As Long, ByVal lFieldNum As Long) As Long Declare Function mysql_fetch_lengths Lib "libmySQL.DLL" ALIAS "mysql_fetch_lengths" (ByVal lMYSQL_RES As Long) As Long Declare Function mysql_fetch_row Lib "libmySQL.DLL" ALIAS "mysql_fetch_row" (ByVal lMYSQL_RES As Long) As Long Declare Function mysql_field_count Lib "libmySQL.DLL" ALIAS "mysql_field_count" (ByVal lMYSQL As Long) As Long Declare Sub mysql_free_result Lib "libmySQL.DLL" ALIAS "mysql_free_result" (ByVal lMYSQL As Long) Declare Function mysql_info Lib "libmySQL.DLL" ALIAS "mysql_info" (ByVal lMYSQL As Long) As Long Declare Function mysql_insert_id Lib "libmySQL.DLL" ALIAS "mysql_insert_id" (ByVal lMYSQL As Long) As Long Declare Function mysql_num_fields Lib "libmySQL.DLL" ALIAS "mysql_num_fields" (ByVal lMYSQL_RES As Long) As Long Declare Function mysql_num_rows Lib "libmySQL.DLL" ALIAS "mysql_num_rows" (ByVal lMYSQL_RES As Long) As Long Declare Function mysql_store_result Lib "libmySQL.DLL" ALIAS "mysql_store_result" (ByVal lMYSQL As Long) As Long Declare Function mysql_use_result Lib "libmySQL.DLL" ALIAS "mysql_use_result" (ByVal lMYSQL As Long) As Long Function GetFieldName(Byval lField As Long, byval MYSQL_RES as long) As String Dim b As Byte Dim sVal As String Dim lMYSQL_FIELD As Long 'pointer to mysql field structure Dim lpName As Long 'pointer to field name lMYSQL_FIELD = mysql_fetch_field_direct(MYSQL_RES, lField) If lMYSQL_FIELD = 0 Then Exit Function CopyMemory lpName, ByVal lMYSQL_FIELD, %LONG_SIZE If lpName = 0 Then Exit Function sVal = "" Do CopyMemory b, ByVal lpName, %BYTE_SIZE If b = 0 Then Exit Do sVal = sVal & Chr$(b) lpName = lpName + %BYTE_SIZE Loop GetFieldName = sVal End Function Function GetFieldValue(Byval lField As Long, byval MYSQL_FIELD_LENGTHS as long, byval MYSQL_ROW as long) As string Dim lTmpChar As Long, lCurLen As Long Dim lRowData As Long Dim b As Byte Dim sVal As String CopyMemory lRowData, ByVal (MYSQL_ROW + (%LONG_SIZE * lField)), %LONG_SIZE CopyMemory lCurLen, ByVal (MYSQL_FIELD_LENGTHS + (%LONG_SIZE * lField)), %LONG_SIZE If lRowData = 0 Then 'null pointer GetFieldValue = "" Else sVal = "" For lTmpChar = 1 To lCurLen CopyMemory b, ByVal (lRowData + (%BYTE_SIZE * (lTmpChar - 1))), %BYTE_SIZE sVal = sVal & Chr$(b) Next lTmpChar GetFieldValue = sVal End If End Function
Tweet
'-------------------------------------------------------------------------------
'
' HELLOCGI.BAS for PB/DLL 5.0
' Copyright (c) 2001 by Philippe PETIT.
'
'-------------------------------------------------------------------------------
$COMPILE EXE
$INCLUDE "WIN32API.INC"
$INCLUDE "PBMYSQL.INC"
global hSTDOUT as long
global hSTDIN as long
Sub InitCGI()
hSTDOUT=GetStdHandle(%STD_OUTPUT_HANDLE)
hSTDIN=GetStdHandle(%STD_INPUT_HANDLE)
End Sub
Sub Send(s As Asciiz)
'======================
' Send output to STDOUT
'======================
Dim rc As Long
Dim mBytes As Long
s = s & chr$(13) & chr$(10)
WriteFile hSTDOUT, s, Len(s), mBytes, ByVal %NULL
End Sub
Sub SendBinary(s As Asciiz)
'======================
' Send output to STDOUT
'======================
Dim mBytes As Long
WriteFile hSTDOUT, s, Len(s), mBytes, ByVal %NULL
End Sub
Function Main() As Long
Dim mlMYSQL as long
Dim Cursor as long
Dim mlMYSQL_RES as long
Dim cSeekRow As Currency
Dim mlAffectedRecords as long
Dim mlRecordCount as long
Dim mlFieldCount as long
Dim mlCurrentRecord as long
Dim mlMYSQL_ROW as long
Dim mlMYSQL_FIELD_LENGTHS as long
Dim i as long
InitCGI
Send "Status: 200 OK"
Send "Content-type: text/html" & chr$(13) & chr$(10)
Send "<HTML><HEAD><TITLE>test</TITLE></HEAD>"
Send "<BODY>"
mlMYSQL = mysql_init(mlMYSQL)
If mysql_real_connect(mlMYSQL, "YourServerNameorIP", "YourLogin", "YourPassWord", "YourDatabaseName", 3306, "", ByVal %NULL)=0 Then
Send "hello world connection failed"
Else
Send "hello world connection OK !<BR>"
Cursor=mysql_query(mlMYSQL,"select * from Tablename")
mlMYSQL_RES = mysql_store_result(mlMYSQL)
mlAffectedRecords = mysql_affected_rows(mlMYSQL)
mlRecordCount = mysql_num_rows(mlMYSQL_RES)
mlFieldCount = mysql_num_fields(mlMYSQL_RES)
Send "<Table border=1><TR>"
For i= 0 to mlFieldCount-1
Send "<TD BGCOLOR=#CCCCCC>" & GetFieldName(i,mlMYSQL_RES) & "</TD>"
Next i
Send "</TR>"
For mlCurrentRecord=1 to mlRecordCount
Send "<TR>"
cSeekRow = (mlCurrentRecord - 1) / (10 ^ 4)
mysql_data_seek mlMYSQL_RES, cSeekRow
mlMYSQL_ROW = mysql_fetch_row(mlMYSQL_RES)
mlMYSQL_FIELD_LENGTHS = mysql_fetch_lengths(mlMYSQL_RES)
For i= 0 to mlFieldCount-1
Send "<TD>" & GetFieldValue(i,mlMYSQL_FIELD_LENGTHS,mlMYSQL_ROW) & "</TD>"
Next i
Send "</TR>"
Next mlCurrentRecord
Send "</TABLE>"
mysql_free_result mlMYSQL_RES
End If
mysql_close mlMYSQL
mlMYSQL = 0
Send "</BODY>"
Send "</HTML>"
End Function
Comment