Programación General > Visual Basic 6.0 e inferiores

 Winsock

(1/1)

Javoche:
Hola:

Quiero saber si pueden ayudarme; tengo una camara digital que se conecta a la red mediante TCP, el control (ocx) el sistema de instalaciñon, lo tiene, hasta aqui todo perfecto.

Quiero hacer un sistema donde con la ayuda de un Winsock, muestre la tasa de transferencia de la camara a la PC, en una etiqueta, jamas he usado un winsock,
espero y me puedan ayudar.

Ya enlace el Winsock y el o que tengo es el Siguiente:


--- Código: Text ---Dim IP As StringPrivate Sub Form_Load()IP = "192.168.150.200"Win.RemotePort = "80"Win.RemoteHost = IPWin.Connect IP, 80Camara.InicializarCamaraEn IPCamara.Visualizar IPEnd Sub 

Camara es el Control ocx de la Camara
Win=Winsock
el Puerto es el 80, asignado desde el soft de la camara
Gracias :)

Nogard:
Kual es la funcion exakta del ocx?
necesito un poko mas de informacion para poder ayudarte, si puedes explikarte un poko mejor de ke es lo ke kieres ke el winsock muestre.

Javoche:
Mira el Control de la Camara es de ActiveX, con eventos e instrucciones propias

Camara.InicializarCamaraEn = Indica que se debe de escribir la direccion IP de la Camara

Camara.Visualizar = Para Ver las Imagenes en Tiempo Real, Como un WebCam

y los Siguientes Eventos Son Faciles de Identificar por su Nombre:


--- Código: Text ---Private Sub Camara_ConexionFallida()MsgBox "No se Pudo Establecer Conexion con la Camara", vbCriticalEnd SubPrivate Sub Camara_Desconexion()MsgBox "Se a Perdido Conexion con la Camara", vbCriticalEnd SubPrivate Sub Camara_FotoCapturada()MsgBox "La Foto fue Capturada Correctamente", vbInformationEnd SubPrivate Sub Camara_FotoNoCapturada(ByVal error As String)MsgBox "La Foto no fue Capturada", vbExclamation  Espero tu Colaboracion NogardEnd Sub 

Navegación

[0] Índice de Mensajes