FiveTech Software tech support forums

... METHOD Activate() ::oChart := TOleAuto():New( ActXPdisp( ::oControl:hActiveX ) ) RETURN NIL Estare haciendo algo mal o esta forma de llamado ya es incompatible con este harbour. Alguien tiene alguna libreria mas actualizada ...

I have FiveWin 15.01 and xHarbour 1.2.3 Intl. (SimpLex) (Build 20151110) and I cant run any example with ActiveX.
Program hand at this point:

Activex.prg (line 77): ::hActiveX = CreateActiveX( ::hWnd, cProgID, Self )

Thanks ...

... = cProgID ::cString = ActXString( cProgID ) ::Register() ? 'paso1' if ! Empty( oWnd:hWnd ) ::Create() oWnd:AddControl( Self ) ? 'paso2' ::hActiveX = CreateActiveX( ::hWnd, cProgID, Self ) ? 'paso3' ::oOleAuto = TOleAuto():New( ActXPdisp( ::hActiveX ) ) Saludos!

Antonio

This is how it is defined with xharbour

::oCalexStdDlgs:Calendar( TOleAuto():New( ActXPdisp( ::oCalex:hActiveX ) ) )

it was replaced for harbour with

::oCalexStdDlgs:Calendar = TOleAuto():New( ::oCalex:oOleAuto:__hObj )

all the above suggestions do not work

Richard

... ) local cTypeLib := oReg:Get( "" ) oReg:Close() // if ! Empty( cTypeLib ) .and. File( cTypeLib ) // ::aEvents = ActXEvents( cTypeLib, ::hActiveX ) // endif return nil //----------------------------------------------------------------------------// Regards, George

Tim,

It seems that you replace this line

::oCalexStdDlgs:Calendar( TOleAuto():New( ActXPDispPtr( ::oCalex:hActiveX ) ) )

with

::oCalexStdDlgs:Calendar = TOleAuto():New( ::oCalex:oOleAuto:__hObj )

then it is working fine

... ) oReg:Close() act:=TactiveX():new(::Janela, ::cString,0,0,0,0) if ! Empty( cTypeLib ) .and. File( cTypeLib ) aEvents = ActXEvents( cTypeLib, act:hActiveX ) endif for n = 1 to len(aEvents) #define aEvents[n][1] aEvents[n][2] // problem aqui :) no stay defined ... next n Return nil

Antonio, > METHOD Destroy() INLINE ActXEnd( ::hActiveX ), ::oOleAuto := nil, Super:Destroy() this unfortunately doesn't work (looks like the program hangs before method Destroy() get fired). > oActiveX:oOleAuto := nil This DOES work, but ...

Olá Antonio, Prueba a cambiar: ... := TOleAuto():New( ActXPdisp( oAct:hActiveX ) ) por esto: ... := TOleAuto():New( oAct:oOleAuto:__hObj ) Sim, isto funcionou :D Veja no exemplo abaixo que tive comentar algumas linhas "*" para poder compilar e ao ...

Rossine,

Prueba a cambiar:

... := TOleAuto():New( ActXPdisp( oAct:hActiveX ) )

por esto:

... := TOleAuto():New( oAct:oOleAuto:__hObj )

Olá Antonio, Es esta la línea 80 en donde se produce el GPF ? oStatusBar := TOleAuto():New( ActXPdisp( oAct:hActiveX ) ) Funcionaba este mismo código bien, anteriormente ? Sim antonio, funcionava com o harbour mais antigo. Tente rodar o exemplo de daniel que está neste link: ...

Rossine,

Es esta la línea 80 en donde se produce el GPF ?

oStatusBar := TOleAuto():New( ActXPdisp( oAct:hActiveX ) )

Funcionaba este mismo código bien, anteriormente ?

Jeff,

Try it this way:

oDate:AttachToCalendar( ActXPdisp( oAct:hActiveX ) )

or

oDate:AttachToCalendar( TOleAuto():New( ActXPdisp( oAct:hActiveX ) ) )

... uParam1, uParam2, uParam3, uParam4, uParam5 ) have onlly 5 parans and i need 8. Im trying this form. Ret = ActXInvoke( ActXPdisp( oAct:hActiveX ), "RED", aParams[1], aParams[2], aParams[3], aParams[4], aParams[5], aParams[6], aParams[7], 0) more return nil yet. Thinnk that ...

Colegas como comenta Ari:: oStatusBar := TOleAuto():New( ActXPdisp( oAct:hActiveX ) ) oStatusBar:StatusBar:Visible=.T. oStatusBar:StatusBar:AddPane( 0 ) oStatusBar:StatusBar:IdleText = "xxx" oStatusBar:StatusBar:AddPane( 59137 ) oStatusBar:StatusBar:AddPane( ...