Code : Tout sélectionner
#libmysql = 1
host.s = "127.0.0.1"
user.s = "root"
passwd.s = ""
db.s = "test"
port.l = 3306
dbHnd.l
SQL.s
row.s
i.l
j.l
affRows.l
fieldNum.l
rowsNum.l
Procedure.s GetError(db_ID,requester)
Protected Errormsg.s, i.l, Error.l
If CallFunction(#libmysql,"mysql_errno",db_ID) > 0
*Error =CallFunction(#libmysql,"mysql_error",db_ID)
i=-1
Repeat
i=i+1
Errormsg=Errormsg+PeekS(*Error+i,1)
Until PeekB(*Error+i)=0
If requester
Result= MessageRequester("MySQL error",Errormsg,#PB_MessageRequester_Ok)
EndIf
EndIf
ProcedureReturn Errormsg
EndProcedure
If OpenLibrary(#libmysql,"libmysql.dll")
Result=CallFunction(#libmysql,"mysql_init",dbHnd)
If Result
dbHnd = Result
If CallFunction(#libmysql,"mysql_real_connect",dbHnd, host, user, passwd, db, port, "", 0) = 0
GetError(dbHnd,1)
Else
CallDebugger
SQL = "SELECT * FROM ma_table"
If CallFunction(#libmysql,"mysql_real_query", dbHnd, SQL, Len(SQL))
GetError(dbHnd,1)
Else
*mysqlResult=CallFunction(#libmysql,"mysql_store_result",dbHnd)
;no result returned
If *mysqlResult=0
;no fields returned means error
If CallFunction(#libmysql,"mysql_field_count",dbHnd)
GetError(dbHnd,1)
;fields are returned, so no error but query didn't return data
Else
EndIf
;results are returned
Else
affRows = CallFunction(#libmysql,"mysql_affected_rows",dbHnd)
fieldNum = CallFunction(#libmysql,"mysql_num_fields",*mysqlResult)
rowsNum = CallFunction(#libmysql,"mysql_num_rows",*mysqlResult)
Debug affRows
Debug fieldNum
Debug rowsNum
For i=1 To rowsNum
*mysqlRow=CallFunction(#libmysql,"mysql_fetch_row",*mysqlResult)
*mysqlLen=CallFunction(#libmysql,"mysql_fetch_lengths",*mysqlResult)
row = ""
;length of given field
For j=1 To fieldNum
length=PeekL(*mysqlLen+4*(j-1))
fieldptr=PeekL(*mysqlRow+4*(j-1))
If fieldptr>0
content.s=PeekS(fieldptr,length)
Else
;zero pointer returend means empty field
content="NULL"
EndIf
row = row + content + ";"
Next j
Debug row
Next i
Result.l=CallFunction(#libmysql,"mysql_free_result",*mysqlResult)
EndIf
EndIf
EndIf
EndIf
Else
MessageRequester("Error!", "Couldn't open the libmysql.dll!")
EndIf
Code : Tout sélectionner
#Etna_Send_Id = 1 ; Id d'un process (car on peut appeler plusieurs pages simultanément
FileToCall$ = "score.php?id=blabla&sort=true" ; nom de la page PHP depuis la racine du site (définie par ETNA_SetServer())
ETNA_Initialise()
ETNA_SetServer("http://mon-serveur.free.fr/")
ETNA_Send(#Etna_Send_Id, FileToCall$)
While ETNA_GetNumberOfCommandsInQueue()
ETNA_Update()
If ETNA_Receive(#Etna_Send_Id)
; Test des données
If ETNA_GetState() = #ETNA_OK
msg$ = ETNA_GetResult()
Else
msg$ = "Erreur lors de la réception des données !!!"
EndIf
EndIf
Wend
Debug msg$
; affiche tout ce qui aura été généré avec un Echo/Print/Header par ta page PHP
Code : Tout sélectionner
<?php
// File : score.php
if(isset($_GET['id']))
{
$sort = FALSE;
switch( $_GET['sort'] )
{
case 1: case "1": case "yes": case "true": $sort = TRUE;
}
if($row = $bd->getOneRow("SELECT * FROM `table1` WHERE id='".$_GET['id']."'"
.($sort ? " ORDER BY SortKeyItem" : "") ))
{
echo '<?xml version="1.0" encoding="ISO-8859-1" standalone="yes"?>'."\n"
."<item>\n"
."\t<nom>".$row->nomItem."</nom>\n"
."\t<desc>".$row->descItem."</desc>\n"
."\t<prix>".$row->prixItem."</prix>\n"
."</item>\n";
}
else
{
echo "Item not found !";
}
}
else
{
echo "ID is missing !";
}
?>Code : Tout sélectionner
ETNA_Initialise()Lis bien les directives. T'as deux fichiers à copier/coller et sans doute aussi l'appel à une DLL pour récupérer les fonctions (vrai dans la version que j'ai utilisée, peut-être plus maintenant). Puis faut que tu fermes/réouvre l'éditeur PB.Kayne a écrit :Merci de ton aide Lionel,
Mais le probleme c'est que quand je tapePurebasic me renvoie : etna-initialise() is not a function, an array, or a linked list. Que faut il faire pour éviter cette erreur? (J'ai le dossier ETNA sur mon disque dur et le fichier ETNA.dll ds Purebasic/compilers)Code : Tout sélectionner
ETNA_Initialise()
Je viens de tester l'exemple "ETNA_HighScore.pb" et il marche très bien.Kayne a écrit :Déja un nouveau un nouveau probleme, lorsque je compile l'exemple pour purebasic, j'ai un message d'erreur:
The following purelibrary is missing: object.
Est-ce que qu'elqu'un sais ou je trouve cette library?
