Histórico da Página
...
| Pagetitle | ||||
|---|---|---|---|---|
|
Executa funções ou procedures de uma função com nome pré-determinado em uma DLL (Dynamic-link library , ou Biblioteca de vinculo dinâmica).
O nome da função que irá ser chamada é : ExecInClientDLL .
Sintaxe
| Bloco de código | ||
|---|---|---|
| ||
cRet := ExecInDllRun( < nHandle >, < nOpc >, < cBuffercStrInput > ) |
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 |
cStrInput | caractere | Indica o buffer, no formato caracter, que será recebido pela DLL. |
X
Observações
...
Esse mesmo parametro será utilizado apenas para input de dados na DLL. Caso seja necessário informar um parâmetro maior, utilize a função ExeDLLRun2. |
...
X |
Retorno
O retorno da função será um buffer no formato caracter de até 255 bytes.
Exemplo (DLL)
...
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
// Fonte de exemplo c++ // Deve ser compilado gerando uma DLL 32 bits, chamada "tstdll.dll" // para ser usada no exemplo em AdvPL. Esta DLL deve ser copiada para a pasta do SmartClient.EXE extern "C" __declspec(dllexport) void ExecInClientDLL(int IDidCommand, char * BufbuffParam, char * Buf2buffOutput, int nBuf2buffLen) { switch if(ID==1) { strcpy(Buf2,"Retorno opção 01"); } else if (ID == 2) { strcpy(Buf2, "Retorno opção 02"); } } (idCommand) { case COMMAND1: { strcpy(buffOutput, "Comando 1"); return; } case COMMAND2: { strcpy(buffOutput, "Comando 2"); return; } default: strcpy(buffOutput, "Comando inválido"); return; } } |
Observações
- A função executada dentro da DLL pode escrever um retorno em string de até 255 bytes. Caso seja necessário um retorno maior, utilize a função ExeDLLRun2.
- Para o nome da função na DLL, é obrigatorio utilizar ExecInClientDLL, com a declaração/assinatura abaixo especificada, para o correto funcionamento da implementação.
| Nota | ||||
|---|---|---|---|---|
| ||||
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 compatíveis e podem causar erros fatais na execução. Quando a função ExecInClientDLL é chamada através da função AdvPL ExecInDLLRun(), o buffer de retorno suporta apenas 255 bytes. Caso seja necessário um retorno maior, utilize a função ExeDLLRun2() |
Exemplo (AdvPL)
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
#define MB_OK 0 #define MB_OKCANCEL 1 #define MB_YESNO 4 #define MB_ICONHAND 16 #define MB_ICONQUESTION 32 #define MB_ICONEXCLAMATION 48 #define MB_ICONASTERISK 64 User Function ExemploDllTeste() Local hHdl := 0,buffer := "",xRet1 := 0 // Abre Dll hHdl := ExecInDLLOpen( "TSTDLLDllTeste.DLLdll" ) // ---------------------------------------------------------------- // 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, @bufferbuffer ) alertMessageBox("Retorno da ExecInDllRunExeDllRun: " + xRet1, "ExeDllRun", MB_ICONEXCLAMATION) // ExeDllRun2ExecInDllRun retorna valor numérico da DLL buffer:= "Executando a partir da ExeDllRun2ExeDllRun..." nRet2xRet2 := ExeDllRun2ExecInDllRun( hHdl, 12, @buffer ) alertMessageBox("Retorno da ExeDllRun2ExeDllRun: " + StrZero(nRet2,3) xRet2, "ExeDllRun", MB_ICONEXCLAMATION) // ExecInDllRun retorna valor numérico da DLL buffer:= "Executando a partir da ExeDllRun..." xRet3 := ExecInDllRun( hHdl, 3, @buffer ) MessageBox("Retorno da ExeDllRun: " + xRet3, "ExeDllRun", MB_ICONEXCLAMATION) // ---------------------------------------------------------------- // Fecha a DLL ExecInDllClose( hHdl ) Return |
Preview
Veja também
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas