PureBasic

Code : Tout sélectionner

Buffer = PeekS(*Buffer,-1,#PB_UTF8)

Code : Tout sélectionner

;Send data
IncludeFile "HTTPRequest.pbi"

Global User.s, Say.s, DataSend.s

;My data
User = "falsam"
Say  = "Je teste la fonction HTTPRequest"

;Format data
;A URL$ may Not contain certain characters such as: tab, space, accent letter etc., 
DataSend + "&user=" + URLEncoder(User) + "&say=" + URLEncoder(Say)

;Send data
If HTTPRequest("s242132022.onlinehome.fr", "/racal/", 80, "usersay0.php", "POST", DataSend) = ""
  MessageRequester("Information","Information ajouté")
EndIf

Code : Tout sélectionner

"Faile\td to connect to MySQL: Access denied for user 'dbo382419105'@'212.227..' (using password: YES)"

Code : Tout sélectionner

Buffer = PeekS(*Buffer)

Code : Tout sélectionner

Buffer = PeekS(*Buffer, -1, #PB_UTF8 | #PB_ByteLength)

Code : Tout sélectionner

;Send data

Global User.s, Say.s, DataSend.s

;My data
User = "falsam"
Say  = "Fig tu peux oublier HTTPRequest au profit de ReceiveHTTPMemory()"

;Format data
DataSend + "&user=" + URLEncoder(User) + "&say=" + URLEncoder(Say)

InitNetwork()

*Buffer = ReceiveHTTPMemory("s242132022.onlinehome.fr/racal/usersay0.php?" + DataSend)

If *Buffer
Else
  Debug "Failed"
EndIf