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)
{
 
  // nOPC e cStrInput recebem respectivamente o número e a string informadas 
  // como parâmetro na chamada da ExecInDLLRun() do AdvPL, e podem escrever
  // uma string de retorno no buffer cStrReturn. 
 
  if( nOpc == 1 )
  {
    strcpy(cStrReturn,"Retorno 01");
  }
  else if ( nOpc == 2 )
  {
    strcpy(cStrReturn,"Retorno 02");
  	switch (idCommand)
	{
	case COMMAND1:
	{
		strcpy(buffOutput, "Comando 1");
		return;
	}
	case COMMAND2:
	{
		strcpy(buffOutput, "Comando 2");
		return;
	}

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

#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, cParmbuffer := "",xRet1 cRet:= 
0
// Abre a DLL para utilização Dll
hHdl := ExecInDLLOpen( "TSTDLLDllTeste.DLLdll" )
 
// Nesta chamada, 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  := ExecInDllRun( hHdl, nOpc, cParm )

// Mostra o retorno da chamada da DLL 
alert("Retorno da ExecInDllRun: " + cRet)

// fecha a 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 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, 3, @buffer )
MessageBox("Retorno da ExeDllRun: " + xRet3, "ExeDllRun", MB_ICONEXCLAMATION)

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