| Usuario |
imagenes camara web por red |
Desconocido
|
| Enviado - 12/8/2004 |
| |
| Por favor agradeceria si alguien me pudiera decir como puedo transmitir las imagenes que capta mi camara web de mi ordenador a otro con el winsock o cualquier otra herramienta, cualquier informacion o ejemplo sera de agradecer, muchas gracias. |
| |
|
Fenris
60 Mensaje(s)
|
| Enviado - 13/8/2004 |
| |
esto manda la imagen
Private Const CLUSTER_IMG As Long = 3072 ' tamaño del cluster de las imagenes
Dim Ipos As Long
Dim NImag As Long
Dim NClusterImg As Long
Dim strImag As String
Sub Env_Imag()
NImag = FreeFile
Open "c:\windows\escritorio\jcq.gif" For Binary As NImag
If Ipos = 0 Then
Ipos = 1
End If
Seek NImag, Ipos 'te pone el el archivo Nfile en la pos 1
NClusterImg = LOF(NImag) + 1 - Ipos 'esto pone los bits en el tam del cluster
If NClusterImg > CLUSTER_IMG Then
NClusterImg = CLUSTER_IMG
End If
If NClusterImg = 0 Then 'se envio el archivo
WinVnc.SendData "Terminado>"
Else
'aca envia el archivo
strImag = String(NClusterImg, 0)
Get #NImag, , strImag
Ipos = Ipos + NClusterImg
WinVnc.SendData strImag
DoEvents
End If
Close #NImag
End Sub
esto la recive
Private Sub WinVnc_DataArrival(ByVal bytesTotal As Long)
If InStr(1, VncDatos, "Terminado>") Then
Close #NImag
Picture1.Picture = LoadPicture("c:\windows\escritorio\fondo.gif")
Kill "C:\windows\escritorio\fondo.gif"
'Beep
WinVnc.SendData "Next_Img>"
DoEvents
Exit Sub
Else
NImag = FreeFile
Open "c:\windows\escritorio\fondo.gif" For Binary As #NImag
Seek NImag, LOF(NImag) + 1
Put #NImag, , VncDatos
Close #NImag
WinVnc.SendData "Prox>"
DoEvents
End If
end sub
esto lo copie y pegue de un programa mio, pero basicamente sirve no solo para enviar imagenes si no para cualquier archivo
|
| |
|
Desconocido
|
| Enviado - 13/8/2004 |
| |
Hola!! muchas gracias por tu ayuda pero la transmision de archivos ya la tengo echa,a lo que me referia yo es como puedo mandar en tiempo real lo que capta mi camara web por red a otro ordenador para que vea mis movimientos en tiempo real, no se si me he explicado mejor esta vez,muchas gracias.
Tambien me valdria si supieran como transmitir audio.(me refiero en tiempo real hablando por el microfono que le llegue a la otra persona a su casa)Gracias. |
| |
|
Desconocido
|
| Enviado - 26/8/2004 |
| |
| Pasate a Java tio |
| |
|
|
|
