Execute a function of PowerBASIC from PureBASIC

[Israel Vega]

PowerBasic code of DLL:

Code Select Expand


#COMPILE DLL

FUNCTION MENSAJE() EXPORT AS WSTRING
  FUNCTION="Hola Israel"
END FUNCTION
                         


PureBasic code with String function reading how UNICODE:

Code Select Expand


  If OpenLibrary(0, "C:\PBWIN10\PRUEBAS\PRUEBAPB.dll")
    A$ = PeekS(CallFunction(0, "MENSAJE"),#PB_Unicode)
    MessageRequester("RESULTADO",A$,0)
    CloseLibrary(0)
  EndIf


For return a LONG change to PeekL instead of PeekS...also PeekF for float,  PeekQ for Quad...