Http Post

[GameTools]

Good morning, I'm having problems with this code, I'm creating a http CHAT, and wanted to use the POST method, it happens that when sending the request, it arrives well to the server, but when the server sends the response back, gave me error in http. Send, the response should return in http.receiveresponse  ? Any idea what I'm doing wrong? , Thank you very much in advance !

expandcollapse popup

TCPStartup()

$Listen = TCPListen( '0.0.0.0' , 80)

If (@error) Then

  TCPCloseSocket($Listen)
  Exit

EndIf


While 1

ChatConect()

WEnd


Func ChatConect()

        Sleep(10)

        $Socket = -1

        $Datarecv = -1

        $Socket = TCPAccept($Listen)

        If $Socket <> -1 Then

        $Datarecv = TCPRecv($Socket , 1024)

        If Not ( @error ) And $Datarecv <> "" Then

        MsgBox(64 , 'Message' , $Datarecv)

        TCPSend($Datarecv , 'Hi , Got my message back ???')

        EndIf

        EndIf


EndFunc

expandcollapse popup

$oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")


While 1

            $Msg = 'Hi how you ?'

            $Post = _HTTP_Post('http://'& @IPAddress1 & ':'& 80 , $Msg)

            If (@error)Then

               Exit

            Else

            MsgBox('','',$Post)

            EndIf

WEnd



Func _HTTP_Post($url, $postdata = '')

    Local $oHTTP = ObjCreate("winhttp.winhttprequest.5.1")

    $oHTTP.Open("POST", $url, False)

    If (@error) Then Return SetError(1, 0, 0)

    $oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")

    $oHTTP.Send($Msg)

    If @error Then
    
    MsgBox(16, "Error", "$oHTTP.Send() returned @error = " & @error & ", and @extended = " & @extended)
    
    $HTMLSource = $oHTTP.Responsetext
    
    MsgBox(64, "Results", $HTMLSource)
    
    EndIf

    If($oHTTP.Status <> 200) Then Return False

    Return $oHTTP.ResponseText

EndFunc


Func MyErrFunc()
    $HexNumber = Hex($oMyError.number, 8)
    ConsoleWrite("We intercepted a COM Error !" & @LF & _
            "Number is: " & $HexNumber & @LF & _
            "Windescription is: " & $oMyError.windescription & @LF)
    Return SetError(1, $HexNumber)
EndFunc

 

 

[GameTools]

Any help ? Directions ? Thanks !

[mLipok]

You should use COM Error Handler.
Read about ObjEvent() function.

[GameTools]

Thanks mLipok , i'm using already , that's is the problem , i got this 

$oHTTP.Send() returned @error = -2147352567  and @extended = 0

We intercepted a COM Error !
Number is: 80020009
Windescription is: The data necessary to complete this operation is not yet available.

 

And I don`t know why , its should return message from http.receiveresponse

Sorry , kind newbie in autoit

[mLipok]

You have server and client.
You post here two scripts why ? What is doing first , and what is the second ?
I suppouse first is server, and second is client ?

But you do not describe it well.

 

Edited May 13, 2017 by mLipok

[mLipok]

 

12 minutes ago, GameTools said:

Sorry , kind newbie in autoit

I suppose that the problem is not in your AutoIt knowledge level, but in understanding what Client/Server communication means.

 

[GameTools]

 

Sorry for not explaining well, I'm trying to make an HTTP CHAT using the POST method The client connects well and sends the message, but when the server responds, it gives me this error that I commented I believe the answer should go back via http.receiveResponse, but it does not happen

 

And yes , first server , thanks for your help !

Edited May 13, 2017 by GameTools

[mLipok]

I'm not expert in Client/Server communication, especially when it comes in Server development.
But I found that in this following snippet:
 

$Datarecv = TCPRecv($Socket , 1024)

        If Not ( @error ) And $Datarecv <> "" Then

        MsgBox(64 , 'Message' , $Datarecv)

        TCPSend($Datarecv , 'Hi , Got my message back ???')

You are using TCPSend() in a wrong way. I mean the first parameter can not be just a return value from TCPRecv()

 

[GameTools]

Yep , u right , thanks , I switch to Socket , but the error still ....

Func ChatConect()

        Sleep(10)

        $Socket = -1

        $Datarecv = -1

        $Socket = TCPAccept($Listen)

        If $Socket <> -1 Then

        $Datarecv = TCPRecv($Socket , 1024)

        If Not ( @error ) And $Datarecv <> "" Then

        MsgBox(64 , 'Message' , $Datarecv)

        TCPSend($Socket , 'Hi , Got my message back ???')

        EndIf

        EndIf
Endfunc

 

 

Edited May 13, 2017 by GameTools

[mLipok]

You should use separate Sockets for Incoming/Outgoing connection.
And as I said this is not so easy as you think co communicate in this way - I mean using Http requests from client side.
As I said I'm not TCP/IP expert.

 

 

[GameTools]

Humm , make sense ,  thanks man , I'll figure out  what you said !