Problema enviar archivo

[~~]

Pues puede ser q has puesto case "send" dentro del timer  eso tiene q ir el el data arrival del ws 

Aparte de q lo estas haciendo mal de nuevo. Por q usas esto:

Código [Seleccionar] Expandir

WS.SendData "yas|" & send & "|" & ya

En vez del interruptor q te e dicho? joer si te ayudo por lo menos hazme caso!! no ves q la imagen puede contener entre medias caracteres "|" por lo q al partilos perderias un monton de datos... si embargo si usas el interruptor no!!! imaginate q esto es una imagen en binario:

Código [Seleccionar] Expandir

sdafsad|dfdsf5sd4f|sd4f@||||||||||lsjdvfsd5f4||svds|474

No ves q al llegar al server va a partir el chorizo ese por el | y vas a perder trozos? usa el interruptor anda...

[vivachapas]

estuve trabajando con los codigos y logre hacer el mio propio!! estoy muy contento por eso... y creo q se tu error ya q tb lo cometi mientras hacia el mio

WS.SendData "yas|" & send & "|" & ya

el archivo envia la palabra yas| y una parte de la imagen... luego en otro paquete envia solo la siguiente parte de la imagen por lo que:

Case "yas"

no se vuelve a cumplir!! 


creo q ese estu problema!! aunque soy muy novato y no se si lo q digo estara bien...


tendrias q hacer como bien dice EON un interruptor
yovaninu lo explica muy bien.. de ahi lo entendi mucho

[vivachapas]

como pongo una imagen en un picture... o en un image... no se q me conviene para hacer (empezar a hacer) una funcion como la del bifrost... para poder hacer clicks en la pantalla de la victima...

[Jareth]

Mi problema es que no es tan sencillo,tengo un array de datos y cuando se hace la conexion envio varios datos,por eso lo hacia con case y todo porque con el codigo de E0N,el lo hace con ws.getdata datos,y luego todo con datos,pero asi a mi creo que no me iria porque tengo un array,por eso el select case sdatos(0) y hago un case,y por eso me va o me cuesta.Lo del interruptor ya lo he hecho y sigue sin irme.

[~~]

No te funciona por lo q dice vivachapas

Sube la parte del data arrival y te digo. Seguramente hagas ws.getdata datos y luego los partes:
Split (datos, "|")
no??

[Jareth]

Código [Seleccionar] Expandir


Private Sub WS_DataArrival(index As Integer, ByVal bytesTotal As Long)
On Error Resume Next
Dim datos As String
Dim sData() As String
WS(index).GetData datos
sData = Split(datos, "|")

Select Case sData(0)
Case "Conexion"

Gracias y saludos.

[~~]

Si, asi es como lo suelo usar yo tb. No pasa nada por q partas la cadena, recuerda q la variable datos no esta partido, kedaria asi:

CLIENTE:

Dim DataFile As String
Dim LenFile As Long
Dim Envio As Boolean

Private Sub Form_Load()
Envio = False
End Sub

Private Sub WS_DataArrival(index As Integer, ByVal bytesTotal As Long)
On Error Resume Next
Dim datos As String
Dim sData() As String

WS(index).GetData datos
sData = Split(datos, "|")

If Envio = True Then
   DataFile = DataFile & datos
   If Len(DataFile) = LenFile Then
       Open "C:\capture2.jpg" For Binary As #1
           Put #1, , DataFile
       Close #1
       DataFile = ""
       MsgBox "El Fichero se a Enviado Correctamente"
       'Ahora lo tendrias q mostrar C:\capture2.jpg en un picture
       Envio = False
   End If
End If

Select Case sData(0)
Case "Tam:"
LenFile = sData(1)
Envio = True
ws.SendData "SendFile"

SERVER:

'La peticion de imagen ponla dentro del data arrival con la palabra q tu kieras
Private Sub ws_Connect()
ws.SendData "Tam:|" & FileLen("C:\Prueba.txt")
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim sData() As String
Dim datos As String
Dim Send As String

ws.GetData datos
sData = Split(datos, "|")

Select Case sData(0)
Case "SendFile"
'Aki pones el code para q haga la foto y q se guarde en C:\capture.jpg
      Open "C:\capture.jpg" For Binary As #1
        Send = Space(LOF(1))
        Get #1, , Send
      Close #1
ws.SendData Send
End If

End Sub

Ya esta lo unico q tendrias q cambiar seria

Código [Seleccionar] Expandir

Private Sub ws_Connect()
ws.SendData "Tam:|" & FileLen("C:\Prueba.txt")
End Sub
del server y poerlo en el data arrival, en uno de los case para q de mande la imagen cuando tu kieras

[Jareth]

Wua,muchas gracias E0N me va al 100%,funciona de maravilla mil gracias,muchisimas gracias por tu ayuda y tu paciencia.Si te puedo ayudar en algo(no creo)hazmelo saber.
Muchas gracias.
Saludos.
Se puede dar por solucionado.

[~~]

Menos mal q te funciona xDD por q llevamos 28 respuestas con la mia para transferir un archivo xDD

De nada 

[Jareth]

Menos mal q te funciona xDD por q llevamos 28 respuestas con la mia para transferir un archivo xDD

De nada 

jajajaj si me ha costado pero ha salido.
Enga muchas gracias.