Page tree

Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.
Composition Setup
import.css=/download/attachments/3279126062824/newLayouttecnologia.css
Portuguese

Pagetitle
ExeDLLRun2
ExeDLLRun2

Função: ExeDLLRun2

...

Executa funções ou procedures de uma DLL (Dynamic-link library , ou Biblioteca de vinculo dinâmica).

Sintaxe

Code Block
collapsefalse
ExeDLLRun2( <
nHandle>
 nHandle >, <
nOpc>
 nOpc >, <
cBuffer> ) --> nRet
 cBuffer > )

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 DLL.

X

 

cBuffer

...

caractere

Indica o buffer, no formato caracter, que será recebido pela DLL.

X

 

 

Retorno

...

Nome

...

Tipo

Descrição

N

n

Retorno da DLL após o processamento.

Observações

  • A variável cBuffer tem limite de 20000 caracteres, para ser passada como referencia.

 

...

  • 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.

Exemplos

DLL DE EXEMPLO EM DELPHI

 

Code Block
languagecpp
themeEclipse
languagedelphi
title
Exemplo 1
linenumberstrue
library TSTDLL;
uses  Dialogs;
{$R *.RES}

function ExecInClientDLL( aFuncID: Integer;                          
 aParams: PChar;                          
 aBuff: PChar;                          
 aBuffSize: Integer ): integer; stdcall;
begin  
 if aFuncID=1 then  begin     
  // Roda opção 01     
  showmessage('Executando pela DLL - Texto via parametro: '+chr(13) + aParams);     
  result:=999;  
 end;  

 if aFuncID=2 then begin     
  // Roda opção 02     
  result:=-1;  
 end;
end;

exports ExecInClientDLL;
begin
end.
Code Block
themeEclipse
languagecpp
titleROTINA EM AdvPL PARA CHAMADA DA DLL
linenumberstrue
collapsefalse
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");
  }
}
Code Block
languagecpp
themeEclipse
titleExemplo 2
linenumberstrue
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))
 
// 
ExeDllRun3 retorna valor numérico da DLL buffer:= "Executando a partir da ExeDllRun3..." nRet3 := ExeDllRun3( hHdl, 1, @buffer ) alert("Retorno da ExeDllRun3: " + StrZero(nRet3,3)) //
----------------------------------------------------------------
// Fecha a DLL
ExecInDllClose( hHdl )

Return
 

Preview

Microsiga Protheus 8.11 , TOTVS Application Server 10 , ByYou Application Server

...

Image Added

Veja também

...

...

...