Histórico da Página
...
Pagetitle | ||||
---|---|---|---|---|
|
Executa uma função com nome pré-definida de determinado em uma DLL (Dynamic-link library , ou Biblioteca de vinculo dinâmica), previamente carregada no TOTVS|SmartClient através da função ExecInDLLOpen().
O nome da função que irá ser chamada é : ExecInClientDLL .
Sintaxe
Bloco de código | ||
---|---|---|
| ||
cRet := ExecInDllRun( < nHandle >, < nOpc >, < cStrInput > ) |
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 |
. 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 |
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 nOPC, char * cStrInput, char * cStrReturn, int nRetMaxSize ) { // nOPC e cStrInput recebem respectivamente o número e a string informadas // como parâmetro na chamada da ExecInDLLRun() do AdvPL, e podem escrever // uma string de retorno no buffer cStrReturn. if( nOpc == 1 ) { strcpy(cStrReturn,"Retorno 01"); } else if ( nOpc == 2 ) { strcpy(cStrReturn,"Retorno 02"); } } |
...
- A função executada dentro da DLL pode escrever um retorno em string, no buffer cStrReturn, 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 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 | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
User Function Exemplo() Local hHdl := 0, cParm := "", cRet // Abre a DLL para utilização hHdl := ExecInDLLOpen( "TSTDLL.DLL" ) // Nesta chamada, a função ExecInClientDLL (dentro da DLL) receberá 1 em nOpc, e a string "Teste 1" em cStrInput. // Será retornado na variável AdvPL cRet o conteúdo "Retorno 01", escrito pela DLL no buffer de retorno cStrReturn cParm := "Teste 1" nOpc := 1 cRet := ExecInDllRun( hHdl, nOpc, cParm ) // Mostra o retorno da chamada da DLL alert("Retorno da ExecInDllRun: " + cRet) // fecha a DLL ExecInDllClose( hHdl ) Return |
...