Objeto OLE

[Antonio Linares]

Prueba asi:

Controlador:=CreateOLEObject('DataLinkLibrary.IController')
Controlador:Nuevo()

[Jorge Jaurena]

Buen dia Antonio.

Disculpa que siga insistiendo con este tema pero no tengo informacion de como tratar con una libreria de clases utilizando Harbour y FWH, la ayuda con respecto a OLE es muy breve y no tengo el OLE.C como para orientarme un poco mas.
No se si deberia encarar esto por otro lado que no sea utilizarla como obejto OLE.
Si podes orientarme un poco te lo agradeceria mucho.

Jorge Jaurena

[cnavarro]

Busca en el repositorio de Harbour ( hbwinole.h, olecore.c, oleauto.prg, etc. y los ejemplos )

[Antonio Linares]

Jorge,

Has podido probar esto ?

Controlador:=CreateOLEObject('DataLinkLibrary.IController')
Controlador:Nuevo()

[Jorge Jaurena]

Si Antonio, y me da este error

Application
===========
Path and name: E:\CEM-44\CEM44DLL.EXE (32 bits)
Size: 1,292,288 bytes
Time from start: 0 hours 0 mins 0 secs
Error occurred at: 29/05/2017, 16:59:48
Error description: Error BASE/1004 No exported method: NUEVO
Args:
[ 1] = N 47054892

El autor de la dll me indica que la misma esta hecha en .NET Framework, no se si esto marcara alguna diferencia.

Gracias

Jorge Jaurena

[thefull]

Buenas

¿ La DLL es de pago o tiene version demo ?
Tal y como te comenta Antonio, la cosa es muy simple, a no ser que el tema del .NET este dado guerra.

Please, ¿ puedes poner un ejemplo simple en VB que funcione ?
Es relativamente muy simple pasarlo a VBScript y probarlo directamente en el sistema a ver si funciona.
A partir de ahí , usarlo con Harbour debería ser muy muy simple

Saludos

[Antonio Linares]

Prueba a usar win_oleCreateObject() en vez de CreateOLEObject()

[Jorge Jaurena]

Antonio, probe pero el enlazador me dice esto:

E:\CEM-44\TRABAJO DLL>ILINK32.EXE -Gn -aa -Tpe -s @l.bc
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external '_HB_FUN_WIN_OLECREATEOBJECT' referenced from E:\CEM-44\TRABAJO DLL\OBJ\INICIO.OBJ

[Jorge Jaurena]

Funciono!!!
Probe una sugerencia de Rafa,

Controlador:=CreateObject("DataLinkLibrary.IController")

A partir de ahi funciono perfecto.

Muchas gracias Antonio y Rafa.

Jorge Jaurena