salve a tutto il forum, da qualche giorno sto provando a creare un programma in grado di connettermi ad un altro mio computer per inviare piccoli file (per ora) e ho scritto questo codice:
Client:
Private Sub cmdfile_Click()
Dim file As Byte
percorso = txtfile.Text
Open percorso For Binary As 1
While Not EOF(1)
Get 1, , file
wsk.SendData file
DoEvents
Wend
Close #1
MsgBox "inviato"
End Sub
con questo codice, cliccando sul cmdfile, apre in binario il file .txt contenuto nella variabile percorso e lo invia tramite il socket, una volta terminato l'invio chiude il file.
Server:
Dim aperto As Boolean
Private Sub Form_Load()
aperto = False
End Sub
Private Sub wsk_DataArrival(ByVal bytesTotal As Long)
Dim file As Byte
If aperto = False Then
Open "C:\prova.txt" For Binary As 1
aperto = True
End If
wsk.GetData file
Put #1, , file
End Sub
con questo codice invece prima controllo se il file è già aperto e poi ricevo il .txt binario.
il problema che ho è che quando vado ad aprire prova.txt il file presenta una linea con degli spazi abbastanza lunga e non il contenuto scritto nel .txt inviato dal client, sapete dirmi dove è l'errore? grazie in anticipo
|