Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Trasferimento file winsock [Help] T.T
Forum - Visual Basic 6 - Trasferimento file winsock [Help] T.T

Avatar
suro (Normal User)
Newbie


Messaggi: 3
Iscritto: 31/10/2010

Segnala al moderatore
Postato alle 22:03
Domenica, 31/10/2010
Linguaggio : VB6

Ciao a tutti .. ho provato a fare il trasferimento di un file dal client al server .. il client si connette perfettamente al server , il problema nasce quando cerco di inviare un file (immagine) dal server al client.. Mi si crea il file dell'immagine ma dice che l'immagine è vuota o che non è visualizzabile .. mi potreste aiutare ? Grazie
Il codice del client per il trasferimento è questo :
Codice sorgente - presumibilmente VB.NET

  1. Private Sub Command2_Click()
  2. Const FileDaAprire As String = "C:\Users\user\desktop\immagine.jpg"
  3. Dim N As Integer
  4. Dim c As Long
  5. Dim P As Byte
  6. N = FreeFile
  7. Open FileDaAprire For Binary Access Read As #N
  8. c = 0
  9. Do Until c = LOF(1)
  10. c = c + 1
  11. Get #N, c, P
  12. invia = invia & Str(P)
  13. DoEvents
  14. Winsock1.SendData invia
  15. Loop
  16. Close #N



Server :
Codice sorgente - presumibilmente Delphi

  1. Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  2. Winsock1.GetData dati, vbString
  3. Open "C:\Users\user\desktop\immaginericevuta.jpg" For Binary Access Write As #9
  4. Put #9, , dati
  5. Close #9
  6. End Sub


C'è qualcosa che sbaglio ? :(

Ultima modifica effettuata da suro il 01/11/2010 alle 11:26
PM
Avatar
HeDo (Founder Member)
Guru^2


Messaggi: 2765
Iscritto: 21/09/2007

Up
0
Down
V
Segnala al moderatore
Postato alle 2:58
Lunedì, 01/11/2010

si sbagli a fare un trojan e a chiedere aiuto su di esso in un forum pubblico.

PM
Avatar
LittleHacker (Member)
Guru


Messaggi: 1033
Iscritto: 28/04/2009

Up
0
Down
V
Segnala al moderatore
Postato alle 20:38
Lunedì, 01/11/2010
Testo quotato

Postato originariamente da HeDo:


si sbagli a fare un trojan e a chiedere aiuto su di esso in un forum pubblico.



Beh non è che tutti i programmi che inviano dati da server a client siano dei trojan! E poi noi siamo qua ad aiutare la gente e non a criticarla! Poi potra pure creare un super trojan :) che infetti tutti i pc di questo mondo(ironia), ma poi sono fatti suoi con la legge, noi non c'entriamo niente, noi l'abbiamo solo aiutato a capire dove sbagliava, è stato lui poi ad utilizzare questo software per scopi malefici! Comunque @suro tu dici che hai problemi quando vuoi inviare un file da server a client ma se non scrivi il codice di invio dal Server come facciamo a capire dov'è l'errore e quindi ad aiutarti?

:k:

PM
Avatar
suro (Normal User)
Newbie


Messaggi: 3
Iscritto: 31/10/2010

Up
0
Down
V
Segnala al moderatore
Postato alle 20:43
Lunedì, 01/11/2010
I codici sono quelli :

questo apre il file da inviare e lo invia al server (o client) ..
Codice sorgente - presumibilmente VB.NET

  1. Private Sub Command2_Click()
  2. Const FileDaAprire As String = "C:\Users\user\desktop\immagine.jpg"
  3. Dim N As Integer
  4. Dim c As Long
  5. Dim P As Byte
  6. N = FreeFile
  7. Open FileDaAprire For Binary Access Read As #N
  8. c = 0
  9. Do Until c = LOF(1)
  10. c = c + 1
  11. Get #N, c, P
  12. invia = invia & Str(P)
  13. DoEvents
  14. Winsock1.SendData invia
  15. Loop
  16. Close #N



E questo crea o apre il file (se c'è gia) e scrive dentro quello inviato :
Codice sorgente - presumibilmente Delphi

  1. Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  2. Winsock1.GetData dati, vbString
  3. Open "C:\Users\user\desktop\immaginericevuta.jpg" For Binary Access Write As #9
  4. Put #9, , dati
  5. Close #9
  6. End Sub


Il problema è ke si crea l'immagine ma dice che è vuota.. oppure se invio un file .txt si crea sempre il file ma dentro il file escono scritte stranissime :S :d

PM
Avatar
LittleHacker (Member)
Guru


Messaggi: 1033
Iscritto: 28/04/2009

Up
0
Down
V
Segnala al moderatore
Postato alle 20:51
Lunedì, 01/11/2010
Beh io oramai sono passato al mondo opensource e quindi non programmo più in vb però ho trovato questa discussione su come inviare un'immagine attraverso socket in vb6: http://forum.html.it/forum/showthread/t-1100096.html

ciao ciao spero di esserti stato utile!

P.S: Non fare copia-incolla, secondo la mia esperienza fare copia-incolla è più facile ma poi se c'è un minimo errore non sai dove andare a pigliarlo e quindi butti via un progetto(anche ben fatto) per un piccolissimo errore! :k:

Saluti!

PM
Avatar
suro (Normal User)
Newbie


Messaggi: 3
Iscritto: 31/10/2010

Up
0
Down
V
Segnala al moderatore
Postato alle 20:58
Lunedì, 01/11/2010
Okei Okei .. Grazie mille per la risposta.. Adesso guardo .. ;)

PM