TOTVSTEC

Árvore de páginas

TLPP - LANGUAGE

  • GetVar(cVarName, cSignature, xRet)
    • objetivo: obter o conteúdo de uma variável global da DLL.
    • cVarName: o nome da variável da DLL.
    • cSignature: o tipo da variável (veja DynCall - Assinatura da chamada).
    • xRet: uma variável para guardar o conteúdo obtido.
    • retorno: lógico
      • .T.  execução com sucesso
      • .F.  execução com erro


Esse exemplo mostra um código TLPP consumindo o valor de uma variável global de uma DLL.

Exemplo: lado da biblioteca
#include <stdio.h>
#include <stdlib.h>

#define EXPORT __declspec(dllexport)

EXPORT double nGlobal = 5.29;
Exemplo: lado TLPP
#include "tlpp-core.th"

Function U_DynCall()
  Local oDll as Object
  Local nValue as Numeric
  
  If (IsSrvUnix())
    oDll := tRunDll():New("./dllc.so")
  Else
    oDll := tRunDll():New("dllc.dll")
  EndIf

  oDll:GetVar("nGlobal", "D", nValue)
  Conout(nValue) // espera-se 5.29

  oDll:Free()
  
Return
  • Sem rótulos