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

language	cpp
theme	Eclipse
linenumbers	true
collapse	false

#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

language	cpp
theme	Eclipse
linenumbers	true
collapse	false

#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" no momento de chamar a DLL.
// ----------------------------------------------------------------
 
// ExecInDllRun não retorna valor da DLL
buffer:= "Executando a partir da ExecInDllRunExecInDllRun2..."
xRet1 := ExeDllRun2( hHdl, 1, @buffer )
alertMessageBox("Retorno da ExeDllRun2: " + Alltrim(Str(xRet1)) + " - " + buffer)
 
 , "ExeDllRun2", MB_ICONEXCLAMATION)

// 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)

// ExeDllRun2 retorna valor numérico da DLL
buffer:= "Executando a partir da ExeDllRun2..."
xRet3 := ExeDllRun2( hHdl, 3, @buffer )
MessageBox("Retorno da ExeDllRun2: " + Alltrim(Str(xRet3)) + " - " + buffer, "ExeDllRun2", MB_ICONEXCLAMATION)

// ----------------------------------------------------------------
// Fecha a DLL
ExecInDllClose( hHdl )
 
Return

Preview

Image Added

Image AddedImage Removed

Veja também

...

Árvore de páginas

Versões comparadas

Versão antiga 16

Nova versão Atual

Chave

Exemplos

Preview

Veja também