Histórico da Página
...
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
extern "C" __declspec(dllexport) intvoid ExecInClientDLL(int ID, char * Buf, int nBuf, char * Buf2, int nBuf2) { if(ID==1) { strcpy(Buf2,"Retorno opção 01"); return 1; } else if (ID == 2) { strcpy(Buf2, "Retorno opção 02"); return 2; } return -1; } |
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
User Function Exemplo()
Local hHdl := 0,buffer := "",xRet1 := 0
// Abre Dll
hHdl := ExecInDLLOpen( "TSTDLL.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 )
alert("Retorno da ExecInDllRun: " + xRet1)
// ExeDllRun2 retorna valor numérico da DLL
buffer:= "Executando a partir da ExeDllRun2..."
nRet2 := ExeDllRun2( hHdl, 1, @buffer )
alert("Retorno da ExeDllRun2: " + StrZero(nRet2,3))
// ----------------------------------------------------------------
// Fecha a DLL
ExecInDllClose( hHdl )
Return
|
...
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas