Executa 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 .
cRet := ExecInDllRun( < nHandle >, < nOpc >, < cStrInput > )
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 |
// 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");
}
}
Atenção
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()
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