Bon depuis quelques temps j'essaye de communiquer avec un serveur web en utilisant des sockets. Tous marche bien sauf la reception des donnees. Je ne recois qu'une partie des donnees et pas toujours la meme quantitié. Voila le code que j'utilise:
Code : Tout sélectionner
Procedure.s ReceiveData(Connection)
Datas.s = ""
BufferSize = 1024
*Buffer = AllocateMemory(BufferSize)
Repeat
Result = ReceiveNetworkData(Connection, *Buffer, BufferSize)
Datas + PeekS(*Buffer)
Until Result < BufferSize
FreeMemory(*Buffer)
ProcedureReturn Datas
EndProcedure
Procedure.s SendSocket(Host.s, Socket.s)
Conn = OpenNetworkConnection(Host, 80)
If Conn
SendNetworkData(Conn, @Socket, Len(Socket))
Delay(1)
Result.s = ReceiveData(Conn)
CloseNetworkConnection(Conn)
ProcedureReturn Result
Else
ProcedureReturn ""
EndIf
EndProcedure
InitNetwork()
Host.s = "www.equipagesurvivors.com"
Socket.s = "HEAD /index.php HTTP/1.1+Chr(10)+Host: www.equipagesurvivors.com+Chr(10)+Connection: Keep-Alive"
Result.s = SendSocket(Host, Socket)
