Prezado TOTVER, no próximo Sábado (19/10) das 14h às 20h faremos uma bateria de testes para validar os planos de contingência do JIRA, TDN e TFS. Com isso, durante esse período poderão ocorrer algumas instabilidades no acesso e navegação às ferramentas citadas.
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.
Abre uma DLL (Dynamic-link library , ou Biblioteca de vinculo dinâmica) para executar functions ou procedures.
Sintaxe
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.
User Function Exemplo()
Local hHdl := 0,buffer := "",xRet1 := 0
// 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 DLL
buffer:= "Executando a partir da ExecInDllRun..."
xRet1 := ExecInDllRun( hHdl, 1, @buffer )
alert("Retorno da ExecInDllRun: " + xRet1)
// ExeDllRun2 retorna valor numérico da DLL
buffer:= "Executando a partir da ExeDllRun2..."
nRet2 := ExeDllRun2( hHdl, 1, @buffer )
alert("Retorno da ExeDllRun2: " + StrZero(nRet2,3))
// ----------------------------------------------------------------
// Fecha a DLL
ExecInDllClose( hHdl )
Return