ToleAuto / OleWevent

[lailton.webmaster]

SomeOne can help solve this problem...

It´OK.

Code: Select all  Expand view

#include "Fivewin.ch"
function main()
 public ownd, oOle
 public left:=0, Top:=0, Right:=0, Bottom:=0
 define window ownd
 oOle:=ToleAuto():new("Codejock.CommandBars.13.0.0")
 cToolA:=oOle:Invoke("Add","ToolBar", 0)
 cToolB:=oOle:Invoke("Add","ToolBar", 0)
 cToolC:=oOle:Invoke("Add","ToolBar", 0)
 OleInvoke(cToolB,"GetWindowRect",@Left, @Top, @Right, @Bottom)
 Activate Window oWnd
Return nil

Now trying use ToleWevent...

Code: Select all  Expand view

#include "Fivewin.ch"
function main()
 public ownd, oOle
 public left:=0, Top:=0, Right:=0, Bottom:=0
 define window ownd
 oOle:=oleWevent():new(oWnd,"Codejock.CommandBars.13.0.0")
 uOle:=oOle:oOle // <-- here is ToleAuto create in class OleWevent
 cToolA:=uOle:Invoke("Add","ToolBar", 0)
 cToolB:=uOle:Invoke("Add","ToolBar", 0)
 cToolC:=uOle:Invoke("Add","ToolBar", 0)
 OleInvoke(cToolB,"GetWindowRect",@Left, @Top, @Right, @Bottom) // error this line
 Activate Window oWnd
Return nil

Link Class ToleEvent:
http://www.redstarsoft.com.br/oOle.rar

[Antonio Linares]

Lailton,

> OleInvoke(cToolB,"GetWindowRect",@Left, @Top, @Right, @Bottom) // error this line

What error do you get ?

[lailton.webmaster]

Antonio,



I can´t understand because give me this erro.

[Antonio Linares]

Lailton,

Are you using Harbour or xHarbour ?

If Harbour, is it current SVN version ?

[lailton.webmaster]

Antonio,

yo uso somiente XHARBOUR

estoy con:
Fivewin 902 y xHarbour 1.1.0 + Bcc55

Gracias.

[Antonio Linares]

Lailton,

If you remove "@" from this line:

OleInvoke(cToolB,"GetWindowRect",@Left, @Top, @Right, @Bottom)

do you still get the GPF ?

[Antonio Linares]

Lailton,

Please add this code to your PRG and try it again:

Code: Select all  Expand view

function OleInvoke( hObj, cMethod, ... )

#ifndef __XHARBOUR__
   return __ObjSendMsg( TOleAuto():New( hObj ), cMethod, ... )
#else  
   local aParams := hb_aParams()

   aParams[ 1 ] = TOleAuto():New( hObj )

   return hb_execFromArray( @__ObjSendMsg(), aParams )  
#endif

function OleSetProperty( hObj, cPropName, uValue )

return __ObjSendMsg( TOleAuto():New( hObj ), "_" + cPropName, uValue )

function OleGetProperty( hObj, cPropName )

return __ObjSendMsg( TOleAuto():New( hObj ), cPropName )
 

[lailton.webmaster]

Antonio,

Erro when i try compile...

Code: Select all  Expand view

Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
OleWEvents0.c:
xHarbour Compiler build 1.1.0 (SimpLex) (Rev. 6195)
Copyright 1999-2008, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'DEMO.PRG'...

DEMO.PRG(18) Error E0030  Syntax error: "syntax error at '...'"

DEMO.PRG(23) Error E0004  LOCAL declaration follows executable statement

2 errors

No code generated
 

i need add someone include ?

thanks

[Antonio Linares]

It seems as your xHarbour version does not support "...", more recent builds support it.

Just for a test, please replace "..." with "u1, u2, u3, u4"

[lailton.webmaster]

Antonio,

This erro now

Code: Select all  Expand view

Application
===========
   Path and name: C:\oOle\demo.exe (32 bits)
   Size: 1,662,976 bytes
   Time from start: 0 hours 0 mins 0 secs
   Error occurred at: 08/16/09, 17:26:21
   Error description: Error TOleAuto/-1  Invalid argument to contructor!: TOLEAUTO:NEW
   Args:
     [   1] = O   Object

Stack Calls
===========
   Called from:  => THROW(0)
   Called from: source\rtl\win32ole.prg => TOLEAUTO:NEW(373)
   Called from: DEMO.PRG => OLEINVOKE(25)
   Called from: DEMO.PRG => MAIN(12)
 

demo.prg

Code: Select all  Expand view

#include "Fivewin.ch"

function main()

 public ownd, oOle
 public Rb
 public left:=0, Top:=0, Right:=0, Bottom:=0
 define window ownd color 0,0
 oOle:=OleWEvent():new(ownd,"Codejock.CommandBars.13.0.0",0,0,oWnd:nRight,oWnd:nBottom)
 cToolA:=oOle:Add("ToolBar", 0)
 cToolB:=oOle:Add("ToolBar", 0)

 OleInvoke(cToolB,"GetWindowRect",@Left, @Top, @Right, @Bottom) // error this line
  // <-- error this line yet, toolbar is created OK more oleinvoke give me erro.
 Activate Window oWnd

Return nil

function OleInvoke( hObj, cMethod, u1, u2, u3, u4 )
return __ObjSendMsg( TOleAuto():New( hObj ), cMethod, u1, u2, u3, u4 )

function OleSetProperty( hObj, cPropName, uValue )
return __ObjSendMsg( TOleAuto():New( hObj ), "_" + cPropName, uValue )

function OleGetProperty( hObj, cPropName )
return __ObjSendMsg( TOleAuto():New( hObj ), cPropName )

[Antonio Linares]

Lailton,

Use it this way:

OleInvoke( cToolB:hObj, "GetWindowRect",@Left, @Top, @Right, @Bottom)

[lailton.webmaster]

Antonio,

Code: Select all  Expand view

Application
===========
   Path and name: C:\oOle\demo.exe (32 bits)
   Size: 1,662,976 bytes
   Time from start: 0 hours 0 mins 0 secs
   Error occurred at: 08/16/09, 19:53:55
   Error description: Error 16507216/3  DISP_E_MEMBERNOTFOUND: GETWINDOWRECT
   Args:
     [   1] = N   0
     [   2] = N   0
     [   3] = N   0
     [   4] = N   0

Stack Calls
===========
   Called from: source\rtl\win32ole.prg => TOLEAUTO:GETWINDOWRECT(0)
   Called from:  => __OBJSENDMSG(0)
   Called from: DEMO.PRG => OLEINVOKE(22)
   Called from: DEMO.PRG => MAIN(14)

PRG

Code: Select all  Expand view

#include "Fivewin.ch"

function main()

 public ownd, oOle
 public Rb
 public left:=0, Top:=0, Right:=0, Bottom:=0
 define window ownd color 0,0
 oOle:=OleWEvent():new(ownd,"Codejock.CommandBars.13.0.0",0,0,oWnd:nRight,oWnd:nBottom)

 cToolA:=oOle:Add("ToolBar", 0)
 cToolB:=oOle:Add("ToolBar", 0)

 OleInvoke( cToolB:hObj, "GetWindowRect",@Left, @Top, @Right, @Bottom)

 Activate Window oWnd

Return nil

function OleInvoke( hObj, cMethod, ua1, ua2, ua3, ua4 )
return __ObjSendMsg( TOleAuto():New( hObj ), cMethod, ua1, ua2, ua3, ua4 )

function OleSetProperty( hObj, cPropName, uValue )
return __ObjSendMsg( TOleAuto():New( hObj ), "_" + cPropName, uValue )

function OleGetProperty( hObj, cPropName )
return __ObjSendMsg( TOleAuto():New( hObj ), cPropName )
 

[Antonio Linares]

Please try this with both FWH TActiveX and your Class:

MsgInfo( cToolB:cClassName )

Lets see if they are the same object class.

[lailton.webmaster]

OleWevent -> 16467048:ADD
TactiveX -> 16439752

Code: Select all  Expand view

#include "Fivewin.ch"
function main()
 public ownd, oOle
 public left:=0, Top:=0, Right:=0, Bottom:=0
 define window ownd color 0,0
// oOle:=OleWEvent():new(ownd,"Codejock.CommandBars.13.0.0",0,0,oWnd:nRight,oWnd:nBottom)
 oOle:=TactiveX():New(ownd,"Codejock.CommandBarsFrame.13.0.0")
 cToolA:=oOle:Do("Add","ToolBar",0)
 cToolB:=oOle:Do("Add","ToolBar",0)
 cToolB:GetWindowRect(@Left, @Top, @Right, @Bottom) // <-- funciona bem
 MsgInfo( cToolB:cClassName )

 Activate Window oWnd

Return nil

/*
function OleInvoke( hObj, cMethod, ua1, ua2, ua3, ua4 )
return __ObjSendMsg( TOleAuto():New( hObj ), cMethod, ua1, ua2, ua3, ua4)

function OleSetProperty( hObj, cPropName, uValue )
return __ObjSendMsg( TOleAuto():New( hObj ), "_" + cPropName, uValue )

function OleGetProperty( hObj, cPropName )
return __ObjSendMsg( TOleAuto():New( hObj ), cPropName )
*/

I can´t understand why i need use "Codejock.CommandBars.13.0.0" in OleWevent and
"Codejock.CommandBarsFrame.13.0.0" in TactiveX

if i use "Codejock.CommandBarsFrame.13.0.0" in OleWevent give me erro.. and if
i use "Codejock.CommandBars.13.0.0" in TactiveX give me erro..

[Antonio Linares]

Lailton,

> if i use "Codejock.CommandBarsFrame.13.0.0" in OleWevent give me erro..

What error is it ?