Acceder a métodos de una DLL desde VFP9
Publicado por Mina L (5 intervenciones) el 31/08/2019 20:30:39
Buen día
He estado tratando de acceder a una función de una dll desde VFP9,
La dll se llama RMG_Sdkx86.dll
Tiene una clase llamada AdminpaqSDK
y esa clase a su vez tiene varias funciones entre ellas la función: Establece_Empresa(string)
la cuál solicita un parámetro como cadena
Nota: La dll, en este caso no es necesario registrarla.
Tengo el siguiente código:
*--------
La línea ------- lobj= NEWOBJECT("AdminpaqSDK", "RMG_Sdkx86.dll")
la pasa sin problema, pero...
al llamar lobj.Establece_Empresa(lRutaEmpresa)
me envía el siguiente mensaje:
Property ESTABLECE_EMPRESA is not found
la función "Establece empresa" sí existe ya que se hizo una prueba en Visual Basic. net y funciona perfectamente, desconozco que me hace falta en VFP9
Si alguien puede ayudarme de favor. Gracias
He estado tratando de acceder a una función de una dll desde VFP9,
La dll se llama RMG_Sdkx86.dll
Tiene una clase llamada AdminpaqSDK
y esa clase a su vez tiene varias funciones entre ellas la función: Establece_Empresa(string)
la cuál solicita un parámetro como cadena
Nota: La dll, en este caso no es necesario registrarla.
Tengo el siguiente código:
1
2
3
4
5
6
7
8
9
10
11
TRY
lRutaEmpresa="c:\ruta_de_la_empresa\"
lobj= NEWOBJECT("AdminpaqSDK", "RMG_Sdkx86.dll")
lobj.Establece_Empresa(lRutaEmpresa)
CATCH TO loError
lcErr = [Error: ] + STR(loError.ERRORNO) + CHR(13) + ;
[Linea: ] + STR(loError.LINENO) + CHR(13) + ;
[Mensaje: ] + loError.MESSAGE
MESSAGEBOX("ERROR "+CHR(13)+lcErr,0+16+256,"")
ENDTRY
*--------
La línea ------- lobj= NEWOBJECT("AdminpaqSDK", "RMG_Sdkx86.dll")
la pasa sin problema, pero...
al llamar lobj.Establece_Empresa(lRutaEmpresa)
me envía el siguiente mensaje:
Property ESTABLECE_EMPRESA is not found
la función "Establece empresa" sí existe ya que se hizo una prueba en Visual Basic. net y funciona perfectamente, desconozco que me hace falta en VFP9
Si alguien puede ayudarme de favor. Gracias
Valora esta pregunta
0
