FiveTech Software tech support forums

www.FiveTechSoft.com

Skip to content

Camaras ip

Post a reply

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
Top

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: 988
Joined: Thu Nov 24, 2005 3:01 pm
Location: Madrid, España
Top

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

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

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
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
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
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
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
Top

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

JM,

Code: Select all  Expand view
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: 41462
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Top

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
Top
Previous
Post a reply

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 159 guests

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group