Page tree

Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

Portuguese

Pagetitle
ExecInDLLOpen
ExecInDLLOpen

Função: ExecInDLLOpen

Abre uma determinada DLL - Dynamic-link library (Biblioteca de ligação dinâmica) para executar functions ou procedures.

ExecInDLLOpen ( < cDLLName> ) --> nHandle

 

NomeTipoDescriçãoObrigatórioReferência
cDLLNameCaracterIndica o nome do arquivo da DLL.X 

 

nHandle
    (numerico)
  • Retorna o handle de abertura da DLL.

A DLL que será manipulada deve estar no mesmo diretório do Smart Client.

//============================================================// DLL DE EXEMPLO EM DELPHI//============================================================library TSTDLL;uses Dialogs;

 

Code Block
themeEclipse
languagedelphi
titleDLL de exemplo em Delphi
linenumberstrue
library DLLProtheus;
uses sysutils;
{$R *.RES}

function ExecInClientDLL( 
aFuncID
ID: Integer; aPar: PChar; Buf: PChar; nBuf: Integer ): integer; stdcall;
begin
    
aParams: PChar
result := -1;


    if (ID = 1) then begin
      StrPCopy(Buf, PChar('Retorno 
aBuff: PChar
opção 01'));
      result := 200;
    end else if (ID 
aBuffSize: Integer ): integer; stdcall;begin if aFuncID=1 then
= 2)then begin
    
//
 
Roda
 
opção 01 showmessage('Executando pela DLL - Texto via parametro: '+chr(13) + aParams
StrPCopy(Buf, PChar('Retorno opção 02'));
      result :=
999;
 
end
300;
 
if
 
aFuncID=2
 
then
 
begin
end;


end;

//

Roda opção 02 result:=-1
exports ExecInClientDLL;
begin
end
;end;exports ExecInClientDLL;beginend.//============================================================// ROTINA EM AdvPL PARA CHAMADA DA DLL//============================================================// Abre DllhHdl
.
Code Block
themeEclipse
languagecpp
titleRotina de exemplo em AdvPL
linenumberstrue
// 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 
DLLbuffer
DLL
buffer:= "Executando a partir da ExecInDllRun..."
xRet1 := ExecInDllRun( hHdl, 1, @buffer )
alert("Retorno da ExecInDllRun: " + xRet1)


// ExeDllRun2 retorna valor numérico da 
DLLbuffer
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 
DLLbuffer
DLL
buffer:= "Executando a partir da ExeDllRun3..."
nRet3 := ExeDllRun3( hHdl, 1, @buffer )
alert("Retorno da ExeDllRun3: " + StrZero(nRet3,3))

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

 

Exemplo da função ExecInDLLOpen()
Microsiga Protheus 8.11 , TOTVS Application Server 10 , ByYou Application Server