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...