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
ExeDLLRun3
ExeDLLRun3

Função: ExeDLLRun3

...

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

Sintaxe

Code Block
collapsefalse
ExeDLLRun3( <
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

    nRet(numerico)
  • Retorno será vindo da DLL após o processamento.

 

Observações

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

Exemplos

//============================================================// DLL DE EXEMPLO EM DELPHI//============================================================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;beginend.//============================================================// ROTINA EM AdvPL PARA CHAMADA DA DLL//============================================================// Abre DllhHdl := 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 DLLbuffer:= "Executando a partir da ExecInDllRun..."xRet1 := ExecInDllRun( hHdl, 1, @buffer ) alert("Retorno da ExecInDllRun: " + xRet1)// ExeDllRun2 retorna valor numérico da DLLbuffer:= "Executando a partir da ExeDllRun2..."nRet2 := ExeDllRun2( hHdl, 1, @buffer ) alert("Retorno da ExeDllRun2: " + StrZero(nRet2,3))
Code Block
languagecpp
themeEclipse
linenumberstrue
collapsefalse
extern "C" __declspec(dllexport) int ExecInClientDLL(int ID, char * Buf, int nBuf, char * Buf2, int nBuf2)
{
  if(ID==1)
  {
    strcpy(Buf2,"Retorno opção 01");
    return 1;
  }
  else if (ID == 2)
  {
    strcpy(Buf2, "Retorno opção 02");
    return 2;
  }
  return -1;
}
Note
icontrue
titleAtenção

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

Code Block
languagecpp
themeEclipse
linenumberstrue
collapsefalse
User Function Exemplo()

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

// ExeDllRun3 retorna valor numérico da 
DLLbuffer
DLL
buffer:= "Executando a partir da ExeDllRun3..."
nRet3 := ExeDllRun3( hHdl, 1, @buffer )
alert
msgalert("Retorno da ExeDllRun3: " + StrZero(nRet3,3)
)
 + "; Conteudo do buffer por parametro: " + buffer)

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

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

Preview

Image Added

Veja também