send binary file with TCP.

[binarydigit0101]

hi all!

so, i want to send a file with TCP.

i read some posts and i knew i have to use File properties.

here's my code:

$binaryfile = FileOpen("dati.txt",16) ; open the file binary mode
TCPSend($socket,$binaryfile) ; send the binary data to client

; the client instead

$file = TCPRecv($socket, 2048) ; receive the file 
FileWrite($file, "prova.txt") ; write the data into a file

what's my error? thank you for all, see you! ;-)

[jvanegmond]

; the client instead

$file = TCPRecv($socket, 2048) ; receive the file 
FileWrite($file, "prova.txt") ; write the data into a file

Should be:

; the client instead

$file = TCPRecv($socket, 2048) ; receive the file 
FileWrite("prova.txt", $file) ; write the data into a file

[binarydigit0101]

hahaha! you're right;

now the client creates the file.

anyway there's another problem: server sends nothing to client.

two programs are already connected.

what is happening? :-P

[jvanegmond]

Make sure that "dati.txt" exists on the server. Otherwise, we will have to see more of your code to determine the problem.

[binarydigit0101]

file is in workdirectory, isn't right?

anyway here there is all my code:

expandcollapse popup

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <INet.au3>

; genera il form con tutti i suoi controlli;

$Form1 = GUICreate("Accesso remoto!", 370, 450, 192, 124)
$pdc = GUICtrlCreateLabel("Pannello di Controllo - Connesso a: NESSUNO [IP INS'T DEFINED].", 24, 16, 326, 17)
$attdisatt = GUICtrlCreateButton("Apri il lancia comandi (on)", 24, 56, 150, 33)
$pdm = GUICtrlCreateList("", 24, 112, 321, 273)
GUICtrlSetData(-1, "Disattivo!")
GUICtrlSetState(-1, $GUI_DISABLE)
$chiusura = GUICtrlCreateButton("Termina la sessione.", 184, 400, 161, 33)
GUISetState(@SW_SHOW)

    TCPStartup()    ; attivo il servizio TCP
    $ascolto = TCPListen(@IPAddress1, 666)  ; mi metto in ascolto sulla porta 666 dell'ip locale

While 666
    
    $socket = TCPAccept($ascolto)   ; attendo che il client si connetta
    
    If $socket <> -1 Then   ; quando il client è connesso
            $ricvo = TCPRecv($socket, 32)   ; ricevo la stringa (nome utente e indirizzo ip)
            $ricv = StringStripWS($ricvo, 1+2)
            $arrayricv = StringSplit($ricv, "-")
            $nomeutente = $arrayricv[1]
            $indirizzoip = $arrayricv[2]
            $indirizzopubblico = _GetIP()
            GUICtrlSetData($pdc, "Pannello di Controllo - Connesso a: " & $nomeutente & " [" & $indirizzopubblico & "].") ; ...e imposto i dati ricevuti
            $binaryfile = FileOpen("dati.txt",16)
            MsgBox(0, "", $binaryfile)
            TCPSend($socket,$binaryfile)
    EndIf
    
    $nMsg = GUIGetMsg()
    
    Switch $nMsg
        
        Case $GUI_EVENT_CLOSE
            Exit
        Case $chiusura
            Exit
        Case $attdisatt
            GUICtrlSetState($pdm, $GUI_ENABLE)
            GUICtrlSetData($attdisatt, "Chiudi il lancia comandi (off)")

    EndSwitch
WEnd

this's for the client:

#include <_TCPFileTransfer.au3>
#include <File.au3>

TCPStartup()
$socket = TCPConnect(@IPAddress1, 666)
If $socket <> -1 Then
    $identify = @UserName & "-" & @IPAddress1
    TCPSend($socket, $identify)
Else
    MsgBox(0, "Errore nr: ", @error)
EndIf

$file = TCPRecv($socket, 2048)
MsgBox(0, "ecco il relativo codice:", $file)
FileWrite("prova.txt", $file)

[jvanegmond]

TCP functions are non-blocking. It means they will return (almost) instantly. Even if there is no data available. Your server code can take a while to execute, during which time the client has already decided there won't be any data.

Do something like:

While 1
$file = TCPRecv($socket, 2048)
MsgBox(0, "ecco il relativo codice:", $file)
FileWrite("prova.txt", $file)
WEnd

[binarydigit0101]

thank you!

sorry but client doesn't receive anything.

[binarydigit0101]

thank you!

sorry but client doesn't receive anything.

Do i put "while" also in server?

[jvanegmond]

TCP does not combine easily with GUI. Especially if this is your first time. Remove bits from your script until you have found the problem. It's called debugging and it's a necessary skill for programming.

Another mistake:

$binaryfile = FileOpen("dati.txt",16)
            MsgBox(0, "", $binaryfile)
            TCPSend($socket,$binaryfile

What does the MsgBox print? Right ...

[binarydigit0101]

so the MSGBOX was a way to see what client received.

what do i remove for the first times?

p.s.: for debug i asked because i don't know if the syntax is correct.

Edited March 9, 2011 by binarydigit0101

[guinness]

Maybe these Function will shed some light too.

[binarydigit0101]

i read something about it, but i do anything.

do it need a "include" istruction with a macro? what's this? how can i use this?

thank you very much, have a good day! :-)

[guinness]

I take it you read the Forum Post, because there is an Example of how to use the Functions in your Script >>

I am a little confused by this "do it need a "include" istruction with a macro? what's this? how can i use this?" The Functions have to be copied to your Script and then "Called" when required. As I said have a look at the "Working Example" above to get an idea of how to use

[binarydigit0101]

Maybe these Function will shed some light too.

LOL! i don't see this was a link... :-D

sorry for this... thank you for all! ;-)

[Newb]

u italian?

[binarydigit0101]

oui!

[Newb]

pure io

[trancexx]

pure io

Would you be kind and make that picture in your signature smaller.

[binarydigit0101]

maybe that signature is too big...

[Newb]

Would you be kind and make that picture in your signature smaller.

Sure.

Before, it was like 3 times bigger, i reduced it to make less bothering, and yet is too big lol. Gimme 5 minutes