Send File TCP ERROR

[LionSpain]

Im trying make a File Sender TCP for update all clients when I update Client.exe the problem is...

If i change Local $sFile = FileOpenDialog('Seleccione el archivo a ejecutar', @ScriptDir, 'ALL (*.*)')  ;Working

for

Local $sFile = FileOpen(ClientUpdate\Client.exe) No Work

I no want always FileOpenDialog because is more faster click Updater and update all clients

 

This is my Code 

SERVER

Case $Disk

            Local $sSelected = _ItemSelect()

            TCPSend($sConections[$sSelected][0], 'Disk')

            Local $sFile = FileOpen('ClientsUpdate\Client.exe')
            Local $sEXT = StringSplit($sFile, '.', 1)
            Local $sEnd = UBound($sEXT) - 1

            TCPSend($sConections[$sSelected][0], $sEXT[$sEnd])

            Local $sFileopen = FileOpen($sFile)

            While 1

            TCPSend($sConections[$sSelected][0], $sFile)

            Local $sFileopen = FileOpen($sFile)

            While 1

                Local $sData = FileRead($sFileopen, 2048)
                If @error Then ExitLoop
                TCPSend($sConections[$sSelected][0], $sData)
                If @error Then ExitLoop

            WEnd

            FileClose($sFileopen)

            TCPSend($sConections[$sSelected][0], 'OK')

 

 

Client

 

if $sAcciones = 'Disk' then

    do
        Local $sExt = TCPRecv($sConect, 1024)
    until $sExt <> ''

    Local $sOpen = FileOpen(@ScriptDir & '\Client.' & $sExt, 18)

    Do

        Local $sData = TCPRecv($sConect, 2048)
        If @error Then ExitLoop 2
        If StringRight($sData, 2) = 'OK' Then ExitLoop
        FileWrite($sOpen, $sData)

    Until False

    FileClose($sOpen)
    ShellExecute(@ScriptDir & '\Client.' & $sExt)

    EndIf

 

Edited January 4, 2019 by LionSpain

[BrewManNH]

FileOpenDialog returns a file name with its path. FileOpen returns a handle to the file, they're not the same thing and you should just use the filename with full path instead of using FileOpen.

[LionSpain]

12 minutes ago, BrewManNH said:

FileOpenDialog returns a file name with its path. FileOpen returns a handle to the file, they're not the same thing and you should just use the filename with full path instead of using FileOpen.

 

You say this?

 

Case $Disk

            Local $sSelected = _ItemSelect()

            TCPSend($sConections[$sSelected][0], 'Disk')

            Local $sFile = @ScriptDir &'\ClientsUpdate\Client.exe'
            Local $sEXT = StringSplit($sFile, '.', 1)
            Local $sEnd = UBound($sEXT) - 1

            TCPSend($sConections[$sSelected][0], $sEXT[$sEnd])

            Local $sFileopen = FileOpen($sFile)

            While 1

            TCPSend($sConections[$sSelected][0], $sFile)

            Local $sFileopen = FileOpen($sFile)

            While 1

                Local $sData = FileRead($sFileopen, 2048)
                If @error Then ExitLoop
                TCPSend($sConections[$sSelected][0], $sData)
                If @error Then ExitLoop

            WEnd

            FileClose($sFileopen)

            TCPSend($sConections[$sSelected][0], 'OK')

 

[BrewManNH]

Yes, because trying to use the file handle instead of the file name wouldn't work. Use the filename where you need a file name, and a handle where you need the handle.

[LionSpain]

19 hours ago, BrewManNH said:

Yes, because trying to use the file handle instead of the file name wouldn't work. Use the filename where you need a file name, and a handle where you need the handle.

No work, just download a file 0kb and some times 180MB and original file is 850kb

 

[BrewManNH]

If you're sending an .EXE file make sure you open it in binary mode, because the first time it hits a CHR(0) it will stop.