Camaras ip

Postby JmGarcia » Thu Sep 18, 2008 7: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
User avatar
JmGarcia
 
Posts: 654
Joined: Mon May 29, 2006 3:14 pm
Location: Madrid - ESPAÑA

Otro viewer de COM

Postby Carlos Mora » Fri Sep 19, 2008 5: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
Carlos Mora
 
Posts: 989
Joined: Thu Nov 24, 2005 3:01 pm
Location: Madrid, España

Postby JmGarcia » Fri Sep 19, 2008 6:35 pm

El control ActiveX del Internet explorer es asi:
Code: Select all  Expand view  RUN
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  Expand view  RUN
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  Expand view  RUN
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  Expand view  RUN
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


Image

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
User avatar
JmGarcia
 
Posts: 654
Joined: Mon May 29, 2006 3:14 pm
Location: Madrid - ESPAÑA

Postby JmGarcia » Fri Sep 19, 2008 7: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  Expand view  RUN
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  Expand view  RUN
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  Expand view  RUN
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  Expand view  RUN
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
User avatar
JmGarcia
 
Posts: 654
Joined: Mon May 29, 2006 3:14 pm
Location: Madrid - ESPAÑA

Postby Antonio Linares » Fri Sep 19, 2008 8:01 pm

JM,

Code: Select all  Expand view  RUN
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
User avatar
Antonio Linares
Site Admin
 
Posts: 42161
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby Silvio » Sat Sep 20, 2008 9: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
User avatar
Silvio
 
Posts: 3107
Joined: Fri Oct 07, 2005 6:28 pm
Location: Teramo,Italy

Previous

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot], SantaCroya and 57 guests