TOTVSTEC

Árvore de páginas

Importante

Esta função abre somente DLLs assinadas com o modelo descrito no exemplo. Para integração com DLLs de terceiros é necessário a criação de uma DLL Middleware, para comunicação com a DLL de terceiro.

Abre uma DLL (Dynamic-link library , ou Biblioteca de vinculo dinâmica) para executar functions ou procedures.

Sintaxe

ExecInDllOpen( < cDLLName > )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

cDLLName

caractere

Indica o nome e caminho da DLL.

X


Retorno

Nome

Tipo

Descrição

nHandle

numérico

Retorna o handle de abertura da DLL.

Observações

  • Caso não informado o caminho, a aplicação irá procurar a DLL no mesmo diretório do SmartClient ou do Web-Agent (normalmente em C:\Users\usuario\AppData\Local\Programs\web-agent ou /opt/web-agent)

Exemplos

extern "C" __declspec(dllexport) void ExecInClientDLL(int ID, char * Buf, char * Buf2, int nBuf2)
{
  if(ID==1)
  {
    strcpy(Buf2,"Retorno opção 01");
  }
  else if (ID == 2)
  {
    strcpy(Buf2, "Retorno opção 02");
  }
}

User Function Exemplo()

Local hHdl := 0,buffer := "",xRet1 := 0
// Abre Dll
hHdl := ExecInDLLOpen( "TSTDLL.DLL" )

// ----------------------------------------------------------------
// Envia comando para execução, repare que estamos
// usando a opção "1" no momento de chamar a DLL.
// ----------------------------------------------------------------

// ExecInDllRun não retorna valor da DLL
buffer:= "Executando a partir da ExecInDllRun..."
xRet1 := ExecInDllRun( hHdl, 1, @buffer )
alert("Retorno da ExecInDllRun: " + xRet1)


// ExeDllRun2 retorna valor numérico da DLL
buffer:= "Executando a partir da ExeDllRun2..."
nRet2 := ExeDllRun2( hHdl, 1, @buffer )
alert("Retorno da ExeDllRun2: " + StrZero(nRet2,3))

// ----------------------------------------------------------------
// Fecha a DLL
ExecInDllClose( hHdl )

Return

Preview

Veja também


  • Sem rótulos