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

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

Antonio, I created the OLE for OPOS object using the function CreateObject as shown in the following. oOle:=CreateObject(cProgID) && <-- Create OLE here Source file: LS_OPOS.prg, line # 227 Let me know if you need more info. Thank you, Jose **************************************************Method ...

Jose, You don't have to include those files in your app. Here you can read about cIID: cIID Specifies the Interface ID GUID of cCLSID | cPROGID when you create an early bound instance of the class. If you pass an empty string as cIID Visual FoxPro attempts to access the default interface (IID) ...

... A new syntax? Looks like an array.. Anyway I tried both as shown below and still resulted to the same error Thanks, Jose Method Instantiate_Device(cProgID) class OPOSHardwareInterface local oOle:='',n,cIID ::lDeviceInstantiated:=.f. oOle:=CreateObject(cProgID) if valtype(oOle)='O' ::lDeviceInstantiated:=.t. ...

Antonio,

What is cIID?

If cIID is the ole program ID (cProgID in my code) then I tried that and my up terminated.

error: WINOLE/1014 Failed to obtain connection point: __AXREGISTERHANDLER Args: (P:0x473A43C) (B:{|| ... }) (C:OPOS.POSPrinter)

Thanks,

Jose

... WINOLE/1014 Failed to obtain connection point: __AXREGISTERHANDLER Args: (P:0x484EA9C) (B:{|| ... }) Thanks, Jose Method Instantiate_Device(cProgID) class OPOSHardwareInterface local oOle:='',n ::lDeviceInstantiated:=.f. oOle:=CreateObject(cProgID) if valtype(oOle)='O' ::lDeviceInstantiated:=.t. ...

Antonio,

The topic was posted sometime in 2008.

Sounds great that it is there, but I'm getting a link error .

What is the library file and where to get the MyInclude.ch?

BTW I used it this way: oOle:=OleWEvent():New(cProgId)

Regards, Saludos

Jose

... cierra al crear el objeto del activex puse unas banderas a la tactivex para monitore y solo llega al pasa 2 te anexo el codigo. METHOD New( oWnd, cProgID, nRow, nCol, nWidth, nHeight ) CLASS TActiveX DEFAULT oWnd := GetWndDefault(), nRow := 0, nCol := 0, nWidth := 200,; nHeight := 200 ::nTop = ...

... But I am using FWH9.01, how to do these settings? In addition, I know there are different ways to use ActiveX: 1. TActiveX():New( oWnd, cProgID, nTop, nLeft, nBottom, nRight ) 2. CreateObject( cProgID ) 3. TOLEAuto():New( cProgID ) What are differences between these ways? If use CreateObject() ...

Lailton...
Change...

If ( ::hWnd := OLECREATEWIN( oWin, cProgId, nLeft, nTop, nWidth, nHeight) ) > 0

for If ( ::hWnd := OLECREATEWIN( oWin, cProgId, nLeft, nTop, nWidth, nHeight) ) != 0

... hWndCtrl; LoadAtl(); hWndCtrl = CreateWindowEx( (DWORD) 0 , // nExStyle (LPCTSTR) "AtlAxWin" , // cClsName (LPCTSTR) hb_parc( 1 ) , // cProgId (DWORD) WS_OVERLAPPEDWINDOW , // style CW_USEDEFAULT , // nLeft CW_USEDEFAULT , // nTop 0 , // nWidth 0 , // nHeight HWND_DESKTOP , // oParent:handle ...

... hWndCtrl; LoadAtl(); hWndCtrl = CreateWindowEx( (DWORD) 0 , // nExStyle (LPCTSTR) "AtlAxWin" , // cClsName (LPCTSTR) hb_parc( 1 ) , // cProgId (DWORD) WS_OVERLAPPEDWINDOW , // style CW_USEDEFAULT , // nLeft CW_USEDEFAULT , // nTop 0 , // nWidth 0 , // nHeight HWND_DESKTOP , // oParent:handle ...

... hWndCtrl; LoadAtl(); hWndCtrl = CreateWindowEx( (DWORD) 0 , // nExStyle (LPCTSTR) "AtlAxWin" , // cClsName (LPCTSTR) hb_parc( 1 ) , // cProgId (DWORD) WS_OVERLAPPEDWINDOW , // style CW_USEDEFAULT , // nLeft CW_USEDEFAULT , // nTop 0 , // nWidth 0 , // nHeight HWND_DESKTOP , // oParent:handle ...

JM,

Tenemos CreateObject( cProgId ) en Harbour para el Pocket PC y FWPPC, asi como soporte completo de la Clase TOleAuto y tambien TActiveX

Lo que no sabemos es que cProgId hay que usar. Es lo que tenemos que descubrir.