FiveTech Software tech support forums

June 2008 ======= * Enhancement: Class TActiveX improved used functions OleGetProperty(), OleSetProperty() and OleInvoke(). Please review source\classes\TActiveX.prg * Fix: Minor change in Class TWBrowse function WBrwLine(). * Enhancement: Class TControl Method ...

... ) MsgAlert('No existe el libro de cálculo '+cfilexls) return .f. endif else if !file( lfn2sfn(cFileXls) ) return .f. endif endif ::OleXlss := OleGetProperty( ::OleExcel, 'Workbooks') OleInvoke(::OleXlss, 'Open', cfilexls,,lreadonly) ::OleBook := OleGetProperty( ::OleExcel, 'ActiveWorkbook') ...

... y por este orden en un proceso de importación: oExcel := CreateOLEObject("Excel.Application") OLESetProperty(oExcel,"Visible", .T.) OLEInvoke( OLEGetProperty(oExcel,"Workbooks"), "Open", cPathxls ) oHoja := OLEGetProperty(oExcel,"ActiveSheet") cCCC := OleGetProperty( OleGetProperty( oHoja, ...

... y por este orden en un proceso de importación: oExcel := CreateOLEObject("Excel.Application") OLESetProperty(oExcel,"Visible", .T.) OLEInvoke( OLEGetProperty(oExcel,"Workbooks"), "Open", cPathxls ) oHoja := OLEGetProperty(oExcel,"ActiveSheet") cCCC := OleGetProperty( OleGetProperty( oHoja, ...

Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland Error: Unresolved external '_HB_FUN_OLEGETPROPERTY' referenced from F:\FWH_2.7\LIB\FIVEHC.LIB|ACTX Error: Unresolved external '_HB_FUN_OLESETPROPERTY' referenced from F:\FWH_2.7\LIB\FIVEHC.LIB|ACTX Error: Unresolved external '_HB_FUN_OLEI...

... a file OleInvoke( hWordDocs, "Open", "d:\pretend\MyDoc.doc" ) I can get a ?handle? to the FileConverters property ( a collection ) ahFileCons := OleGetProperty( hWordOle, "FileConverters" ) but I need to access the mebers of that collection somehow. I don't know how to proceed. I need something ...

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

... 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") //"D:\TempXLS\Egresos.XLS") hActiveWorkbook := ...

Dixon, > With ControlFile.CommandBar.Controls local hCommandBar := OleGetProperty( hControlFile, "CommandBar" ) local hControls := OleGetProperty( hCommandBar, "Controls" ) Its easy :-) Hello Antonio, Could you try to convert these code to FWH? Private ...

Dixon,

> With ControlFile.CommandBar.Controls

local hCommandBar := OleGetProperty( hControlFile, "CommandBar" )
local hControls := OleGetProperty( hCommandBar, "Controls" )

Its easy

... "AddRibbonBar", "RibbonBar" ) > 2. Set ControlFile = RibbonBar.Controls.Add(xtpControlPopup, -1, "&File", 1) local hControls := OleGetProperty( hRibbonBar, "Controls" ) local hControlFile := OleInvoke( hControls, "Add", xtpControlPopup, -1, "&File", 1)

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

... := CreateObject("MapObjectsLT2.MapLayer") oLayer:File := "d:\synbiosys\kaarten\prov2002.shp" hLayers := oMap:GetProp("Layers") // nLayers := OleGetProperty(hLayers, "Count") // now we need to add the layer objects to the layers collection. // using a VB-alike syntax it would be like 'oMap:Layers:Add(oLayer)' ...

... OleSetProperty( oTabWrite, "Id", ID_TAB_WRITE ) // Set GroupClipborad = TabWrite.Groups.AddGroup("&Clipboard", ID_GROUP_CLIPBOARD) oGroups = OleGetProperty( oTabWrite, "Groups" ) oGroupClipborad = OleInvoke( oGroups, "AddGroup", "&Clipboard", ID_GROUP_CLIPBOARD ) // A numeric value different ...

... OleSetProperty( oTabWrite, "Id", ID_TAB_WRITE ) // Set GroupClipborad = TabWrite.Groups.AddGroup("&Clipboard", ID_GROUP_CLIPBOARD) oGroups = OleGetProperty( oTabWrite, "Groups" ) oGroupClipborad = OleInvoke( oGroups, "AddGroup", "&Clipboard", ID_GROUP_CLIPBOARD ) // A numeric value different ...