PureBoard

Code: Alles auswählen

#_INTERNET_OPEN_TYPE_DIRECT = 1
#_HTTP_ADDREQ_FLAG_ADD = $20000000
#_HTTP_ADDREQ_FLAG_REPLACE = $80000000
#_INTERNET_FLAG_SECURE = 0
#_INTERNET_SERVICE_HTTP = 3
#_INTERNET_DEFAULT_HTTP_PORT = 80
#_HTTP_QUERY_COOKIE = 44

Procedure.s SendPOST(psPostData.s)
  Protected sUserAgent.s
  Protected sBuffer.s
  Protected sResult.s
  Protected sDomain.s
  Protected sPostHeader.s
  Protected sHost.s
  Protected iOpenHandle.i
  Protected iConnectHandle.i
  Protected iRequestHandle.i
  Protected iSendHandle.i
  Protected iBytesRead.i
  Protected iStatus.i
  
  sHost       = "test.testseite.de"
  sDomain     = ".testseite.de"
  sPostHeader = "Content-Type: application/x-www-form-urlencoded " + #CRLF$
  sPostHeader + "Cookie: testSession=IrgendEineSessionId; path=/; domain=" + sDomain + "; HttpOnly;" + #CRLF$
  sUserAgent  = "IrgendeinUserAgent"
  sBuffer     = Space(1024)
    
  If sHost <> "" And psPostData <> "" And sPostHeader <> ""
    iOpenHandle = InternetOpen_(sUserAgent, #_INTERNET_OPEN_TYPE_DIRECT, "", "", 0)
    If iOpenHandle
      iConnectHandle = InternetConnect_(iOpenHandle, sHost, #_INTERNET_DEFAULT_HTTP_PORT, "", "", #_INTERNET_SERVICE_HTTP, 0, 0)
      If iConnectHandle
        iRequestHandle = HttpOpenRequest_(iConnectHandle, "POST", "http://test.testseite.de/api.php", "", "", 0, #_INTERNET_FLAG_SECURE, 0)
        If iRequestHandle
          HttpAddRequestHeaders_(iRequestHandle, sPostHeader, Len(sPostHeader), #_HTTP_ADDREQ_FLAG_REPLACE | #_HTTP_ADDREQ_FLAG_ADD)
          iSendHandle = HttpSendRequest_(iRequestHandle, "", 0, psPostData, Len(psPostData))
          If iSendHandle
            Repeat
              InternetReadFile_(iRequestHandle, @sBuffer, 1024, @iBytesRead)
              sResult + Left(sBuffer, iBytesRead)
              sBuffer = Space(1024) 
            Until iBytesRead = 0
            
            iStatus = #True       
          Else
            iStatus = -3
          EndIf
        Else
          iStatus = -2
        EndIf
      Else
        iStatus = -1
      EndIf
    Else 
      iStatus = 0 
    EndIf
  Else
    iStatus = 0 
  EndIf
  
  If iStatus < 0 Or iStatus = #True
    InternetCloseHandle_(iOpenHandle)
  EndIf
  
  ProcedureReturn sResult
EndProcedure

Code: Alles auswählen

Procedure.s httpRequest(psType.s, psData.s)
  Protected iDataLen.i    
  Protected iBffSize.i    
  Protected iConnection.i 
  Protected iRqTime.i     
  Protected iNwEvent.i    
  Protected iRcvSize.i    
  Protected iHdrEnd.i     
  Protected sServer.s     
  Protected sDomain.s     
  Protected sURL.s        
  Protected sCookie.s     
  Protected sRequest.s    
  Protected sRcvData.s    
  Protected *RcvBff       
  
  sServer  = "test.testseite.de"
  sDomain  = Right(sServer, Len(sServer) - FindString(sServer, ".") + 1)
  sURL     = "http://" + sServer + "/api.php"
  sCookie  = "testSession=IrgendEineSessionId"
  iDataLen = StringByteLength(psData, #PB_Ascii)
  iBffSize = 65536
  
  Select psType
    Case "get"
      ; egal
    Case "post"
      sRequest + "POST " + sURL + " HTTP/1.0"                                                  + #CRLF$
      sRequest + "User-Agent: IrgendeinUserAgent"                                              + #CRLF$
      sRequest + "Host: " + sServer                                                            + #CRLF$
      sRequest + "Content-Type: application/x-www-form-urlencoded"                             + #CRLF$
      sRequest + "Content-Length: " + Str(iDataLen)                                            + #CRLF$
      sRequest + "Cookie: " + sCookie + "; path=/; domain=" + sDomain + "; HttpOnly;" + #CRLF$ + #CRLF$
      sRequest + psData
    Default
  EndSelect
  
  iConnection = OpenNetworkConnection(sServer, 80, #PB_Network_TCP | #PB_Network_IPv4)
  If iConnection
    SendNetworkString(iConnection, sRequest, #PB_Ascii)
    iRqTime = ElapsedMilliseconds()
    Repeat
      Delay(10)
      iNwEvent = NetworkClientEvent(iConnection)
    Until iNwEvent
    
    Select iNwEvent
      Case #PB_NetworkEvent_None
      Case #PB_NetworkEvent_Disconnect
      Case #PB_NetworkEvent_Data
        *RcvBff = AllocateMemory(iBffSize)
        If *RcvBff = 0
          ProcedureReturn ""
        EndIf
        Repeat
          iRcvSize = ReceiveNetworkData(iConnection, *RcvBff, iBffSize)
          sRcvData + PeekS(*RcvBff, iRcvSize, #PB_UTF8)
        Until Not iRcvSize
        FreeMemory(*RcvBff)
        
        iHdrEnd = FindString(sRcvData, #LFCR$, 1)
                
        If iHdrEnd
          ProcedureReturn Mid(sRcvData, iHdrEnd + 3)
        Else
          ProcedureReturn sRcvData
        EndIf
    EndSelect
    CloseNetworkConnection(iConnection)
  EndIf
  
EndProcedure

Code: Alles auswählen

POST /w/api.php HTTP/1.0
User-Agent: abcd
Host: test.testseite.de
Accept-Charset: utf-8
Cache-Control: no-cache
Connection: keep-alive
Content-Type: application/x-www-form-urlencoded
Content-Length: 45
Cookie: Session=xyz; path=/; domain=.testseite.de; HttpOnly;

Code: Alles auswählen

HTTP/1.1 200 OK
Server: Apache
X-Content-Type-Options: nosniff
Cache-control: private
X-Frame-Options: DENY
Content-Type: text/xml; charset=utf-8
Vary: Accept-Encoding,X-Use-HHVM
X-Varnish: 1065548698, 834413282, 1427052042
Via: 1.1 varnish, 1.1 varnish, 1.1 varnish
Content-Length: 347
Accept-Ranges: bytes
Date: Tue, 18 Nov 2014 19:35:27 GMT
Age: 0
Connection: keep-alive
X-Cache: cp1052 miss (0), amssq48 miss (0), amssq38 frontend miss (0)
X-Analytics: php=zend
Set-Cookie: GeoIP=xyz; Path=/; Domain=.testseite.de