problema con enviar archivo y progressbar

[vivachapas]

bueno hacia mucho q no usaba estas funciones... y como un #€#?@ no guarde un proyecto donde lo tenia...
el caso es q estaba tratando de hacer de nuevo un programa para enviar archivos con progressbar en el cliente y en el servidor...
el programa solo tiene eso, lo acabo de hacer para recordar.. y me di cuenta q no lo recuerdo muy bien xD..

Servidor:

Código [Seleccionar] Expandir

Dim Archivo As String, Peso As Long
Dim Partes As String

Private Sub Command1_Click()
Dim Puerto As Long
Puerto = Text1.Text
WS.Close
WS.LocalPort = Puerto
WS.Listen
End Sub

Private Sub Command3_Click()
Open Text2.Text For Binary As #1
Archivo = Input(LOF(1), 1)
Close #1
Peso = Len(Archivo)
WS.SendData "Envio|" & Peso
End Sub

Private Sub WS_ConnectionRequest(ByVal requestID As Long)
WS.Close
WS.Accept requestID
End Sub

Private Sub WS_DataArrival(ByVal bytesTotal As Long)
Dim Datos As String
Dim i As Long

WS.GetData Datos

If Datos = "Manda" Then
MsgBox "manda"
PB.Max = Peso
PB.Min = 1
For i = 1 To Peso
    Partes = Mid(Archivo, i, 100)
    WS.SendData Partes
    PB.Value = i
    i = i + 99
Next
PB.Value = 1
End If
End Sub


Cliente:

Código [Seleccionar] Expandir

Dim Recibiendo As Boolean, Peso As Long, vPeso As Long
Dim Archivo As String

Private Sub Command1_Click()
Dim IP As String
Dim Puerto As Long
IP = Text1.Text
Puerto = Text2.Text
WS.Close
WS.Connect IP, Puerto
End Sub

Private Sub WS_Connect()
MsgBox "Conecto"
End Sub

Private Sub WS_DataArrival(ByVal bytesTotal As Long)
Dim Datos As String
Dim vDatos() As String

WS.GetData Datos

If Recibiendo = True Then
    vPeso = vPeso + bytesTotal
    Archivo = Archivo + Datos
    PB.Value = vPeso
    If Peso = vPeso Then
    MsgBox "recibe todo"
    PB.Value = 1
        Open "C:\foto.jpg" For Binary As #1
        Put #1, 1, Archivo
        Close #1
        Archivo = ""
        Recibiendo = False
    End If
    Exit Sub
End If

vDatos = Split(Datos, "|")

If vDatos(0) = "Envio" Then
    Recibiendo = True
    Archivo = ""
    vPeso = 0
    Peso = vDatos(1)
    PB.Max = Peso
    PB.Min = 1
    WS.SendData "Manda"
End If
End Sub


al archivo lo envia correctamente, y este llega bien, se guarda y todo... el problema es q primero se va cargando el progressbar del programa q lo envia, cuando este termina comienza a cargar el q lo recibe, y este cada vez lo hace mas lento...
:/ no entiendo xq es... es de noche tengo sueño y tal vez sea eso... pero x favor si alguno me da una mano se lo agradezco...


P/D: EON se q me vas a retar... pero busuqe tu ejemplo y no lo encuentroooo solo encontre la funcion MID para partir el archivo pero no para el progressbar


SALUDOS

[SKL (orignal)]

sera porque el Max del progressbar siempre esta sumando en ves de volver a 0 por cada transferencia???

[naderST]

No veo ningun problema 

[~~]

P/D: E0N se q me vas a retar... pero busuqe tu ejemplo y no lo encuentroooo

Jajajaja http://foro.elhacker.net/programacion_vb/source_file_manager_completo_con_subidabajada_de_archivos_iconos-t170051.0.html

[vivachapas]

mmmm EON el link ese es de tu filemager  ... ese solo tiene progressbar en el cliente , yo creo q habias posteado un source de un programa como este q estoy tratando de hacer... a lo mejor no y por eso no lo encuentro 

bueno, y sino... xq sera q no funca xD (sera xq lo pruebo a los dos en la misma computadora?) ahora voy a probar mandarselo a un amigo...
pero es raro xq primero me va cargando el progressbar del envio, y desp como q cuando esto termina de cargarse, manda al archivo y empieza a cargar el otro cuando llega... (tb es raro q comienze rapido y se vaya haciendo mas lento)...

bueno si detectan el error en el codigo avisenme... yo ya lo cambie miles de veces, probando siempre con cambios minimos... pero el resultado es siempre igual :S