Histórico da Página
| Composition Setup |
|---|
import.css=/download/attachments/3279126062824/newLayouttecnologia.css |
| Portuguese |
| Pagetitle |
|---|
...
|
...
|
Executa
...
funções ou
...
procedures
...
de
...
uma
...
DLL (Dynamic-link
...
library , ou Biblioteca de vinculo dinâmica).
Sintaxe
| Bloco de código | ||
|---|---|---|
| ||
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
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
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;
}
|
| Nota | ||||
|---|---|---|---|---|
| ||||
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. |
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
User Function Exemplo()
Local hHdl := 0,buffer := "",xRet1 := 0
// Abre Dll
hHdl := ExecInDLLOpen( "TSTDLL.DLL" )
//============================================================// 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)) // ExeDllRun3 retorna valor numérico da DLLbufferDLL 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 aDLLExecInDllClose DLL ExecInDllClose( hHdl ) Return Microsiga Protheus 8.11 , TOTVS Application Server 10 , ByYou Application Server |
Preview
Veja também
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas