Visual Basic 6 - Mandare un file col Winsock

Forum - Visual Basic 6 - Mandare un file col Winsock

Ture_70 (Normal User)
Rookie

Messaggi: 30
Iscritto: 25/01/2009

Postato alle 17:16
Mercoledì, 18/03/2009

Salve a tutti, ecco il mio dubbio:
Dovrei mandare un file tramite un Winsock tra 2 pc (un client e un server)
Nel pc server il winsock si chiama tcpserver; nel client tcpclient.
Nel client ho inserito un common dialog per scegliere il file, successivamente tramite il pulsante "invia" mando:

Codice sorgente - presumibilmente Plain Text

tcpclient.SendData "$File:" & txtFile.Text & "|file|"

Ma nel server ho messo una textbox (txtFile) e nel dataArrival ho meso:
If Comando = "$File:" Then
   Nome = Right(Comando, Len(Comando) - Len("$File:") - "|File|")
   txtFile.Text = Nome & " in arrivo..."
   ...
Potreste dirmi perchè in TxtFile Non loggo il nome del file in arrivo???? Viene scritto solo " in arrivo..."

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 17:22
Mercoledì, 18/03/2009

ehm...perchè Comando = "$File:" ?
Comando è del tipo "$File:quello-scritto-nella-text|file|" quindi con un left verifica che i primi sei caratteri siano "$File:"
EDIT:
inoltre l'uso di quel right() è sbagliato devi usare mid()...

Ultima modifica effettuata da GrG il 18/03/2009 alle 17:23

antometal (Member)
Guru

Messaggi: 691
Iscritto: 12/09/2007

Postato alle 19:13
Mercoledì, 18/03/2009

non funziona xk nell' assegnazione

Codice sorgente - presumibilmente Plain Text

Nome = Right(Comando, Len(Comando) - Len("$File:") - "|File|")

ci sono 2 errori:
1- comando è =$File e non tutti i dati
2- nella funzione right devi usare il len anche per |file|

Ultima modifica effettuata da antometal il 18/03/2009 alle 19:16