Sending files over LAN using TCP

[THAErAsEr]

Hi all,

I'm currently working on a server-client script for sending files over the network(LAN) and after that, I can remotly run them or whatever.

Now I got this all working, but now during testing, I start to see that sometimes the program 'loses' some bytes on bigger files (10MB+).

My guess is that this is possible because of other traffic on the network?

If I'm wrong, can anyone provide me with an explanation for this?

If I'm right, can anyone push me in the direction of how to avoid these losses?

If more info, codes, explenation is needed, please ask

Thank you,

Wesley

[RedneckTech]

When you say "loses some bytes on bigger files" is any information being lost, or is file size changing with no lost functionality? I ask because I have seen this when changing between windows versions (win7 moving files to server 2003) the files will get smaller when sent to the older OS because there are less available file attributes. If this is the case you may want to look into calling the "Robocopy" command in your script rather than using FileCopy() as its very good at pulling all attributes associated with a file (even between OS versions)

[THAErAsEr]

Hi, thanks for the answer.

-It also loses it's functionality.

I got PDF's that I can't open anymore, another PDF where the front page is empty, a ZIP file that says: Error:

unable to process the headers in the archive.

-It's not like it loses 1 byte / MB or so. It's random. Check the screenshots for more info.

1st picture: 1st try

2nd picture: 2nd try

3rd picture: original size of files

Edited August 13, 2012 by THAErAsEr

[RedneckTech]

I cant help ya then. im still kinda nooby myself and dont understand the inner workings of autoIT file limits and the like. may be something with max file size of a file?

[JLogan3o13]

If more info, codes, explenation is needed, please ask

Thank you,

Wesley

Hi, THAErAsEr, welcome to the forum. I will offer that it is always a good idea to provide code when requesting assistance, either your complete code or a short reproducer. You will always receive more help if forum members have code to go through.

[guinness]

I'm sure I have seen a post around the forum before about this topic. Search _SendFile or something similar.

[THAErAsEr]

It does not accept my screenshot :/

@guinness, do they mention this problem too? Because I allready looked trough some of the _SendFile and TCP scripts allready.

It does not look like a coding problem, because sending the same file over and over again, keeps getting me different file sizes. But that's just my idea offcourse

Code:

Client code for sending messages and files:

expandcollapse popup

Func SendMessage($sendType, $sendMessage)
   ;Type selection
   Select
   Case $sendType="#MSG#"
   $sendTypeLabel="MSG > "
   Case $sendType="#CMD#"
   $sendTypeLabel="CMD > "
   Case $sendType="#SAF#"
   $sendTypeLabel="File Transfer : "
   $sendFileHandler=FileOpen($sendFile, 16)
   EditControl($sendTypeLabel, $sendMessage)
   $sendFileBinary=Binary("#SAF#" & StringTrimLeft($sendFile, StringInStr($sendFile, "\", 2, -1))&"," & FileRead($sendFile) & "#/SAF#")
   ;EditControl("TEST > ", $sendFileBinary)                        ;TESTING
   ;EditControl("TEST > ", "#SAF#" & StringTrimLeft($sendFile, StringInStr($sendFile, "\", 2, -1))&"," & FileRead($sendFile) & "#/SAF#")   ;TESTING
   FileClose($sendFile)
   $sendFileBinaryStart=BinaryLen($sendFileBinary)
  
   While BinaryLen($sendFileBinary)
   $temptest=$temptest+1
   $sendBytes = TCPSend($startConnect, $sendFileBinary)
   If @error Then MsgBox(16, "Error", "Failed to send file.")
   GUICtrlSetData($GUIControlIDProgress, $temptest) ; BinaryLen($sendFileBinary) / $sendFileBinaryStart
   $sendFileBinary = BinaryMid ($sendFileBinary, $sendBytes + 1, BinaryLen ($sendFileBinary) - $sendBytes)
   WEnd
   GUICtrlSetData($GUIControlIDProgress, 0)
   EndSelect
   If $sendType<>"#SAF#" then
   ;Input control
   $sendMessage=$sendMessage
   TCPSend($startConnect, StringToBinary($sendType & $sendMessage, 4))
   EndIf
  
   ;GUI handling
   If $sendMessage<>"" And $sendType <> "#SAF#" Then
   EditControl($sendTypeLabel, $sendMessage)
   ElseIf $sendType = "#SAF#" Then
   EditControl($sendTypeLabel, "Completed.")
   EndIf
  
   ControlFocus("My Cliënt", "", 4)
EndFunc

Server code for receiving the message/file:

expandcollapse popup

Func receiveData($repeat = False)
   $recBinary=TCPRecv($connectedSocket,2048)
   If $recBinary <> "" Then
   ;rtf(BinaryToString($recBinary) & " = " & StringToBinary($recBinary))
   If $repeat = False Then
   readMessage($recBinary)
   Else
   return($recBinary)
   EndIf
   EndIf
EndFunc
Func GUILoop()
   While 1
   $GUIMsg=GUIGetMsg()
  
   Select
   Case $GUIMsg=$GUI_EVENT_CLOSE
   Exit
   EndSelect
     
   receiveData()
  
  
  
   WEnd
EndFunc
Func readMessage($recBinary2)
   $recString=BinaryToString($recBinary2, 4)
   $recType=StringLeft($recString,5)
   $recMessage=StringMid($recString, 6)
  
   Select
   Case $recType="#MSG#"
   $recTypeLabel="MSG > "
   Case $recType="#CMD#"
   $recTypeLabel="CMD > "
   If ProcessExists("cmd.exe") = 0 Then
   Run("cmd.bat")
  
  
   Else
   WinActivate("Remote CMD")
  
   EndIf
   Sleep(50)
   Send($recMessage)
   Send("{ENTER}")
  
   Case $recType="#SAF#"
   $recTypeLabel="File Transfer : "
   $fileArray = StringSplit($recMessage, ",")
   $fileTitle=$fileArray[1]
   $recMessage = $fileArray[2]
   While 1
   $endPosition=StringInStr($recMessage, "#/SAF#", 0, -1)
   if $endPosition > 0 Then
      $recMessage=StringTrimRight($recMessage, 6)
      $endFound=True
   EndIf
   $recBuffer&=$recMessage
  
   If $endFound Then ExitLoop
   $recMessage=BinaryToString(receiveData($repeat))
   WEnd
  
   writeFile($fileLocation, $fileTitle, $recBuffer)
  
   EndSelect
   If $recMessage <> "" And $recType <> "#SAF#" Then
   EditControl($recTypeLabel, $recMessage)
   ElseIf $recType = "#SAF#" Then
   EditControl($recTypeLabel, $fileTitle & " saved at " & $fileLocation & ".")
   Endif
   ;Clear vars
   $recBuffer = ""
   $recMessage = ""
   $recString = ""
   $recTypeLabel = ""
   $recType = ""
   $fileTitle = ""
   ;$fileLocation = "" ;constante
   $fileArray = ""
   $endFound = False
   $endPosition = ""
  
EndFunc
Func writeFile($fileLocation, $fileTitle, $fileData, $writeMode=$writeModeErase)
   $fileHandle=FileOpen($fileLocation & $fileTitle, $writeMode)
   FileWrite($fileHandle, $fileData)
   FileClose($fileHandle)
EndFunc

Thank you all allready!