Para realizar esta operacion se necesita registrar
las dll's de vb y componentes com de pb y para las
dll y archivos pbd generados despues de un proyecto
de pbd no es necesario ya que el accede es a las
librerias de pb y carga todo en la aplicacion pb.
MasterBrain 10-Nov-2004
El Ejemplo es el siguiente:
//Primero Consumir dll's o pbd's Generados despues de Un proyecto
OLEObject PBObject, PBNVObject
Integer liSum1 = 5, liSum2 = 8 , li_resp
long ll_status, llres
double ld_result
PBObject = CREATE OLEObject
ll_status = PBObject.ConnectToNewObject ("PowerBuilder.Application")//("PB80.ObjSumar")
IF ll_status <> 0 THEN
MessageBox("Error", String(ll_status))
Return
ELSE
//PBObject.LibraryList = "C:\dllTmp\dllsumar.dll"
PBObject.LibraryList = "C:\dllTmp\transp.pbd"
//Esto es del tipo de libreria genera por un pbd o un dll
PBObject.MachineCode = FALSE
PBNVObject = CREATE OLEObject
PBNVObject = PBObject.CreateObject("n_operacion")
IF IsNull(PBNVObject) THEN
MessageBox("Error", "Objeto Nulo")
Return
ELSE
li_resp = PBNVObject.sumar(liSum1,liSum2)
MessageBox("Respuesta",li_resp)
END IF
DESTROY PBNVObject
PBObject.DisconnectObject( )
END IF
DESTROY PBObject