[VB6] trasferire file con winsock

[Il Pazzo]

LATO SERVER******************************************** *****
Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
Dim sBuffer As Byte

Winsock2.GetData strData

If strData = "START_GRAB" Then
Call keybd_event(&H2C, 1, 0, 0)
SavePicture Clipboard.GetData(), "C:\Windows\~00001.tmp"
If Dir("C:\Windows\~00001.tmp", vbNormal) <> "" Then
ReDim sBuffer(FileLen("C:\Windows\~00001.tmp") - 1)

nFile = FreeFile
Open "C:\Windows\~00001.tmp" For Binary Access Read As #nFile
Get #1, 1, sBuffer
Close #nFile

Winsock2.SendData sBuffer
End If
End If

'If strData = "STOP_GRAB" Then Timer2.Enabled = False

End Sub

LATO CLIENT******************************************** ******
Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
Dim sBuffer As Byte
Dim nPosizione As Long

Winsock2.GetData sBuffer

Open "c:\desk.jpg" For Binary As #nFile
Put #nFile, nPosizione, sBuffer
nPosizione = nPosizione + UBound(sBuffer) + 1
Close #nFile

End Sub


************************************************** **********
Ma mi da errore in questa riga (Lato SERVER):

ReDim sBuffer(FileLen("C:\Windows\~00001.tmp") - 1)

dicendomi "Errore di compilazione: Prevista Matrice"

Che vuol dire??? Penso di aver fatto come avevi scritto sopra ma forse mi sfugge qualcosa...

[Jupy64]

Ciao, sBuffer non l'hai dichiarata come matrice! devi fare una cosa del genere:

Dim sBuffer() As Byte
.....
ReDim sBuffer(FileLen("C:\Windows\~00001.tmp") - 1)

[Il Pazzo]

Grazie.... ora funziona a quanto pare infatti... ma ho problemi nello spostarmi all'interno del file quando ricevo i dati (lato CLIENT) in quanto devo sempre chiudere e riaprire il file... qulcuno riuscirebbe a suggerirmi una soluzione???

[Il Pazzo]

Il fatto è che giustamente ogni volta che riapo il file se ne va all'inizio....

[Il Pazzo]

ok ho risolto così:

...
Open "c:\desk.jpg" For Binary As #nFile
nPosizione = LOF(nFile) + 1
Put #nFile, nPosizione, sBuffer
Close #nFile
...

Però come faccio a capire se è stata completato il trasferimento??

[Jupy64]

Ciao, dovresti crearti una protocollo di comunicazione tra server e client. Uno pseudo codice del genere:

Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long) 

  Winsock2.GetData sBuffer 
  
  If sBuffer="<START_FILE>" Then
    APRI IL FILE
  ElseIf sBuffer="<END_FILE>" Then
    CHIUDI FILE
  Else
    SCRIVI NEL FILE
  End If
End Sub

Naturalmente ti devi gestire eventuali errori di dati, interruzioni iprovvise e devi impostare un tempo di TimeOut onde evitare che per svariati motivi la comunicazione con il server viene interrotta e il file non viene mai chiuso e di conseguenza non è completo.

[pprllo]

Puoi anche fare come l'FTP. A fine trasferimento semplicemente chiudi la connessione dal lato server.