FiveTech Software tech support forums

... CountLeft(<cString>,[<xChar>])->nCount CountRight(<cString>,[<xChar>])->nCount CreateObject(<cProgID>)->oOleAuto Crypt(<cString>,<cPassWord>)->cResult CSetAtMuPa([<lNewMode>])->lOldMode CSetCent([<lNewMode>])->lOldMode ...

Saludos, haber si te ayuda, gracias, saludos... :shock:    oExcel := TOleAuto():New( "Excel.Application" )   oExcel:WorkBooks:Add()// ESPECIFICAS EN QUE HOJA QUIERES QUE SE INICIE Y TRABAJE, SE SELECCIONA Y LUEGO ACTIVA*** oExcel:Sheets("...

saludos Estoy usando tOleAuto para abrir archivos de excel y poder leer su informacion, usando oExcel :=TOleAuto():New("Excel.Application") oExcel:WorkBooks:Open(cFilePol) oHoja :=oExcel:Get("ActiveSheet") pero no se cual de estas 3 instrucciones tarda demasiado, una vez abierto ...

... ...| MsgInfo( 'Test') },{cIID}) && What are the parameters of the codeblock? alert('Done') aadd(::aoDevices,oOle) * aadd(::aoDevices,oOle:oOleAuto) endif return oOle

... oOle:__hObj, {| a,b,c | MsgInfo( 'Test') }) && What are the parameters of the codeblock? aadd(::aoDevices,oOle) * aadd(::aoDevices,oOle:oOleAuto) endif return oOle

... (called from Class THActiveX METHOD ReadTypes), that read all the events names that the OLE object uses: ::aEvents = ActXEvents( cTypeLib, ::oOleAuto:__hObj ) Please review FWH\source\classes\activex.prg. Both Classes TActiveX (the first one implemented in FWH) and THActiveX are in that file. ...

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

Richard, There was an error in the libs that I sent you (I forgot to rename a DATA oOLE into a DATA oOleAuto). Now it is much better, though still have some problems but not related to hb_gcAll() anymore. I can't send you the libs now as I am coding on my laptop and I don't ...

... emailed you the FWH libs with changes in Class THActiveX. Events are routed now but as numbers, not as strings. Also I have renamed DATA oOle as oOleAuto, so we are compatible with FWH Class TActiveX code. Please run and keep open dbwin: https://fivewin-contributions.googlecode.com/files/dbwin32.zip ...

Richard,

Please change this line:

::OBJcalendar := TOleAuto():New( ::oCalex:oOleAuto:__hObj )

into:

::OBJcalendar := TOleAuto():New( ::oCalex:oOle:__hObj )

... TRY ::objcalendar := nil ::oCalexStdDlgs := CreateObject( "Codejock.CalendarDialogs.15.0.2" ) ::OBJcalendar := TOleAuto():New( ::oCalex:oOleAuto:__hObj ) ::oCalexStdDlgs:Calendar := ::OBJcalendar ::oCalexStdDlgs:RemindersWindowShowInTaskBar = .t. ::oCalexStdDlgs:CreateRemindersWindow() ...

... We use it as an alternative to TActiveX when TActiveX (somehow) fails. Keep your code for ::OBJcalendar := TOleAuto():New( ::oCalex:oOleAuto:__hObj ) it should work fine too :-)

... is the difference between Tactivex and THactivex ? i am trying to adapt the other object creation like ::OBJcalendar := TOleAuto():New( ::oCalex:oOleAuto:__hObj ) Richard

... ERROR TRY ::oCalexStdDlgs := CreateObject( "Codejock.CalendarDialogs.15.0.2" ) //::oCalexStdDlgs:Calendar := TOleAuto():New( ::oCalex:oOleAuto:__hObj ) ::oCalexStdDlgs:Calendar = ::oCalex ::oCalexStdDlgs:RemindersWindowShowInTaskBar = .t. ::oCalexStdDlgs:CreateRemindersWindow() CATCH ...

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