topic-8780

Posts: 654

Joined: Mon May 29, 2006 03:14 PM

Camaras ip

Posted: Thu Sep 18, 2008 07:04 PM

El fabricante es Moon Valley Software www.moonvalley.com y el freeware (creo).
El enlace http://activex.moonvalley.com/activexxx.htm

Gracias.

Mi abuelo decía: Los aviones vuelan porque Dios quiere, y los helicópteros ni Dios sabe porque vuelan.

FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013

Carlos Mora

Posts: 989

Joined: Thu Nov 24, 2005 03:01 PM

Otro viewer de COM

Posted: Fri Sep 19, 2008 05:59 AM

Una alternativa a ActiveXXX es OleView, del propio Microsoft. Es un poco más completo, y te permite ver tambien aquellos COM que se activan a demanda (como el PDFCreator) y que no figuran en el registro. Además te muestra las referencias cruzadas y unas cuantas cosas más.
Por ejemplo para ver las interfaces de los addons del Acrobat Reader, el ActiveXXX se queda en el COM del reader, y OleView te muestra el resto.

http://www.microsoft.com/downloads/deta ... laylang=en

Un saludo

Saludos
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
“If you think education is expensive, try ignorance"

JmGarcia

Posts: 654

Joined: Mon May 29, 2006 03:14 PM

Camaras ip

Posted: Fri Sep 19, 2008 06:35 PM

El control ActiveX del Internet explorer es asi:

Code: Select all Collapse

REDEFINE ACTIVEX oActiveX ID 402 OF oDlg PROGID "Shell.Explorer.2"

El fichero que me da ActiveXXX del control IPCAMCTRL (que creo que es ese) me da esto:

Code: Select all Collapse

Class ID: {96A66850-320C-4566-9C76-C37BDD631071}
Prog ID:  IPCAMCTRL.IpcamctrlCtrl.1
location: C:\ARCHIV~1\Vilar\VILARM~1\IPCAMC~1.OCX

Methods for Ipcamctrl Control

  VT_VOID AboutBox( )
  VT_VOID Init( VT_PTR lRetCode )
  VT_VOID Uninit( VT_PTR lRetCode )
  VT_VOID Reflesh( VT_PTR lRetCode )
  VT_VOID VisitIPCam( VT_I4 ip, VT_I2 port, VT_PTR lRetCode )
  VT_VOID SetIP( VT_I4 ip, VT_I4 mask, VT_I4 gateway, VT_BSTR macAddr, VT_BSTR userName, VT_BSTR pwd, VT_PTR lRetCode )
  VT_VOID IsIPConflict( VT_I4 ip, VT_I4 mask, VT_PTR lRetCode )
  VT_VOID GetFreeIP( VT_PTR ip, VT_I4 mask, VT_I4 gateway, VT_PTR lRetCode )
  VT_VOID IP2String( VT_I4 ip, VT_PTR buf )
  VT_VOID String2IP( VT_PTR ip, VT_PTR buf )
  VT_VOID IsValidMacAddr( VT_BSTR macAddr, VT_PTR lRetCode )
  VT_VOID AutoAllocate( VT_PTR ip, VT_PTR mask, VT_PTR gateway, VT_PTR lRetCode )
  VT_VOID IsLocalIP( VT_I4 ip, VT_I4 mask, VT_PTR lRetCode )

Properties for Ipcamctrl Control

Events for Ipcamctrl Control

  OnEnumIPCam

Code: Select all Collapse

Class ID: {914954BC-C515-454E-BE57-712AFB3FAF0B}
Prog ID:  MULTICLI.MultiCliCtrl.1
location: C:\ARCHIV~1\Vilar\VILARM~1\MultiCli.ocx

Methods for MultiCli Control

  VT_VOID SetCliInfo( VT_I4 iIndex, VT_BSTR pszHost, VT_I4 iPort, VT_BSTR pszUser, VT_BSTR pszPwd, VT_BSTR pszNick, VT_PTR lRetCode )
  VT_VOID LookPic( VT_BSTR pszHostPort, VT_PTR lRetCode )
  VT_VOID StopPic( VT_BSTR pszHostPort, VT_PTR lRetCode )
  VT_VOID ExecCmd( VT_BSTR pszHostPort, VT_I4 cmd, VT_PTR lRetCode )
  VT_VOID DestroyCli( VT_BSTR pszHostPort, VT_PTR lRetCode )
  VT_VOID SetSplitterMethod( VT_I4 iType, VT_PTR lRetCode )
  VT_VOID SetFullScreen( VT_PTR lRetCode )
  VT_VOID ShowPropertiesDlgs( VT_I4 iIndex, VT_PTR lRetCode )
  VT_VOID GetHostName( VT_I4 iWndIndex, VT_PTR pszHostPort, VT_PTR lRetCode )
  VT_VOID GetWndIndex( VT_BSTR pszHostPort, VT_PTR lRetCode )
  VT_VOID GetTotalCameras( VT_PTR lRetCode )
  VT_VOID GetHostBasicInfo( VT_BSTR pszHostPort, VT_PTR lRetCode )
  VT_VOID SnapPicture( VT_BSTR pszHostPort, VT_BSTR pszFile, VT_I4 iFormat, VT_I4 iPixel, VT_PTR lRetCode )
  VT_VOID Record( VT_BSTR pszHostPort, VT_BSTR pszFile, VT_I4 iFormat, VT_I4 lWidth, VT_I4 lHeight, VT_I4 lBitRate, VT_PTR lRetCode )
  VT_VOID StopRecord( VT_BSTR pszHostPort, VT_PTR lRetCode )
  VT_VOID SetDefaultWnd( VT_I4 iWndIndex, VT_PTR lRetCode )
  VT_VOID ShowInfoDlg( VT_BSTR pszHostPort, VT_PTR lRetCode )
  VT_VOID SetBkgndPic( VT_BSTR pszPath, VT_PTR lRetCode )
  VT_VOID SetFontColor( VT_I4 lRed, VT_I4 lGreen, VT_I4 lBlue, VT_PTR lRetCode )
  VT_VOID Get( VT_I4 cmd, VT_PTR lInParam, VT_I4 lInLenght, VT_PTR lOutParam, VT_PTR lOutlength, VT_PTR lRetCode )
  VT_VOID Set( VT_I4 cmd, VT_PTR lInParam, VT_I4 lInLength, VT_PTR lRetCode )
  VT_VOID AboutBox( )

Properties for MultiCli Control

Events for MultiCli Control

  FireSelect
  FireAddCam
  FireDelCam
  FireReConnect
  FireSnapSuccess
  FireRecordStatus
  FireSplitterMethod
  FireCamEvent

Code: Select all Collapse

Class ID: {9758BAF6-BF99-4CF6-A8EC-6AECB90A59AB}
Prog ID:  SRXViewProj.SRXView
location: C:\ARCHIV~1\Vilar\VILARM~1\SRXVIE~1.OCX

Methods for SRXView Control

  VT_VOID AddSurveillanceRecord( VT_LPWSTR psMediaFile, VT_LPWSTR psArea, VT_LPWSTR psCamera, VT_R8 dDate, VT_R8 dTime )

Properties for SRXView Control

  Visible             	 VT_BOOL         Get, Put
  AutoScroll          	 VT_BOOL         Get, Put
  AutoSize            	 VT_BOOL         Get, Put
  AxBorderStyle       	 VT_USERDEFINED  Get, Put
  Caption             	 VT_BSTR         Get, Put
  Color               	 VT_USERDEFINED  Get, Put
  Font                	 VT_PTR          Get, Put, PR
  KeyPreview          	 VT_BOOL         Get, Put
  PixelsPerInch       	 VT_I4           Get, Put
  PrintScale          	 VT_USERDEFINED  Get, Put
  Scaled              	 VT_BOOL         Get, Put
  Active              	 VT_BOOL         Get
  DropTarget          	 VT_BOOL         Get, Put
  HelpFile            	 VT_BSTR         Get, Put
  ScreenSnap          	 VT_BOOL         Get, Put
  SnapBuffer          	 VT_I4           Get, Put
  DoubleBuffered      	 VT_BOOL         Get, Put
  AlignDisabled       	 VT_BOOL         Get
  VisibleDockClientCount	 VT_I4           Get
  Enabled             	 VT_BOOL         Get, Put
  FontColor           	 VT_I4           Get, Put

Events for SRXView Control

  OnActivate
  OnClick
  OnCreate
  OnDblClick
  OnDestroy
  OnDeactivate
  OnKeyPress
  OnPaint
  OnRemoved

Y estos son los ficheros que hay dentro de una aplicación que viene con la camara que se llama VILAR MULTI-VIEW:
ipcamctrl.ocx
MultiCli.ocx
SRXViewProj.ocx

Pues bien como "creo" el objeto...

y empiezo a funcionar.

Gracias de nuevo Biel.

Mi abuelo decía: Los aviones vuelan porque Dios quiere, y los helicópteros ni Dios sabe porque vuelan.

FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013

JmGarcia

Posts: 654

Joined: Mon May 29, 2006 03:14 PM

Camaras ip

Posted: Fri Sep 19, 2008 07:47 PM

Cuando se accede a la camara a traves de http://999.999.999.999 parte del código fuente HTML es:

Code: Select all Collapse

function use_activex(x,y) {
  document.write('<OBJECT name="XSockClient" ID="XSockClient1" WIDTH="'+x+'" HEIGHT="'+y+'" CLASSID="CLSID:2328F294-DD85-11D3-B4AF-00C04F2B300E" CODEBASE="/eng/activex/activex.CAB">');
  document.write('<PARAM NAME="StreamLocation" VALUE="/cgi/sf.cgi">');
  document.write('<PARAM NAME="Authorization" VALUE="c2FjdGE6c2FjdGE=">');
  document.write('</OBJECT>');
}

Con lo que preveo que la inicializacion del objeta sera asi:

Code: Select all Collapse

REDEFINE ACTIVEX oActiveX ID 402 OF oDlg PROGID "XSockClient.XSockClient.1"

Esto ultimo funciona y no casca...

Por otro lago he cogido el OCX que la camara IP tiene:

Code: Select all Collapse

http://999.999.999.999/eng/activex/activex.CAB

Y contiene estos ficheros:
DiskSpace.ocx
vicodec.dll
VIPCAM.inf
VIPCAM.ocx

Y el ActiveXXX para el control XSockClient me da esto:

Code: Select all Collapse

Class ID: {2328F294-DD85-11D3-B4AF-00C04F2B300E}
Prog ID:  XSOCKCLIENT.XSockClientCtrl.1
location: C:\WINDOWS\DOWNLO~1\VIPCAM.ocx

Methods for XSockClient Control

  VT_BOOL Connect( VT_BSTR lpHostName, VT_I4 nPort )
  VT_BOOL Send( VT_BSTR lpData, VT_I4 nDataLen )
  VT_VOID Close( )
  VT_VOID StopRecord( )
  VT_VOID Record( VT_I4 type )
  VT_BOOL SetFullScreen( VT_BOOL bFullScreen )
  VT_VOID Snap( )
  VT_BOOL SetSnapPath( )
  VT_VOID AboutBox( )

Properties for XSockClient Control

  StreamLocation      	 VT_BSTR         Get, Put
  TestHost            	 VT_BSTR         Get, Put
  ReceiveBufferCount  	 VT_I4           Get, Put
  NullTerminate       	 VT_BOOL         Get, Put
  Authorization       	 VT_BSTR         Get, Put

Events for XSockClient Control

  OnConnect
  OnClose
  OnSend
  OnError
  OnReceive
  OnRecordError

Mi abuelo decía: Los aviones vuelan porque Dios quiere, y los helicópteros ni Dios sabe porque vuelan.

FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Camaras ip

Posted: Fri Sep 19, 2008 08:01 PM

JM,

Code: Select all Collapse
REDEFINE ACTIVEX oActiveX ID 402 OF oDlg PROGID "XSockClient.XSockClient.1"
Esto ultimo funciona y no casca...

Prueba a acceder a alguna propiedad de ese activex, desde el ACTIVATE DIALOG oDlg ON INIT ..., ó desde la acción de un Botón, por ejemplo:

MsgInfo( oActiveX:GetProp( "Authorization" ) )

// como esa propiedad es de tipo SetGet "Get, Put", prueba a cambiarle el valor
oActiveX:SetProp( "Authorization", "test" )
MsgInfo( oActiveX:GetProp( "Authorization" ) )

regards, saludos

Antonio Linares
www.fivetechsoft.com

Silvio

Posts: 3107

Joined: Fri Oct 07, 2005 06:28 PM

Camaras ip

Posted: Sat Sep 20, 2008 09:09 AM

it is good if you pubblish an test sample
then I not understand where I can found these ocx
I'm interesting to create a dialog with 6/9 cams
Do have you an solution

Best Regards, Saludos

Falconi Silvio

FiveTech Support Forums

Camaras ip

Otro viewer de COM

Camaras ip

Camaras ip

Camaras ip

Camaras ip

Continue the discussion