TOTVSTEC

Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

« Anterior Versão 17 Próxima »

Executa uma função com nome pré-determinado em uma DLL. 

O nome da função que irá ser chamada é : ExecInClientDLL .

Sintaxe

ExeDLLRun2( < nHandle >, < nOpc >, < cBuffer > )

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


cBuffer

caractere

Indica o buffer, no formato caracter, que será recebido pela DLL. 

Esse mesmo parametro será utilizado tanto para input de dados na DLL

quanto para output de dados.

X


Observações

  • A variável cBuffer tem limite de 512.000 caracteres, para ser passada como referencia.

Exemplos

#define COMMAND1		1
#define COMMAND2		2

#define RETURN_COMMAND1	100
#define RETURN_COMMAND2	200

extern "C" __declspec(dllexport) void 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;
	}
}

Atenção

Como pode ser observado, a dll desenvolvida para ser executada com a função ExeDLLRun2 tem uma assinatura diferente da utilizada em ExeDLLRun3, por isso não são compativeis e podem causar erros fatais na execução.

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.
// ----------------------------------------------------------------
 
// Comando 1
buffer:= "Executando a partir da ExecInDllRun2..."
xRet1 := ExeDllRun2( hHdl, 1, @buffer )
alert("Retorno da ExeDllRun2: " + Alltrim(Str(xRet1)) + " - " + buffer)
 
 
// Comando 2
buffer:= "Executando a partir da ExeDllRun2..."
xRet2 := ExeDllRun2( hHdl, 2, @buffer )
alert("Retorno da ExeDllRun2: " + Alltrim(Str(xRet2)) + " - " + buffer)

// Comando invalido
buffer:= "Executando a partir da ExeDllRun2..."
xRet3 := ExeDllRun2( hHdl, 3, @buffer )
alert("Retorno da ExeDllRun2: " + Alltrim(Str(xRet3)) + " - " + buffer)
 
// ----------------------------------------------------------------
// Fecha a DLL
ExecInDllClose( hHdl )
 
Return

Preview

Veja também


  • Sem rótulos