FiveTech Software tech support forums

Antonio, Utilizo xHB Comercial e tenho linkado com C:\xHB\lib\ActiveX.lib se lo saco, acontece el seguinte erro : xLINK: error: Unresolved external symbol '_HB_FUN_OLEGETPROPERTY'. xLINK: error: Unresolved external symbol '_HB_FUN_OLESETPROPERTY'. xLINK: error: Unresolved external symbol '_HB_FUN_OL...

... LOCAL hExcel LOCAL hWorkbook LOCAL hActiveWorkbook LOCAL hSheets LOCAL hActiveSheet hExcel := CreateOLEObject("Excel.Application") OLESetProperty(hExcel,"Visible",TRUE) hWorkbook := OLEGetProperty(hExcel,"Workbooks") OLEInvoke(hWorkbook,"Open",FileName) //& "D:\TempXLS\Card.XLS") ...

... "MSMAPI.MAPISession.1" ) MapiMessages1 := CreateOLEObject( "MSMAPI.MAPImessages.1" ) And set properties and methods to: Properties: OLESetProperty(MapiSession1,"property",value) OLEGetProperty(MapiSession1,"property") Methods: OLEInvoke(MapiSession1,"method")

... lMenuBar) ole:Invoke("Navigate",cDirWeb) //ole:End() Return Nil Antonio, Corregido y probado, pero el error sigue siendo el mismo Called from OLESETPROPERTY(0) Called from TOLEAUTO:SET(127) Called from CONECTA(64) La linea 64 es ole:Set("Visible", lVisible) En principio solo se pasa a la funcion ...

... TabWrite = RibbonBar.InsertTab(0, "Writ&e") oTabWrite = OleInvoke( oRibbonBar, "InsertTab", 0, "Writ&e" ) // TabWrite.Id = ID_TAB_WRITE OleSetProperty( oTabWrite, "Id", ID_TAB_WRITE ) // Set GroupClipborad = TabWrite.Groups.AddGroup("&Clipboard", ID_GROUP_CLIPBOARD) oGroups = OleGetProperty( ...

... TabWrite = RibbonBar.InsertTab(0, "Writ&e") oTabWrite = OleInvoke( oRibbonBar, "InsertTab", 0, "Writ&e" ) // TabWrite.Id = ID_TAB_WRITE OleSetProperty( oTabWrite, "Id", ID_TAB_WRITE ) // Set GroupClipborad = TabWrite.Groups.AddGroup("&Clipboard", ID_GROUP_CLIPBOARD) oGroups = OleGetProperty( ...

... me doy cuenta de que no estoy eliminando al final oExcel ni oHoja): ========================== oExcel := CreateOLEObject("Excel.Application") OLESetProperty(oExcel,"Visible", .T.) OLEInvoke( OLEGetProperty(oExcel,"Workbooks"), "Open", cPathxls ) oHoja := OLEGetProperty(oExcel,"ActiveSheet") ...

... me doy cuenta de que no estoy eliminando al final oExcel ni oHoja): ========================== oExcel := CreateOLEObject("Excel.Application") OLESetProperty(oExcel,"Visible", .T.) OLEInvoke( OLEGetProperty(oExcel,"Workbooks"), "Open", cPathxls ) oHoja := OLEGetProperty(oExcel,"ActiveSheet") ...

... clipper and fivewin but with xharbour and fivewin, the program stop . procedure TIE() local he he:=createoleobject("InternetExplorer.Application") OleSetProperty(he,"Visible",.T.) *OleSetProperty(he,"Toolbar",.F.) *OleSetProperty(he,"Statusbar",.F.) *OleSetProperty(he,"MenuBar",.F.) OleInvoke(he,"Navigate","http://www.lesoir.be") ...

... una clase para tal fín. Las funciones son: CreateOleObject() --> hOle OleInvoke( hOle, cMethodName, uParam1, ..., uParamN ) --> uResult OleSetProperty( hOle, cPropertyName, uParam1, ..., uParamN ) OleGetProperty( hOle, cPropertyName ) --> uValue

Ehab,

OLE and ActiveX are quite complex issues, but FWH makes it quite simple:

OleGetProperty( hOLE, cPropertyName, [index1], ... [indexN] ) --> uvalue

OleSetProperty( hOLE, cPropertyName, uValue )

OleInvoke( hOLE, cMethodName, [param1], ... [paramN] ) --> uValue

Hi, I get the following unresolved externals: xLINK: error: Unresolved external symbol '_HB_FUN_OLEGETPROPERTY'. xLINK: error: Unresolved external symbol '_HB_FUN_OLESETPROPERTY'. xLINK: error: Unresolved external symbol '_HB_FUN_OLEINVOKE'. xLINK: error: Unresolved external symbol '??2@YAPAXI@Z'. x...

... atraves del puerto serial El código que tengo para inicializar dicho objeto es el siguiente: oLector := CreateOleObject( "MSCommLib.MSComm" ) OLESetProperty(oLector,"PortOpen", .T. ) enviadome en la creacion del objecto el siguiente error: FiveWin For Harbour GPF ocurred Called OleSetProperty() ...

... s_nOleError = pDisp->lpVtbl->Release( pDisp ); } //---------------------------------------------------------------------------// static void OleSetProperty( IDispatch *pDisp, DISPID DispID, DISPPARAMS *pDispParams ) { // 1 Based!!! if( ( s_OleRefFlags && s_OleRefFlags[ 1 ] ) || hb_param( ...