Histórico da Página

portuguese

Composition Setup
import.css=/download/attachments/3279126062824/newLayouttecnologia.css

Pagetitle

	ExeDLLRun3
	ExeDLLRun3

Colapse ALL

Expand ALL

Função: ExeDLLRun3

Executa functions ou procedures de uma determinada DLL - Dynamic-link library (Biblioteca de ligação dinâmica).

Sintaxe

ExeDLLRun3 ( < nHandle>, < nOpc>, < cBuffer> ) --> nRet

...

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 .

Sintaxe

Bloco de código

collapse	false

ExeDLLRun3( < 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

...

Retorno

...

Observações

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
int	buffParamLen	Tamanho do buffer de entrada
char*	buffOutput	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*	buffOutputLen	Tamanho do buffer de saída.

Exemplos

Bloco de código

language	cpp
theme	Eclipse
linenumbers	true
collapse	false

extern "C" __declspec(dllexport) int ExecInClientDLL(int idCommand, char * buffParam, int buffParamLen, char * buffOutput, int * buffOutputLen)
{
	switch (idCommand)
	{
	case COMMAND1:
	{
		strcpy(buffOutput, "Comando 100");
		*buffOutputLen = strlen(buffOutput);
		return RETURN_COMMAND1;
	}
	case COMMAND2:
	{
		strcpy(buffOutput, "Comando 2000");
		*buffOutputLen = strlen(buffOutput);
		return RETURN_COMMAND2;
	}

	default:
		strcpy(buffOutput, "Comando inválido");
		*buffOutputLen = strlen(buffOutput);
		return 0;
	}
}

Nota

icon	true
title	Atenção

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

Bloco de código

language	cpp
theme	Eclipse
linenumbers	true
collapse	false

#define MB_OK

Exemplos

//============================================================// DLL DE EXEMPLO EM DELPHI//============================================================library TSTDLL;uses Dialogs;{$R *.RES}function ExecInClientDLL( aFuncID: Integer; aParams: PChar;

                   0
#define MB_OKCANCEL

aBuff:

PChar;

          1
#define MB_YESNO

aBuffSize:

Integer

):

integer;

stdcall;begin

if aFuncID=1 then begin

4
#define MB_ICONHAND

//

Roda

opção

01

showmessage('Executando pela DLL - Texto via parametro: '+chr(13) + aParams);

16
#define MB_ICONQUESTION

result:=999; end; if aFuncID=2 then begin

32
#define MB_ICONEXCLAMATION

// Roda opção 02

48
#define MB_ICONASTERISK

result:=-1;

end;end;exports

ExecInClientDLL;beginend.//============================================================//

ROTINA

EM AdvPL PARA CHAMADA DA DLL//============================================================

64

User Function DllTeste()
 
Local hHdl := 0,buffer := "",xRet1 := 0
// Abre

DllhHdl

Dll
hHdl := ExecInDLLOpen( "

TSTDLL

DllTeste.

DLL

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

DLLbuffer

DLL
buffer:= "Executando a partir da

ExecInDllRun

ExecInDllRun2..."
xRet1 :=

ExecInDllRun

ExeDllRun3( hHdl, 1, @buffer )

alert


MessageBox("Retorno da

ExecInDllRun

ExeDllRun3: " + Alltrim(Str(xRet1)) + " - " + buffer, "ExeDllRun3", MB_ICONEXCLAMATION)
  
//

ExeDllRun2

ExeDllRun3 retorna valor numérico da

DLLbuffer

DLL
buffer:= "Executando a partir da

ExeDllRun2

ExeDllRun3..."

nRet2


xRet2 :=

ExeDllRun2

ExeDllRun3( hHdl,

1

2, @buffer )

alert


MessageBox("Retorno da

ExeDllRun2

ExeDllRun3: " +

StrZero(nRet2,3

Alltrim(Str(xRet2)) + " - " + buffer, "ExeDllRun3", MB_ICONEXCLAMATION)

// ExeDllRun3 retorna valor numérico da

DLLbuffer

DLL
buffer:= "Executando a partir da ExeDllRun3..."

nRet3


xRet3 := ExeDllRun3( hHdl,

1

3, @buffer )

alert


MessageBox("Retorno da ExeDllRun3: " +

StrZero(nRet3,3

Alltrim(Str(xRet3)) + " - " + buffer, "ExeDllRun3", MB_ICONEXCLAMATION)

// ----------------------------------------------------------------
// Fecha a

DLLExecInDllClose

DLL
ExecInDllClose( hHdl )

Abrangência

Microsiga Protheus 8.11 , TOTVS Application Server 10 , ByYou Application Server

Veja Também

ExecInDLLOpen


 
Return

Preview

Image Added

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão Atual

Chave

Função: ExeDLLRun3

Executa functions ou procedures de uma determinada DLL - Dynamic-link library (Biblioteca de ligação dinâmica).

Sintaxe

Parâmetros

Observações

Exemplos

Preview

Veja também