file transfer exemple

[incepator]

that use this script to work and at home, and I not have an FTP server that can help me...

problem is FileWrite($open2, $comanda[4])

how to write the file only when strictly after we received code binary totally

Edited April 20, 2013 by incepator

[water]

I would do the following:

• Take the example scripts provided by AutoIt for TCPSend and TCPRecv and store them in your script directory
• Open both scripts and compile them
• Run TCPRecv.exe then run TCPSend.exe
• Enter some data and see if the data gets sent
• If yes, replace the GUI stuff in both scripts with FileRead and FileWrite

[incepator]

I tried you said, but the problem is no longer stops sent packets.

;==============================================
;==============================================
;CLIENT! Start Me after starting the SERVER!!!!!!!!!!!!!!!
;==============================================
;==============================================

Example()

Func Example()
TCPStartup()

Local $ConnectedSocket, $szData
Local $szIPADDRESS = @IPAddress1
Local $nPORT = 33891

$ConnectedSocket = -1
$ConnectedSocket = TCPConnect($szIPADDRESS, $nPORT)

If @error Then
MsgBox(4112, "Error", "TCPConnect failed with WSA error: " & @error)
Else
$open = FileOpen("exemple.exe", 16)
$szData = FileRead($open)
FileClose($open)
While 1
If @error Or $szData = "" Then ExitLoop
TCPSend($ConnectedSocket, $szData)
If @error Then ExitLoop
WEnd
EndIf
EndFunc

expandcollapse popup

#include <GUIConstantsEx.au3>

;==============================================
;==============================================
;SERVER!! Start Me First !!!!!!!!!!!!!!!
;==============================================
;==============================================

Example()

Func Example()
Local $szIPADDRESS = @IPAddress1
Local $nPORT = 33891
Local $MainSocket, $edit, $ConnectedSocket, $szIP_Accepted
Local $msg, $recv
TCPStartup()

$MainSocket = TCPListen($szIPADDRESS, $nPORT)
If $MainSocket = -1 Then Exit

GUICreate("My Server (IP: " & $szIPADDRESS & ")", 300, 200, 100, 100)
$edit = GUICtrlCreateEdit("", 10, 10, 280, 180)
GUISetState()

$ConnectedSocket = -1
Do
$ConnectedSocket = TCPAccept($MainSocket)
Until $ConnectedSocket <> -1

$szIP_Accepted = SocketToIP($ConnectedSocket)

While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then ExitLoop

$recv = TCPRecv($ConnectedSocket, 2048)
If @error Then ExitLoop
$recv = BinaryToString($recv, 4)

If $recv <> "" Then

$open2 = FileOpen(@ScriptDir & "\Folder\exemple.exe", 1)
$write = FileWrite($open2, $recv)
FileClose($open2)
EndIf
WEnd

If $ConnectedSocket <> -1 Then TCPCloseSocket($ConnectedSocket)

TCPShutdown()
EndFunc


Func SocketToIP($SHOCKET)
Local $sockaddr, $aRet

$sockaddr = DllStructCreate("short;ushort;uint;char[8]")

$aRet = DllCall("Ws2_32.dll", "int", "getpeername", "int", $SHOCKET, _
"ptr", DllStructGetPtr($sockaddr), "int*", DllStructGetSize($sockaddr))
If Not @error And $aRet[0] = 0 Then
$aRet = DllCall("Ws2_32.dll", "str", "inet_ntoa", "int", DllStructGetData($sockaddr, 3))
If Not @error Then $aRet = $aRet[0]
Else
$aRet = 0
EndIf

$sockaddr = 0

Return $aRet
EndFunc

[water]

You have to remove the While in the client script. Because you want to send the file only once, right?

[incepator]

I did it!

can send any file, but not executable file...

exe files can not be sent via tcp?

[water]

Why not? TCP transmits Bits, so shouldn't be a problem.

Why can't you send an executable? Do you get an error message?

[incepator]

it seems that indeed is a problem in the script, I tried to send a picture and I received only 70-80% of it, I think this is why I can not send executable.

; Sender

TCPStartup()
Local $szIPADDRESS = @IPAddress1
Local $nPORT = 33891

$ConnectedSocket = -1
$ConnectedSocket = TCPConnect($szIPADDRESS, $nPORT)

_FileSend("file1.jpg", $ConnectedSocket)

Func _FileSend($sFile, $iMainSocket)
Local $sBuff, $iFileOp, $sRecv

$iFileOp = FileOpen($sFile, 16)
If @error Then Return 0
$sBuff = Binary(StringTrimLeft($sFile, StringInStr($sFile, "\", -1, -1)) & ",") & FileRead($iFileOp)
FileClose($iFileOp)

While BinaryLen($sBuff)
$iSendReturn = TCPSend($iMainSocket, $sBuff)
If @error Then Return 0

$sBuff = BinaryMid($sBuff, $iSendReturn + 1, BinaryLen($sBuff) - $iSendReturn)
WEnd

Return 1
EndFunc ;==>_FileSend

expandcollapse popup

; Receive

#include <GUIConstantsEx.au3>

Local $szIPADDRESS = @IPAddress1
Local $nPORT = 33891

TCPStartup()
$MainSocket = TCPListen($szIPADDRESS, $nPORT)
If $MainSocket = -1 Then Exit
$ConnectedSocket = -1

Do
$ConnectedSocket = TCPAccept($MainSocket)
Until $ConnectedSocket <> -1

_FileReceive("file2.jpg", $ConnectedSocket)

Func _FileReceive($sFileName, $iAccSocket)
Local $sBuff, $sRecv = "", $i = 0, $iFirstWhile = True

If @error Then Return 0

$sBuff = Binary($sBuff)

While $sRecv = ""
$sRecv = TCPRecv($iAccSocket, 2048, 1)
$sRecv = BinaryToString($sRecv)
WEnd

While $sRecv <> ""
If StringInStr($sRecv, ',') And $iFirstWhile Then
$sTmp = StringLeft($sRecv, StringInStr($sRecv, ",") - 1)
$sRecv = StringTrimLeft($sRecv, StringLen($sTmp) + 1)
If StringLen($sFileName) < 1 Then $sFileName = $sTmp
$iFirstWhile = False
EndIf
$sBuff &= $sRecv
$sRecv = BinaryToString(TCPRecv($iAccSocket, 2048, 1))
If @error Then ExitLoop
WEnd

$iFileOp = FileOpen($sFileName, 16 + 2)
If @error Then Return 0
FileWrite($iFileOp, $sBuff)
If @error Then Return 0
FileClose($iFileOp)

Return 1
EndFunc   ;==>_FileReceive

[water]

Another question before I dive into your code:

Do you transfer the files in a company network or over the internet?

Company: Could you use a file share?

Internet: Could you use dropbox or something similar?

[incepator]

use file transfer in an internal network.

I want to use TCP functions, I believe it can be done using tcp ...

[water]

Do you just want to use TCP or do you have to use TCP? A file share isn't an option?

[incepator]

I want to make an app that can transfer files and can send print screen every PC in the network.

I'll keep looking documentation...

Thanks for your help

[water]

If I had to write this program I would connect to a network share that everyone can access and save the screenshots and the files there in a subdirectory named like the PC name.

I like to use features and tools that are already available and reliable to do my work.