TOTVSTEC

Árvore de páginas

Versões comparadas

Versão antiga 4

changes.mady.by.user Oberdan de Almeida Santos

Gravado em

comparado com

Nova versão 5

changes.mady.by.user Julio Wittwer

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Correção e revisão da documentação e exemplo, ênfase no comportamento e limites

...

Pagetitle
ExecInDllRun
ExecInDllRun

Executa funções ou procedures uma função pré-definida de uma DLL (Dynamic-link library , ou Biblioteca de vinculo dinâmica).), previamente carregada no TOTVS|SmartClient através da função ExecInDLLOpen()

Sintaxe

Bloco de código
collapsefalse
cRet := ExecInDllRun( < nHandle >, < nOpc >, < cBuffercStrInput > )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

nHandle

caractere

Indica o handle da DLL obtida através da função ExecInDLLOpen().

X

 

nOpc

numérico

Indica a opção que será executada pela Informa um parâmetro numérico inteiro para a função pré-definida na DLL.

X

 

cBuffercStrInput

caractere

Indica o buffer, no formato caracterInforma uma string, limitado a 255 bytes, que será recebido recebida pela DLL como um ponteiro de caracteres ou char * . Caso seja necessário informar um parâmetro maior, utilize a função ExeDLLRun2.

X

 

Observações

  • Esta função retorna o valor da DLL com limite de 259 caracteres, para ser passada como referencia. Caso necessite um tamanho A função executada dentro da DLL pode escrever um retorno em string, no buffer cStrReturn, de até 255 bytes. Caso seja necessário um retorno maior, utilize a função ExeDLLRun2.
  • Para o nome da função na DLL, é obrigatorio utilizar ExecInClientDLL, e manter essa assinatura com a declaração/assinatura abaixo especificada, para o correto funcionamento dos parametrosda implementação.

Exemplos

Bloco de código
languagecpp
themeEclipse
linenumberstrue
collapsefalse
extern "C" __declspec(dllexport) void ExecInClientDLL( int IDnOPC, char * BufcStrInput, char * Buf2cStrReturn, int nRetMaxSize nBuf2)
{
  if(ID nOpc == 1 )
  {
    strcpy(Buf2cStrReturn,"Retorno opção 01");
  }
  else if (ID nOpc == 2 )
  {
    strcpy(Buf2cStrReturn, "Retorno opção 02");
  }
}
Nota
icontrue
titleAtenção

Como pode ser observado, a dll desenvolvida para ser executada com a função ExecinDLLRun tem uma assinatura diferente da utilizada em ExeDLLRun3, por isso não são compativeis e podem causar erros fatais na execução.

Quando a função ExecInClientDLL é chamada através da função AdvPL ExecInDLLRun(), o buffer de retorno suporta apenas 255 bytes. Caso seja necessário um retorno maior, utilize a função ExeDLLRun2()

Bloco de código
languagecpp
themeEclipse
linenumberstrue
collapsefalse
User Function Exemplo()

Local hHdl := 0,buffer cParm := "",xRet1 :=cRet 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 )
 Nesta chamada, a função ExecInClientDLL (dentro da DLL) receberá 1 em nOpc, e a string "Teste 1" em cStrInput.
// Será retornado na variável AdvPL cRet o conteúdo "Retorno 01", escrito pela DLL no buffer de retorno cStrReturn
cParm := "Teste 1"
nOpc := 1
cRet  := ExecInDllRun( hHdl, nOpc, cParm )

alert("Retorno da ExeDllRun2ExecInDllRun: " + StrZero(nRet2,3))

// ----------------------------------------------------------------
// Fecha a DLLcRet)

ExecInDllClose( hHdl )

Return

Preview

...

Veja também