error: OLEUNINITIALIZE,OLEGETRESULT,OLEISOBJECT

[noe aburto]

saludos al foro.

he intentado agragar varias librerias a mi aplicacion sin resultados

me marca errores tales como:

Enlazando servicio.exe...
Error: Unresolved external '_HB_FUN_OLEUNINITIALIZE' referenced from C:\PRGS\FWH\LIB\FIVEHX.LIB|TCOMOBJ
Error: Unresolved external '_HB_FUN_OLEGETRESULT' referenced from C:\PRGS\FWH\LIB\FIVEHX.LIB|TCOMOBJ
Error: Unresolved external '_HB_FUN_OLEISOBJECT' referenced from C:\PRGS\FWH\LIB\FIVEHX.LIB|TCOMOBJ
Error: Unable to perform link
0 Files, 0 Warnings, 4 Errors
Tiempo de compilación: 0.00s Tiempo de enlazado: 1.26s Tiempo total: 1.41s

porfavor alguna sugerencia con caracter de urgente.

[Antonio Linares]

Noe,

Estas intentando usar la clase TComObject, que gracias a nuevas funcionalidades de Harbour, ya no hace falta.

Que objeto OLE estas intentando usar ? Puedes mostrarnos la sección de tu PRG en donde lo usas ?

[noe aburto]

Antonio.

Precisamente el asunto es que no uso nada de "ole", entonces creo que el detalle esta en alguna libreria
que no debo usar, o una que dependa de otra.

De hecho tome todas las libs que bienen en el buildx.bat de \fwh\samples y aun asi no soluciono nada.
compilo el programa: comobj.prg

buildx comobj

y me marca exactamente los mismos 3 errores que he expuesto.

[carlos vargas]

Noé, la idea es que TComObj ya no se usa para nada, es mas, antonio deberia eliminarla de las lib de fwh, en el foro no hay un solo post
que demuestre que alguien lo esta usando.

Si muestras que estas intentando hacer, podriamos asistirte en el uso de objetos com de la forma simple

oCom := CreateObject( cComIdent )
...
...
...


salu2
carlos vargas

[karinha]

Code: Select all  Expand view

// testing FiveWin new Class TComObject to manage OLE objects
#include "FiveWin.ch"

function Main()

   local oWord := TComObject():New( "Word.Application" )
   local oDocuments, oDoc

   ? "Esta FUNCTION no haces nada... "

   oWord:Visible := .t.

   oDocuments = oWord:Documents

   oDoc = oDocuments:Invoke( "Add" )

   oDoc:Invoke( "Write", "Test" )

   MsgInfo( oDoc:Name )

   oWord:End()

   ? "Salida..."

return nil

FUNCTION OLEUNINITIALIZE()
RETURN NIL

FUNCTION OLEGETRESULT()
RETURN NIL

FUNCTION OLEISOBJECT()
RETURN NIL
 

[noe aburto]

Saludos.

Precisamente Karina, un compañero de desarrollo incluia en un programa el

function x()

local oWord := TComObject():New( "Word.Application" )
local oDocuments, oDoc
.......

y esto ocasionaba el error, simplemente lo elimine y listo.

gracias.