Foro de elhacker.net

es es de un form6 del cliente

Form1.cd.DialogTitle = "Archivo a enviar"
Form1.cd.ShowOpen
Label3.Caption = Form1.cd.FileName
trem = Split(Form1.ListView1.SelectedItem.key, "|")
Form1.ws(trem(0)).SendData "envarc|" & FileLen(Form1.cd.FileName) & "|" & Text1.Text & Form1.cd.FileTitle

servidor

case envarc
arev = todo(1)este guarda filelen
arevs = todo(2) este guarda la direccion de donde quiero que se guarde y el nombre del archivo
dat = ""
ws.SendData "now"

form1 cliente

Case "now"
Open Form6.Label3.Caption For Binary As #1
nos = Space(LOF(1))
Get #1, , nos
Close #1
spb = Split(ListView1.SelectedItem.key, "|")
ws(spb(0)).SendData nos
Form6.Label3.Caption = ""

tambien intente hacer esto pero tampoco funciono
for o = 1 to len(nos)
cadena = mid(nos,o,10)
o=o+9
spb = Split(ListView1.SelectedItem.key, "|")
ws(spb(0)).SendData cadena
Sleep 1
next o

servidor

If arev <> "0" Then
tdata = tdata + dat
If Len(tdata) = arev Then
Open arevs For Binary As #1
Put #1, , tdata
Close #1
arev = 0
tdata = ""
arevs = ""
End If
End If

si se dan cuenta acabe haciendo casi un copy paste del codigo pero no me funciono

Dim Pos As Long
Dim Segment As Long
Dim SegmentCount As Long
Dim LenRest As Long
Dim SendFileComplete As Boolean
Dim FreeF As Integer
Const Buffer = 4096
Dim SendingFile As Boolean
Dim FileData() As Byte

Private Sub SendFile(ByVal FileName As String)
Dim LenFile As Long
Dim TotInteger As Long

LenFile = FileLen(FileName)
SegmentCount = Val(LenFile / Buffer)
TotInteger = SegmentCount * Buffer
LenRest = LenFile - TotInteger
Segment = 0
Pos = 1

ReDim FileData(Buffer - 1)
SendingFile = True
SendFileComplete = False
Open FileName For Binary Access Read As #FreeF

call SendNextSegment

End Sub

Private Sub objWinSock_SendComplete()
If SendingFile Then SendNextSegment
End Sub


Private Function SendNextSegment()

If objWinSock.State = 7 Then
    If SendFileComplete Then
        SendingFile = False
        Call CloseConection 'funcion que cierra la conexion o termino el envio del archivo
        Exit Function
    End If
     
    If Segment = SegmentCount Then
            If LenRest > 0 Then
                ReDim FileData(LenRest - 1)
                Get FreeF, Pos, FileData
                Close #FreeF
                SendFileComplete = True
                If objWinSock.State = 7 Then objWinSock.SendData FileData
   
            End If
        Else
            Get #FreeF, Pos, FileData
            If objWinSock.State = 7 Then objWinSock.SendData FileData
            Pos = Pos + Buffer
        End If
   
    Segment = Segment + 1
End If
End Function