#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#define EXPORT __declspec(dllexport)

EXPORT void* getBinary(int * nSize)
{
  char* p = (char *) malloc(64);
  int i = 0;

  p[i++] = 'T';
  p[i++] = 'L';
  p[i++] = 'P';
  p[i++] = 'P';
  
  p[i++] = '\0'; // um terminador zero no meio

  p[i++] = 'D';
  p[i++] = 'Y';
  p[i++] = 'N';
  p[i++] = 'C';
  p[i++] = 'A';
  p[i++] = 'L';
  p[i++] = 'L';

  p[i++] = '\0'; // um terminador zero no final

  *nSize = i;

  return p;
}

#include "tlpp-core.th"  

Function U_DynCall()
  Local oDll as Object       // objeto de carga da dll
  Local oPtr as Object       // abstração para um ponteiro da dll
  Local nLen as Numeric      // vai guardar o tamanho do buffer
  Local cValue as Character  // armazenar um buffer que vem da dll
  
  If (IsSrvUnix())
    oDll := tRunDll():New("dllc.so")
  Else
    oDll := tRunDll():New("dllc.dll")
  EndIf

  // Obtendo o ponteiro do buffer e o seu tamanho
  oPtr := oDll:NewPointer()
  oDll:CallFunction("getBinary", "PI", oPtr, @nLen)       

  // Copiando o buffer
  oDll:MemCpy(cValue, oPtr, nLen)
  Conout(cValue)
  
  // terminou? vamos sanitizar o uso da dll
  oDll:Free()
  
Return