Voilà, le code suivant permet de rapporter le contenu d'un fichier PHP afin de pouvoir se coonceter à un BD de type free n'acceptant pas les requetes externes. Mais le pb est le code d'utilsiation bugge à 4637 !
On peut déjà vous dire que cela ne vient pas du thread !
La DLL à compiler en bkdb.dll :
Code : Tout sélectionner
Enumeration
#File
EndEnumeration
#INTERNET_FLAG_RELOAD = $80000000
#INTERNET_DEFAULT_HTTP_PORT = 80
#INTERNET_SERVICE_HTTP = 3
#HTTP_QUERY_FLAG_NUMBER = $20000000
#HTTP_QUERY_CONTENT_LENGTH = 5
#HTTP_QUERY_STATUS_CODE = 19
#HTTP_STATUS_OK = 200
#INTERNET_OPEN_TYPE_DIRECT = 1
Enumeration
#INITIALISED
#RUNNING
#FINISHED_OK
#NO_NETWORK
#CONNECTION_FAILED
#REQUEST_ERROR
#SYSTEM_ERROR
EndEnumeration
Enumeration
#OK
#THREAD_ALREADY_RUNNING
EndEnumeration
Global URL.s, domain.s, result.s, server.s, state.l
ProcedureDLL.s BKDB_GetResult()
ProcedureReturn result
EndProcedure
ProcedureDLL.l BKDB_GetState()
ProcedureReturn state
EndProcedure
ProcedureDLL BKDB_Init(serverAddress.s)
server = serverAddress
state = #INITIALISED
result = ""
EndProcedure
ProcedureDLL BKDB_CheckError(value, sMessage.s, terminate)
If value = 0
MessageRequester("Error : ", sMessage, #PB_MessageRequester_Ok)
If terminate
End
EndIf
EndIf
EndProcedure
ProcedureDLL BKDB_Main()
FileName.s = "CacheFile.txt"
If URLDownloadToFile_(#Null, URL, FileName, #Null, #Null) <> 0
dwordSize = 4
hInet = InternetOpen_("Mozilla/5.0 (Windows; U; Windows NT 5.1; es-ES; rv:1.7.8) Gecko/20050511 Firefox/1.0.4", #INTERNET_OPEN_TYPE_DIRECT, #Null, #Null, 0)
; BKDB_CheckError(hInet, "Internet connection not available.", #TRUE)
If hInet = 0
state = #NO_NETWORK
ProcedureReturn result
EndIf
hURL = InternetOpenUrl_(hInet, URL, #Null, 0, #INTERNET_FLAG_RELOAD, 0)
; BKDB_CheckError(hURL, "InternetOpenUrl_() failed", #TRUE)
If hURL = 0
state = #CONNECTION_FAILED
ProcedureReturn result
EndIf
hInetCon = InternetConnect_(hInet, Domain, #INTERNET_DEFAULT_HTTP_PORT, #Null, #Null, #INTERNET_SERVICE_HTTP, 0, 0)
; BKDB_CheckError(hInetCon, "Unable to connect to " + Domain, #TRUE)
If hInetCon = 0
state = #CONNECTION_FAILED
ProcedureReturn result
EndIf
hHttpOpenRequest = HttpOpenRequest_(hInetCon, "HEAD", RemoveString(URL, "http://" + Domain + "/"), "http/1.0", #Null, 0, #INTERNET_FLAG_RELOAD, 0)
; BKDB_CheckError(hHttpOpenRequest, "Http open request to " + Domain + " failed", #TRUE)
If hHttpOpenRequest = 0
state = #CONNECTION_FAILED
ProcedureReturn result
EndIf
; BKDB_CheckError(HttpSendRequest_(hHttpOpenRequest, #NULL, 0, 0, 0), "Http send request to " + Domain + " failed.", #TRUE)
res = HttpSendRequest_(hHttpOpenRequest, #Null, 0, 0, 0)
If res = 0
state = #CONNECTION_FAILED
ProcedureReturn result
EndIf
; BKDB_CheckError(HttpQueryInfo_(hHttpOpenRequest, #HTTP_QUERY_FLAG_NUMBER | #HTTP_QUERY_STATUS_CODE, @sCode, @dwordSize, @lpdwIndex), "Http query failed.", #FALSE)
res = HttpQueryInfo_(hHttpOpenRequest, #HTTP_QUERY_FLAG_NUMBER | #HTTP_QUERY_STATUS_CODE, @sCode, @dwordSize, @lpdwIndex)
If res = 0
state = #REQUEST_ERROR
EndIf
; BKDB_CheckError(sCode = #HTTP_STATUS_OK, "Status code query failed.", #FALSE)
If sCode <> #HTTP_STATUS_OK
state = #REQUEST_ERROR
EndIf
; BKDB_CheckError(HttpQueryInfo_(hHttpOpenRequest, #HTTP_QUERY_FLAG_NUMBER | #HTTP_QUERY_CONTENT_LENGTH, @sCode, @dwordSize, @lpdwIndex), "CONTENT_LENGTH query failed.", #FALSE)
res = HttpQueryInfo_(hHttpOpenRequest, #HTTP_QUERY_FLAG_NUMBER | #HTTP_QUERY_CONTENT_LENGTH, @sCode, @dwordSize, @lpdwIndex)
If res = 0
state = #REQUEST_ERROR
EndIf
If sCode
DataBufferLength = sCode
Else
DataBufferLength = 4096
EndIf
*DataBuffer = AllocateMemory(DataBufferLength)
; BKDB_CheckError(*DataBuffer, "Not enough memory.", #TRUE)
If *DataBuffer = 0
state = #SYSTEM_ERROR
ProcedureReturn result
EndIf
; BKDB_CheckError(CreateFile(0, FileName), "Unable to create file.", #TRUE)
res = CreateFile(0, FileName)
If res = 0
state = #SYSTEM_ERROR
ProcedureReturn result
EndIf
Repeat
; BKDB_CheckError(InternetReadFile_(hURL, *DataBuffer, DataBufferLength, @Bytes), "Download failed.", #TRUE)
res = InternetReadFile_(hURL, *DataBuffer, DataBufferLength, @Bytes)
If res = 0
state = #SYSTEM_ERROR
ProcedureReturn result
EndIf
If Bytes
WriteData(*DataBuffer, Bytes)
EndIf
Until Bytes=0
CloseFile(0)
FreeMemory(*DataBuffer)
InternetCloseHandle_(hInetCon)
InternetCloseHandle_(hURL)
InternetCloseHandle_(hInet)
EndIf
If ReadFile(#File, FileName)
*Buffer = AllocateMemory(Lof())
ReadData(*Buffer, Lof())
CloseFile(#File)
DeleteFile(FileName)
EndIf
result = PeekS(*Buffer)
FreeMemory(*Buffer)
state = #FINISHED_OK
ProcedureReturn result
EndProcedure
ProcedureDLL.l BKDB_Run(command.s)
; Cancel the command if a thread is already running
If state = #RUNNING
ProcedureReturn #THREAD_ALREADY_RUNNING
EndIf
result = ""
state = #RUNNING
URL.s = server + "/" + command
domain.s = RemoveString(Left(URL, FindString(URL, "/", 8) - 1), "http://")
ThreadID = CreateThread(@BKDB_Main(), 0)
ProcedureReturn #OK
EndProcedure
ProcedureDLL.l BKDB_RunNoThread(command.s)
; Cancel the command if a thread is already running
If state = #RUNNING
ProcedureReturn #THREAD_ALREADY_RUNNING
EndIf
result = ""
state = #RUNNING
URL.s = server + "/" + command
domain.s = RemoveString(Left(URL, FindString(URL, "/", 8) - 1), "http://")
BKDB_Main()
ProcedureReturn #OK
EndProcedureCode : Tout sélectionner
If OpenLibrary(0, "BKDB.DLL")
CallFunction(0,"BKDB_Init","http://repeatuntil.free.fr/")
CallFunction(0,"BKDB_RunNoThread","BKDB.php?opt=setValue&value=" + Str(Random(100)))
Repeat
ia=ia+1
resultat=CallFunction(0,"BKDB_GetResult")
Debug Str(ia)+":"+Str(resultat)
Until False
EndIf