acromangelo (Ex-Member)
Rookie
 
Messaggi: 25
Iscritto: 19/06/2008
|
Mi ripresento a voi con un nuovo problema che mi ha fatto disperare per 3 giorni consecutivi:
ho un client e un server connessi tra di loro. uno deve inviare all'altro un'immagine e usa questo tipo di invio
Codice sorgente - presumibilmente VB.NET |
Dim NextPart as Boolean Private Function InviaImmagine() Dim FileLength As Long, Temp As String, PackageSize As Long, LastData As Boolean FileLength = FileLen(App.path & "\immagine.jpg") NextPart = False Main.wsk.SendData "FILE||0" PackageSize = 2048 LastData = False FF = FreeFile Open App.path & "\immagine.jpg" For Binary Access Read As #FF Temp = "" Do Until EOF(FF) If FileLength - Loc(FF) <= PackageSize Then PackageSize = FileLength - Loc(FF) + 1 LastData = True End If Temp = Space$(PackageSize) Get FF, , Temp Do While NextPart = False DoEvents Loop NextPart = False If LastData = True Then Temp = Mid(Temp, 1, Len(Temp) - 1) End If Main.wsk.SendData "FILE||1||" & Temp Loop Do While NextPart = False DoEvents Loop NextPart = False Close FF Kill App.path & "\immagine.jpg" Main.wsk.SendData "FILE||2" End Function Private Sub wsk_SendComplete() NextPart = True End Sub
|
e questo tipo di ricezione
Codice sorgente - presumibilmente VB.NET |
Private Sub wsk_DataArrival(ByVal bytesTotal As Long) Dim Incoming as string, Parsed() as string, FF as integer wsk.GetData Incoming animazione = True Parsed = Split(Incoming, "||") If Parsed(0) = "FILE" Then If Parsed(1) = "0" Then FF = FreeFile Open App.Path & "\immagine.jpg" For Binary Access Write As #FF FileBar.Max = Parsed(2) FileBar.Min = 0 FileBar.Value = 0 ElseIf Parsed(1) = "1" Then Put #FF, , Parsed(2) If Not (FileBar.Value + bytesTotal) > FileBar.Max Then FileBar.Value = FileBar.Value + bytesTotal ElseIf Parsed(1) = "2" Then Close #FF picImmagine.Picture = LoadPicture(App.Path & "\immagine.jpg") Kill App.Path & "\immagine.jpg" FileBar.Value = 0 End If End If End Sub
|
Ecco, il codice funziona alla perfezione, ma l'immagine arriva tutta a casaccio, come se i pezzi di immagine arrivassero a caso, e la cosa strana è che non avviene sempre...poche volte invece l'immagine arriva perfettamente. Potreste aiutarmi cercando di capire il motivo di questi errori?
PS: questo tipo di metodo per inviare un file l'ho già usato in un programma di scambio files e li funziona perfettamente sempre.
Grazie in anticipo Ultima modifica effettuata da acromangelo il 06/05/2009 alle 21:26 |
|
|
theprogrammer (Normal User)
Guru^2
Messaggi: 2509
Iscritto: 28/01/2009
|
Il programma si basa sul riconoscimento dei due caratteri
||
per indicare l'inizio dello stesso ...
Ma questi due caratteri si possono presentare all'interno di un file binario lungo e complesso come un'immagine.
A seconda dei casi quindi (se nell'immagine quella coppia di byte appare piu' volte) il programma che riceve potrebbe essere "ingannato" e i dati non interpretati correttamente.
Prova a cambiare quella sequenza e renderla piu' complessa ...
|
|
|
acromangelo (Ex-Member)
Rookie
Messaggi: 25
Iscritto: 19/06/2008
|
Appena ho letto la tua risposta ho pensato che quasi sicuramente sarebbe stato quello...ma poi provandolo ho verificato che anche cambiando "||" con "|ødividø|" non cambiava nulla...
l'errore rimane =(
|
|
|
theprogrammer (Normal User)
Guru^2
Messaggi: 2509
Iscritto: 28/01/2009
|
Allora posta il progetto zippato e un file (un jpg) che ti da' il problema.
Provero' il tuo programma proprio con quel file per capire dove sta l'errore ...
(al limite posta il link di un sito da cui scaricare quello che ti ho detto).
|
|
|
acromangelo (Ex-Member)
Rookie
Messaggi: 25
Iscritto: 19/06/2008
|
Eccolo quà...non so più che fare 
Ultima modifica effettuata da acromangelo il 07/05/2009 alle 16:17 |
|
|
theprogrammer (Normal User)
Guru^2
Messaggi: 2509
Iscritto: 28/01/2009
|
Ho visto meglio il codice e ho trovato il problema ...
Quel codice da' per scontato il fatto che i pacchetti che vengono inviati, siano ricevuti cosi' come sono inviati all'interno di un evento DataArrival.
Per le comunicazioni TCP, non e' cosi'. E non e' una cosa da poco. E' il motivo per cui hai (a volte) quel comportamento.
Per capirci, l'evento DataArrival puo' essere richiamato dopo che ha ricevuto un certo numero di byte DIVERSO da quello che ti aspetti. E dato che in quell'evento tu tratti solamente quelli che ti aspetti, quelli in piu' vengono persi e l'immagine non e' quella di partenza.
|
|
|
acromangelo (Ex-Member)
Rookie
Messaggi: 25
Iscritto: 19/06/2008
|
mmm ho capito...e allora mi spiegheresti perchè questo altro programma che ho fatto funziona alla perfezione anche se ha lo stesso tipo di invio?
|
|
|
theprogrammer (Normal User)
Guru^2
Messaggi: 2509
Iscritto: 28/01/2009
|
Postato originariamente da acromangelo:
mmm ho capito...e allora mi spiegheresti perchè questo altro programma che ho fatto funziona alla perfezione anche se ha lo stesso tipo di invio? |
Non e' vero.
Anche questo programma presenta gli stessi problemi.
Ho provato a trasferire un file da poco piu' di 15 M e il file trasferito era diverso sia nella sequenza di byte sia (addirittura) nella grandezza ...
Il trasferimento Winsock non e' un mistero. Se devi scrivere un programma "affidabile" basta tenere conto delle regole del TCP ...
La regola fondamentale e' tenere SEMPRE presente il fatto che nell'evento DataArrival possono essere letti piu' (o anche meno) dati di quello che ti aspetti. Quando leggi la stringa di dati in arrivo nell'evento, devi trattarla TUTTA, dall'inizio alla fine. |
|
|
acromangelo (Ex-Member)
Rookie
Messaggi: 25
Iscritto: 19/06/2008
|
uffi...sto maledetto winsock! Non potresti farmi il favorone di dirmi il modo giusto per inviarmi i file col winsock, magari mostrandomi un sorgente? saresti molto gentile dato che è da 2 anni che programmo in vb e ancora non sono riuscito a trovare una soluzione...
grazie mille!
|
|
|
| 
acromangelo ha allegato un file: programma.zip (244885 bytes)