quindi comunque nel senddata il codice è corretto?
codice:Private Sub Command2_Click() Dim immagine() As Byte Open "C:\prova.bmp" For Binary As #1 ReDim immagine(0 To LOF(1) - 1) Get #1, , immagine Close #1 Winsock1.SendData immagine()
quindi comunque nel senddata il codice è corretto?
codice:Private Sub Command2_Click() Dim immagine() As Byte Open "C:\prova.bmp" For Binary As #1 ReDim immagine(0 To LOF(1) - 1) Get #1, , immagine Close #1 Winsock1.SendData immagine()