Título: problema con enviar archivo y progressbar Publicado por: vivachapas en 2 Agosto 2008, 06:31 am 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: 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: 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 Título: Re: problema con enviar archivo y progressbar Publicado por: SKL (orignal) en 2 Agosto 2008, 06:39 am sera porque el Max del progressbar siempre esta sumando en ves de volver a 0 por cada transferencia???
Título: Re: problema con enviar archivo y progressbar Publicado por: naderST en 2 Agosto 2008, 07:21 am No veo ningun problema :xD
Título: Re: problema con enviar archivo y progressbar Publicado por: ~~ en 2 Agosto 2008, 13:43 pm Citar 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 Título: Re: problema con enviar archivo y progressbar Publicado por: vivachapas en 2 Agosto 2008, 16:18 pm mmmm EON el link ese es de tu filemager :-\... ese solo tiene progressbar en el cliente :P, 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 :xD
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 |