speriamo di non essere ripreso dall' Admin..
ho provato a fare qualche giretto in rete ma non ho trovato nulla di interessante, praticamente invio un' immagine dal client e dovrei vederla in un controllo image lato server, ho trovato questo codice, ma non ho avuto modo di provarlo se realmente è corretto, visto che non sò come riprenderlo lato server
codice:
Private Sub Command2_Click()
Dim sFileName As String
Dim lOffset As Long
Dim bTemp As Byte
Dim bFileData() As Byte
Dim lLength As Long
sFileName = "f:\mia.bmp"
Open sFileName For Binary Access Read As #1
ReDim bFileData(FileLen(sFileName))
lLength = FileLen(sFileName) + 1
For lOffset = 1 To lLength
If Not lOffset = lLength Then
Get #1, lOffset, bTemp
bFileData(lOffset - 1) = bTemp
Else
bFileData(lOffset - 1) = CByte(26)
End If
Next lOffset
Close #1
Winsock1.SendData bFileData()
End Sub
qualche suggerimento...