Histórico da Página
...
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 .
...
- A variável cBuffer tem limite de 512.000 caracteres, para ser passada como referencia.
- O nome da função na DLL obrigatoriamente precisa se chamar ExecInClientDLL, lembrando que a DLL pode conter outras funções auxiliares, mas o ponto de entrada deverá ser esse nome. Ela precisa conter os seguintes parametros:
| Tipo Parametro | Nome Parametro | Proósito |
|---|---|---|
| int | idCommand | Número para ser utilizado como tipo de comando a ser identificado do que ser executado na DLL |
| char* | buffParam | Buffer contendo informações a serem passadas para a DLL |
| char* | bufOutput | Buffer contendo algum possível retorno de dados. Caso a DLL não popule algum conteúdo nesse parametro, o mesmo irá ficar sendo vazio, sendo transmitido ao parametro do cBuffer do ADVPL. |
| int | buffLen | Tamanho dos buffers, tanto de entrada quanto de saída |
Exemplos
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
#define COMMAND1 1 #define COMMAND2 2 #define RETURN_COMMAND1 100 #define RETURN_COMMAND2 200 extern "C" __declspec(dllexport) voidint ExecInClientDLL(int idCommand, char * buffParam, char * buffOutput, int buffLen) { switch (idCommand) { case COMMAND1: { strcpy(buffOutput, "Comando 1"); return RETURN_COMMAND1; } case COMMAND2: { strcpy(buffOutput, "Comando 2"); return RETURN_COMMAND2; } default: strcpy(buffOutput, "Comando inválido"); return 0; } } |
...
| 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 DllTeste() Local hHdl := 0,buffer := "",xRet1 := 0 // Abre Dll hHdl := ExecInDLLOpen( "DllTeste.dll" ) // ---------------------------------------------------------------- // Envia comando para execução, repare que estamos // usando a opção "1" e "2" no momento de chamar a DLL. // ---------------------------------------------------------------- // Comando 1ExecInDllRun não retorna valor da DLL buffer:= "Executando a partir da ExecInDllRun2..." xRet1 := ExeDllRun2( hHdl, 1, @buffer ) alertMessageBox("Retorno da ExeDllRun2: " + Alltrim(Str(xRet1)) + " - " + buffer, "ExeDllRun2", MB_ICONEXCLAMATION) // Comando 2 ExeDllRun2 retorna valor numérico da DLL buffer:= "Executando a partir da ExeDllRun2..." xRet2 := ExeDllRun2( hHdl, 2, @buffer ) alertMessageBox("Retorno da ExeDllRun2: " + Alltrim(Str(xRet2)) + " - " + buffer, "ExeDllRun2", MB_ICONEXCLAMATION) // Comando invalido ExeDllRun2 retorna valor numérico da DLL buffer:= "Executando a partir da ExeDllRun2..." xRet3 := ExeDllRun2( hHdl, 3, @buffer ) alertMessageBox("Retorno da ExeDllRun2: " + Alltrim(Str(xRet3)) + " - " + buffer, "ExeDllRun2", MB_ICONEXCLAMATION) // ---------------------------------------------------------------- // Fecha a DLL ExecInDllClose( hHdl ) Return |
Preview
Veja também
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas