HELP ON TCP FUNCTION

[LOULOU]

TCPStartUp()
Global $Server = "smtp.9online.fr"
Global $ServerIp = TCPNameToIP($Server)
; Start The TCP Services
;==============================================
; Connect to a Listening "SOCKET"
;==============================================
$socket = TCPConnect($ServerIp, 25 )
Msgbox(0,"",$socket)
If $socket <> -1 Then
    Sleep(100)
    $MainSocket = TCPRecv($socket, 1024)
    Msgbox(0,"",$mainsocket )
; Initialize a variable to represent a connection
;==============================================
    Sleep(100)
    $sData = "EHLO" & @ComputerName & @CRLF
    If StringLeft($sData, 3) = "220" Then
        TCPSend($Socket,"EHLO")
        If TCPSend($Socket, $sData) > 0 Then
            Sleep(100)
        Endif
    Endif
Endif
TCPCloseSocket ( $socket )
TCPshutdown()

I have trouble with TCPRECV wihch receive nothing. Someone can help me ?

Best regards

[themax90]

You need to put the recv in a While statement

While 1
TCPRecv($Socket, 512)
WEnd

It will not always send immediatly. This is fairly simple. Please check my signature for TCP examples that may help you.

Specific example is TCP Client Example below the links in the first post.

Edited July 25, 2006 by AutoIt Smith

[LOULOU]

You need to put the recv in a While statement

While 1
TCPRecv($Socket, 512)
WEnd

It will not always send immediatly. This is fairly simple. Please check my signature for TCP examples that may help you.

Specific example is TCP Client Example below the links in the first post.

I try with While 1 --Wend but the problem is always the same

expandcollapse popup

TCPStartUp()
Global $Server = "smtp.9online.fr"
Global $ServerIp = TCPNameToIP($Server)
; Start The TCP Services
;==============================================
; Connect to a Listening "SOCKET"
;==============================================
$socket = TCPConnect($ServerIp, 25 )
Msgbox(0,"",$socket)
If $socket <> -1 Then
    Sleep(100)
    
    While 1
    $Data = TCPRecv($Socket, 1048)
    If $Data = "~bye" Then
        MsgBox(16, "Session Ended", "Connection Terminated.")
        Exit
    ElseIf $Data <> "" Then
; Unconditional Receive
        MsgBox(0, "Received Packet", $Data)
    EndIf
WEnd
    

; Initialize a variable to represent a connection
;==============================================
    Sleep(100)
    $sData = "EHLO" & @ComputerName & @CRLF
    If StringLeft($sData, 3) = "220" Then
        TCPSend($Socket,"EHLO")
        If TCPSend($Socket, $sData) > 0 Then
            Sleep(100)
        Endif
    Endif
Endif
TCPCloseSocket ( $socket )
TCPshutdown()

[themax90]

Please take a serious look at my examples and even use the TCP Client Example. You seem to stray from the fact that you may need a GUI for sending information. You must be able to send the command while listening. Review the help file and the TCP Client/ TCP Server Communicator for help.

[/dev/null]

I have trouble with TCPRECV wihch receive nothing. Someone can help me ?

well, I did a telnet to that server on port 25. It simply does not answer, so it's no wonder TCPRecv() does not receive anything!

Cheers

Kurt

[nfwu]

The TCPAccept function is missing.

TCPStartup()
Global $Server = "smtp.9online.fr"
Global $ServerIp = TCPNameToIP($Server)
; Start The TCP Services
;==============================================
; Connect to a Listening "SOCKET"
;==============================================
$mainsocket = TCPConnect($ServerIp, 25)
MsgBox(0, "", $socket)
While 1
    $socket = TCPAccept($mainsocket)
    If $socket <> - 1 Then
        Sleep(100)
        Do
            $recvdata = TCPRecv($socket, 1024)
        Until $recvdata <> ""
        MsgBox(0, "", $recvdata)
        ; Initialize a variable to represent a connection
        ;==============================================
        Sleep(100)
        $sData = "EHLO" & @ComputerName & @CRLF
        If StringLeft($sData, 3) = "220" Then
            TCPSend($socket, "EHLO")
        EndIf
        If TCPSend($socket, $sData) > 0 Then
            Sleep(100)
        EndIf
    EndIf
WEnd
TCPCloseSocket($mainsocket)
TCPShutdown()

#)

edit: Did a Tidy on the script.

Edited July 25, 2006 by nfwu

[/dev/null]

The TCPAccept function is missing.

TCPAccept() is only for servers. He is trying to write a client! If TCPAccept() was missing, then TCPListen() is missing as well!

Cheers

Kurt

[nfwu]

Ah... my apologies.

I thought he was writing a server.

@LOULOU: Try sending something to the server first.

#)

[/dev/null]

Ah... my apologies.

I thought he was writing a server.

No problem.

@LOULOU: Try sending something to the server first.

I'm pretty sure the problem is somewhere else. As I said earlier:

I did a telnet to that server on port 25. It simply does not answer, so it's no wonder TCPRecv() does not receive anything!

Cheers

Kurt