TCPClient

This UDF contains function for simply handling a TCP Client.

Example

This script is an example of using this UDF, it’s a very basic TCP Chat client.  You can use it with the TCP Server example.

;----------------------------------------------------------------------------
;
; AutoIt Version: 3.3.6.1
; Author:         Matwachich
;
; Script Function:
;
;
;----------------------------------------------------------------------------
#NoTrayIcon

#include <GuiEdit.au3>
#include "TCPClient.au3"

TCPStartup()

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

; On demande un nom d'utilisateur
; Wee need a user name
Do
    $__NickName = InputBox("Chat", "Entrez votre pseudo")
    If @error Then Exit
Until $__NickName

#Region ### START Koda GUI section ### Form=
$GUI = GUICreate("Chat", 378, 256, 384, 171)
$Edit = GUICtrlCreateEdit("", 6, 6, 365, 215, BitOR($ES_AUTOVSCROLL,$ES_READONLY,$ES_WANTRETURN,$WS_VSCROLL))
$Input = GUICtrlCreateInput("", 6, 228, 283, 21)
$Button1 = GUICtrlCreateButton("Envoyer", 294, 228, 75, 21)
Global $accels[1][2] = [["{enter}", $Button1]]
GuiSetAccelerators($accels)
$accels = 0
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Global $tmp, $connTimer = TimerInit()

; On créer un client et on lui assigne des fonction callback
; Client creation, and callbacks functions assigning
Global $Client = _TCPClient_Create(@IPAddress1, 53698, "motdepassedecryptagedesdonneessupersecret")
_TCPClient_SetCallbacks($Client, "_TCP_Recv")

; Boucle principale
; Main loop
While 1
    Switch GUIGetMsg()
        ; Avant de quitter, on detruit le client
        ; Befor exit, we destroy the client
        Case $GUI_EVENT_CLOSE
            _TCPClient_Destroy($Client)
            TCPShutdown()
            Exit
        ; ---
        ; Envoi d'un message, seulement si le Input contient quelque chose
        ; Sending message, only if there is something in the Input
        Case $Button1
            $tmp = GuiCtrlRead($Input)
            If $tmp Then
                _TCPClient_Send($Client, $tmp)
                GuiCtrlSetData($Input, "")
            EndIf
        ; ---
    EndSwitch
    ; ---
    ; Si le client est déconnecté, on essay de se connecter 1 fois / seconde
    ; If the client is disconnected, then we indefinitly try to connect once per second
    If Not _TCPClient_IsConnected($Client) Then
        If TimerDiff($connTimer) >= 1000 Then
            _TCPClient_Connect($Client)
            $connTimer = TimerInit()
        EndIf
    EndIf
    ; ---
    ; Fonction de traitement
    ; Processing function
    _TCPClient_Process()
WEnd

; Fonction appelée à la reception d'un message depuis le serveur
; Function called when a message is received from the server
Func _TCP_Recv($iClient, $Data)
    ; Cette ligne ne sert à rien puisque nous n'avons qu'un seul client dans le script, mais si nous
    ; en avion plusieurs, elle permetterai si tous les clients avait la même fonction callback de réception,
    ; de savoir de quel client émane le message reçu
    ; This line isn't very usefull in our example, but it would be usefull in a script containing many clients
    ; in order to (if all the client had the same callback function) know which client is concerned by the event
    If $iClient <> $Client Then Return
    ; ---
    ; Si le message reçu est une requète d'identification, alors on s'identify au pres du serveur
    ; If the message received is an identification request, then we identify ourself to the server
    If $Data = "#IDENTIFY#" Then
        _TCPClient_Send($iClient, "#NAME#" & $__NickName)
        Return
    EndIf
    ; ---
    ; Si non, ça veut dir que c'est un simple message, alors on l'affiche de le Edit
    ; Else, it's a simple chat message, so we display it in the Edit
    Local $read = GuiCtrlRead($Edit)
    GuiCtrlSetData($Edit, $read & $Data & @CRLF)
    _GUICtrlEdit_LineScroll($Edit, 0, _GUICtrlEdit_GetLineCount($Edit))
EndFunc