tcp send recive file problem

[faustf]

hi guys  i try to understund  how work this script

expandcollapse popup

Global Const $WS_CAPTION = 0x00C00000

Global Const $WS_POPUP = 0x80000000

Global Const $WS_POPUPWINDOW = 0x80880000

Global Const $WS_EX_ACCEPTFILES = 0x00000010

Global Const $TCS_FIXEDWIDTH = 0x00000400

Global Const $PBS_SMOOTH = 1

Global Const $SS_CENTER = 1

Global Const $GUI_EVENT_CLOSE = -3

Global Const $GUI_SHOW = 16

Global Const $GUI_BKCOLOR_TRANSPARENT = -2

Global Const $GUI_DROPACCEPTED = 8

Global Const $ES_NUMBER = 8192



$GUI = GUICreate("TCP File Transfer", 321, 228, -1, -1, BitOR($WS_POPUPWINDOW, $WS_CAPTION), $WS_EX_ACCEPTFILES)

GUICtrlCreateTab(10, 10, 300, 145, $TCS_FIXEDWIDTH)



GUICtrlCreateTabItem("Receiver")

GUICtrlSetState(-1, $GUI_SHOW)

$Receiver_Destination = GUICtrlCreateInput("", 24, 90, 187, 22)

GUICtrlCreateLabel("Select a destination directory. If one is not selected, it will be set to the desktop.", 24, 45, 272, 40)

GUICtrlSetFont(-1, 10)

$Receiver_Browse = GUICtrlCreateButton("Browse...", 221, 90, 75, 22, 0)

$Receiver_Wait = GUICtrlCreateButton("Wait for File", 24, 121, 272, 22, 0)



GUICtrlCreateTabItem("Sender")

GUICtrlCreateLabel("Select a file to send.", 29, 50, 262, 20)

GUICtrlSetFont(-1, 10)

$Sender_File = GUICtrlCreateInput("", 29, 80, 177, 22)

GUICtrlSetState(-1, $GUI_DROPACCEPTED)

$Sender_Browse = GUICtrlCreateButton("Browse...", 216, 80, 75, 22, 0)

$Sender_Chunk = GUICtrlCreateInput("5", 142, 113, 65, 22, $ES_NUMBER)

GUICtrlCreateLabel("Chunk Size in kb:", 29, 114, 107, 20)

GUICtrlSetFont(-1, 10)

GUICtrlSetLimit(-1, 2, 1)

$Sender_Send = GUICtrlCreateButton("Send", 216, 113, 75, 22, 0)

GUICtrlCreateTabItem("")



$Progress = GUICtrlCreateProgress(10, 192, 300, 25, $PBS_SMOOTH)

$Bytes_Label = GUICtrlCreateLabel("0kb / 0kb", 10, 168, 300, 20)

GUICtrlSetFont(-1, 10)

$Progress_Label = GUICtrlCreateLabel("0%", 10, 196, 300, 24, $SS_CENTER)

GUICtrlSetFont(-1, 12)

GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

GUISetState()



While 1

    $nMsg = GUIGetMsg()

    Switch $nMsg

        Case $GUI_EVENT_CLOSE

            Exit

        Case $Receiver_Browse

            $Dir = FileSelectFolder("Select a Destination Directory", @HomeDrive)

            If Not @error Then GUICtrlSetData($Receiver_Destination, $Dir)

            GUICtrlSetTip($Dir, GUICtrlRead($Receiver_Destination))

        Case $Receiver_Wait

            Select

                Case GUICtrlRead($Receiver_Destination) = ""

                    GUICtrlSetData($Receiver_Destination, @DesktopDir)

                Case DirGetSize(GUICtrlRead($Receiver_Destination)) = -1

                    GUICtrlSetData($Receiver_Destination, @DesktopDir)

            EndSelect

            _ReceiveFile(GUICtrlRead($Receiver_Destination), 5 * 1024 * 1024) ;file limit of 5 megabytes

            Switch @error

                Case 0

                    MsgBox(262208, "TCP Sender", "Download Complete")

                Case 1

                    MsgBox(16, "WSA:" & @error, "Unable to hook port!")

                Case 2

                    MsgBox(16, "WSA:" & @error, "Lost connection!")

                Case 3

                    MsgBox(16, "WSA:" & @error, "Lost connection!")

            EndSwitch

        Case $Sender_Browse

            $File = FileOpenDialog("Select a File To Send", @DesktopDir, "ALL (*.*)", 1 + 2)

            If Not @error Then GUICtrlSetData($Sender_File, $File)

            GUICtrlSetTip($Dir, GUICtrlRead($Sender_File))

        Case $Sender_Send

            Select

                Case Not FileExists(GUICtrlRead($Sender_File))

                    MsgBox(262192, "ERROR", "Invalid file!")

                Case GUICtrlRead($Sender_Chunk) > 20

                    MsgBox(262192, "ERROR", "Chunk size specified is too large!")

                Case GUICtrlRead($Sender_Chunk) < 5

                    MsgBox(262192, "ERROR", "Chunk size specified is too small!")

                Case Else

                    _SendFile(GUICtrlRead($Sender_File), GUICtrlRead($Sender_Chunk) * 1024)

                    Switch @error

                        Case 0

                            MsgBox(262208, "TCP Sender", "Upload Complete")

                        Case 1

                            MsgBox(16, "ERROR", "Bad file")

                        Case 2

                            MsgBox(16, "ERROR", "You can't send directories!")

                        Case 3

                            MsgBox(16, "WSA:" & @extended, "Unable to connect to the host!")

                        Case 4

                            MsgBox(16, "WSA:" & @error, "Lost connection!")

                        Case 5

                            MsgBox(16, "ERROR", "That's odd!" & @CRLF & 'I got: "' & @extended & '" from the socket!')

                        Case 6

                            MsgBox(16, "WSA:" & @error, "Lost connection!")

                        Case 7

                            MsgBox(16, "ERROR", "That's odd!" & @CRLF & 'I got: "' & @extended & '" from the socket!')

                    EndSwitch

            EndSelect

    EndSwitch

    Sleep(15)

WEnd



Func _SendFile($File, $MaxLen)

    Local $BytesRead = 0



    $Size = FileGetSize($File)

    If $Size = 0 Then Return SetError(1, 0, -1)



    ;get file name

    $Reg = StringRegExp($File, "(.)+\\((.)+)?", 3)

    ConsoleWrite($Reg & @CRLF)

    Select

        Case Not IsArray($Reg)

            $Name = $Reg

        Case UBound($Reg) < 2

            Return SetError(2, 0, -1)

        Case Else

            $Name = $Reg[1]

    EndSelect

    $IP = InputBox("IP Address", "What is the IP address of the server?", "")



    $Socket = TCPConnect($IP, 1312)

    If @error Then Return SetError(3, @error, -1)



    ;wait until something is sent

    Do

        $Receive = TCPRecv($Socket, 1000)

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

        Sleep(10)

    Until $Receive <> ""



    If $Receive <> "Sending Data" Then Return SetError(5, $Receive, -1)



    ;Send Name and file size to receiver

    TCPSend($Socket, $Name & ":" & $Size)



    ;Wait for confirmation from receiver

    Do

        $Receive = TCPRecv($Socket, 1000)

        If @error Then SetError(6, 0, -1)

    Until $Receive <> ""



    If $Receive <> "Start Upload" Then SetError(7, $Receive, -1)



    ;open file to read in binary

    $FileHandle = FileOpen($File, 16)



    ;loop until the whole file is received

    While 1

        $Data = FileRead($FileHandle, $MaxLen)

        If @error Then ExitLoop



        $BytesRead += TCPSend($Socket, $Data)



        If GUICtrlRead($Progress) <> Round($BytesRead / $Size * 100) Then

            GUICtrlSetData($Progress, Round($BytesRead / $Size * 100))

            GUICtrlSetData($Bytes_Label, Round($BytesRead / 1024) & " kb / " & Round($Size / 1024) & " kb")

            GUICtrlSetData($Progress_Label, Round($BytesRead / $Size * 100) & "%")

        EndIf

    WEnd

    FileClose($FileHandle)

    TCPCloseSocket($Socket)



    Return SetError(0, 0, 1)

EndFunc   ;==>_SendFile



Func OnAutoItStart()

    TCPStartup()

EndFunc



Func OnAutoItExit()

    TCPShutdown()

EndFunc



Func _ReceiveFile($Destination, $MaxLen)

    Local $Return = False, $Bytes = 0



    $Listen = TCPListen(@IPAddress1, 8081)

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



    ToolTip("Listening" & @CRLF & @IPAddress1 & @CRLF & 8081, 0, 0)



    ;wait for sender to connect

    Do

        $Socket = TCPAccept($Listen)

    Until $Socket <> -1



    $Receive = TCPRecv($Socket, $MaxLen)

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



    TCPSend($Socket, "Sending Data")



    ;get file data

    ;wait for file name and size to be sent

    Do

        $Receive = TCPRecv($Socket, 1000)

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

        Sleep(5)

    Until $Receive <> ""

    $FileData = StringSplit($Receive, ":", 2)



    $Destination &= "\" & $FileData[0]



    $FileHandle = FileOpen($Destination, 16 + 2 + 8)



    ;initiate download

    TCPSend($Socket, "Start Upload")



    While 1

        $Data = TCPRecv($Socket, $MaxLen, 1) ;receive data in binary

        If @error Then ExitLoop



        $Bytes += BinaryLen($Data) ;count number of bytes sent



        FileWrite($FileHandle, $Data) ;recreate the file sent



        If GUICtrlRead($Progress) <> Round($Bytes / $FileData[1] * 100) Then

            GUICtrlSetData($Progress, Round($Bytes / $FileData[1] * 100))

            GUICtrlSetData($Bytes_Label, Round($Bytes / 1024) & " kb / " & Round($FileData[1] / 1024) & " kb")

            GUICtrlSetData($Progress_Label, Round($Bytes / $FileData[1] * 100) & "%")

        EndIf

    WEnd

    FileClose($FileHandle)

    TCPCloseSocket($Socket)

    TCPCloseSocket($Listen)

    ToolTip("")



    Return SetError(0, 0, 1)

EndFunc   ;==>_ReceiveFile

but  when i try to set recive   tell me   wsa 1unable to hook port

someone can help me?? thankz

 

[ripdad]

faustf,

That script is very old -- where did you get it?
OnAutoItStart() and OnAutoItExit was removed in v3.3.4.0.

[faustf]

o sorry , someone  have  some  example script for transfer (not complicated) for study ?? thankz

 

[BrewManNH]

5 hours ago, faustf said:

someone  have  some  example script for transfer

Read the help file