AutoIt Français

Code : Tout sélectionner

Legend:
-------
+: Addition, -: Remouved/Deprecated, *: Modified, !: Bug correction
=== Version 1.1 === (20/11/2011)
+: ZLib data compression, optional (disabled by default)
!: Client's properties were not reset when a client disconnects
!: Incorrect _TCPServer_SocketList. Now works well (thanks Tetdoss)

Code : Tout sélectionner

Legend:
-------
+: Addition, -: Remouved/Deprecated, *: Modified, !: Bug correction
=== Version 1.1.1 === (21/11/2011)
+: Added 2 helper functions (see documentation)
!: Another bug corrected in _TCPServer_SocketList. Thanks Tetdoss (again!)

Code : Tout sélectionner

Legend:
-------
+: Addition, -: Remouved/Deprecated, *: Modified, !: Bug correction
=== Version 1.2 === (21/11/2011)
*: Now UTF-8 String are correctly processed (thanks jchd!)

Code : Tout sélectionner

#cs
Function: _TCP_GetCmd
    Analyse a packet created by <_TCP_MakeCmd>, and extract the packet name, the parameters, and the data

Syntax:
    >_TCP_GetCmd($rData, ByRef $sCmd, ByRef $aParams, ByRef $Data)

Parameters:
    $rData - The packet
    $sCmd - Will be filled with the packet name
    $aParams - Will be filled with a 1-Based array, where Elem[0] is the number of parameters, and
                the other elements Elem[x], will be the parameters
    $Data - Will be filled with the packet's Data

Return:
    Succes - 1
    Failed - 0 And set @error = 1 if the packet isn't valid
#ce
Func _TCP_GetCmd($rData, ByRef $sCmd, ByRef $aParams, ByRef $Data)
    $rData = StringSplit($rData, Chr(29), 1)
    If $rData[0] <> 3 Then Return SetError(1, 0, 0)
    ; ---
    $sCmd = $rData[1]
    $Data = $rData[3]
    $aParams = StringSplit($rData[2], Chr(31), 1)
    ; ---
    Return 1
EndFunc

#cs
Function: _TCP_MakeCmd
    Create a packet to be sent over TCP, can have:
    
    - A command name
    - A variable number of parameters
    - Some Data

Syntax:
    >_TCP_MakeCmd($sCmd, $aParams, $Data)

Parameters:
    $sCmd - Command name
    $aParams - Eiter an 0-Based array containing the parameters, or a string with the parameters
                delimited by Chr(31)
    $Data - The data of the packet, string, binary string...

Return:
    Succes - The packet
#ce
Func _TCP_MakeCmd($sCmd, $aParams, $Data)
    If IsArray($aParams) Then
        Local $str = ""
        For $elem In $aParams
            $str &= $elem & Chr(31)
        Next
        $aParams = StringTrimRight($str, 1)
    EndIf
    ; ---
    Return $sCmd & Chr(29) & $aParams & Chr(29) & $Data
EndFunc

; ##############################################################

#include <Array.au3>

; on créer un packet typique de fichier, avec comme nom "file", comme parametres le nom du fichier et sa taille, et comme
; données, le contenue du fichier
$send = _TCP_MakeCmd("file", @ScriptName & Chr(31) & FileGetSize(@ScriptFullPath), FileRead(@ScriptFullPath))

; ###
; Ici normalement le packet $send devrai être envoyé par TCP, puis reçu
; ###

Local $cmd, $params, $data
; on recoit le packet, et on l'analyse et décortique
_TCP_GetCmd($send, $cmd, $params, $data)

; affichage du contenu du packet
ConsoleWrite($cmd & @CRLF)
_ArrayDisplay($params)
ConsoleWrite($data & @CRLF)