Power Builder - Leer en PB dlls generadas en VB

Hola,

Quiero leer en PB una dll generada en Visual Basic 6 pero no he podido, lo he intentado generando funciones globales externas, con un Objeto External Visual y con las funciones 'ConnectToNewObject' y 'CreateObject' pero me manda error al llamar la funcion externa

Lo he intentado con varias versiones de PB para comprobar si era cosa de alguna version paro al parecer no es asi, las versiones que utilice son: 6.5, 8 y 9, tengo Windows XP

Si alguno de ustedes pudiera ayudarme se lo agradeceria mucho

Saludos a todos

si pudieses colocar el codigo que estas utilizando podria ayudarte mejor, yo utilizo dll hechas en VB y no tengo problemas, coloca el codigo para ver que puede estar pasando

Saludos

Carlos

Hola Carlos,

Esta es una de las formas como lo he intentado:

OLEObject PBObject, PBNVObject

long ll_status, llres
double ld_result

PBObject = CREATE OLEObject
ll_status = PBObject.ConnectToNewObject ("PowerBuilder.Application")
IF ll_status <> 0 THEN
MessageBox("Error", String(ll_status))
ELSE
PBObject.LibraryList = "C:\Prueba VB\Prueba3\suma_prueba.dll"
PBObject.MachineCode = TRUE

PBNVObject = CREATE OLEObject
PBNVObject = PBObject.CreateObject("class1")
IF IsNull(PBNVObject) THEN
MessageBox("Error", "Objeto Nulo")
ELSE
ll_status = PBNVObject.suma (5, 3)
END IF

DESTROY PBNVObject
PBObject.DisconnectObject( )
END IF

DESTROY PBObject

Tambien lo he hecho declarando la Global External Function de esta manera:

Function Long suma(Long var1, Long var2) Library "suma_prueba.dll"

y mandandola llamar asi:

Long lires, livar1, livar2

livar1 = 5
livar1 = 3

lires = suma(livar1, livar2)

Necesito leer dlls de VB y genere una de prueba que solo hace una suma pero no he podido leerla, espero y me puedas ayudar, no se si la version de PB tenga que ver

Gracias anticipadas

Saludos