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)
 Il modifier ceci:
 Il modifier ceci:

