Autor Tema: Winsock (Leído 1280 veces)

Javoche · « **en:** Viernes 12 de Agosto de 2005, 22:27 »

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 String
Private Sub Form_Load()
IP = &#34;192.168.150.200&#34;
Win.RemotePort = &#34;80&#34;
Win.RemoteHost = IP
Win.Connect IP, 80
Camara.InicializarCamaraEn IP
Camara.Visualizar IP
End 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 &#34;No se Pudo Establecer Conexion con la Camara&#34;, vbCritical
End Sub
Private Sub Camara_Desconexion()
MsgBox &#34;Se a Perdido Conexion con la Camara&#34;, vbCritical
End Sub
Private Sub Camara_FotoCapturada()
MsgBox &#34;La Foto fue Capturada Correctamente&#34;, vbInformation
End Sub
Private Sub Camara_FotoNoCapturada(ByVal error As String)
MsgBox &#34;La Foto no fue Capturada&#34;, vbExclamation
 
 
Espero tu Colaboracion Nogard
End Sub
 

SoloCodigo

Autor Tema: Winsock (Leído 1280 veces)

Javoche

Winsock

Nogard

Re: Winsock

Javoche

Re: Winsock