Histórico da Página
Aviso | ||
---|---|---|
| ||
Esta função abre somente DLLs assinadas com o modelo descrito no exemplo. Para integração com DLLs de terceiros é necessário a criação de uma DLL Middleware, para comunicação com a DLL de terceiro. |
Composition Setup |
---|
import.css=/download/attachments/3279126062824/newLayouttecnologia.css |
|
Pagetitle |
---|
...
|
...
Abre
...
uma
...
DLL (Dynamic-link
...
library , ou Biblioteca de vinculo dinâmica)
...
para
...
executar
...
functions
...
ou
...
procedures.
Sintaxe
...
ExecInDLLOpen ( < cDLLName> ) --> nHandle
Bloco de código | ||
---|---|---|
| ||
ExecInDllOpen( < cDLLName > )
|
Parâmetros
...
Nome | Tipo | Descrição | Obrigatório | Referência |
---|---|---|---|---|
cDLLName |
...
caractere | Indica o nome |
...
e caminho da DLL. | X |
Retorno
Nome | Tipo | Descrição |
---|---|---|
nHandle |
...
numérico | Retorna o handle de abertura da DLL. |
Observações
...
- Caso não informado o caminho, a aplicação irá procurar a DLL no mesmo diretório do Smart Client.
Exemplos
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
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");
}
}
|
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
User Function Exemplo()
Local hHdl := 0,buffer := "",xRet1 := 0
// Abre Dll
hHdl //============================================================// 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 daDLLbuffer DLL buffer:= "Executando a partir da ExecInDllRun..." xRet1 := ExecInDllRun( hHdl, 1, @buffer ) alert("Retorno da ExecInDllRun: " + xRet1) // ExeDllRun2 retorna valor numérico daDLLbuffer 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:= "Executando a partir da ExeDllRun3..."nRet3 := ExeDllRun3( hHdl, 1, @buffer ) alert("Retorno da ExeDllRun3: " + StrZero(nRet3,3)) // ---------------------------------------------------------------- // Fecha aDLLExecInDllClose DLL ExecInDllClose( hHdl )
Return
|
Preview
Exemplo da função ExecInDLLOpen()
...
Veja também
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas