Histórico da Página

// Fonte de exemplo c++ 
// Deve ser compilado gerando uma DLL 32 bits, chamada "tstdll.dll"
// para ser usada no exemplo em AdvPL. Esta DLL deve ser copiada para a pasta do SmartClient.EXE
 
 
extern "C" __declspec(dllexport) void ExecInClientDLL( int nOPCidCommand, char * cStrInputbuffParam, char * cStrReturnbuffOutput, int nRetMaxSize buffLen)
{
 
	switch  if( nOpc == 1 )
  {
    strcpy(cStrReturn,"Retorno 01");
  }
  else if ( nOpc == 2 )
  {
    strcpy(cStrReturn,"Retorno 02");
  }
}
(idCommand)
	{
	case COMMAND1:
	{
		strcpy(buffOutput, "Comando 1");
		return;
	}
	case COMMAND2:
	{
		strcpy(buffOutput, "Comando 2");
		return;
	}

	default:
		strcpy(buffOutput, "Comando inválido");
		return;
	}
}

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

Quando a função ExecInClientDLL é chamada através da função AdvPL ExecInDLLRun(), o buffer de retorno suporta apenas 255 bytes. Caso seja necessário um retorno maior, utilize a função ExeDLLRun2()

#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 ExemploDllTeste()
 
Local hHdl := 0,buffer cParm := "", cRet xRet1 := 0
// Abre Dll
hHdl := ExecInDLLOpen( "TSTDLLDllTeste.DLLdll" )
 
// ----------------------------------------------------------------
// Envia Nestacomando para chamadaexecução, repare que estamos
// usando a função ExecInClientDLL (dentro da DLL) receberá 1 em nOpc, e a string "Teste 1" em cStrInput.
// Será retornado na variável AdvPL cRet o conteúdo "Retorno 01", escrito pela DLL no buffer de retorno cStrReturn
cParm := "Teste 1"
nOpc := 1
cRet  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 )
MessageBox("Retorno da ExeDllRun: " + xRet1, "ExeDllRun", MB_ICONEXCLAMATION)
  
// ExecInDllRun retorna valor numérico da DLL
buffer:= "Executando a partir da ExeDllRun..."
xRet2 := ExecInDllRun( hHdl, 2, @buffer )
MessageBox("Retorno da ExeDllRun: " + xRet2, "ExeDllRun", MB_ICONEXCLAMATION)

// ExecInDllRun retorna valor numérico da DLL
buffer:= "Executando a partir da ExeDllRun..."
xRet3 := ExecInDllRun( hHdl, nOpc3, cParm@buffer )

alertMessageBox("Retorno da ExecInDllRunExeDllRun: " + cRet)
xRet3, "ExeDllRun", MB_ICONEXCLAMATION)

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