Skip to content

Carregar DLL Tef Elgin Hub de forma dinâmica. #2

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
RaulWW wants to merge 1 commit into
base: master
Choose a base branch
from
Open

Carregar DLL Tef Elgin Hub de forma dinâmica. #2

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
312 changes: 296 additions & 16 deletions Exemplos TEF/Exemplos TEF DLL - ATIVO/Delphi/ApiTefElgin/FuncoesDLL.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,31 +1,311 @@
unit FuncoesDLL;

// define interface com funções exportadas da DLL
unit FuncoesDLL;

interface

function SetClientTCP(ip:PAnsiChar; porta:Integer):PAnsiChar;stdcall; external 'E1_Tef01.dll';
uses
Winapi.Windows,
System.SysUtils,
System.IOUtils,
System.Generics.Collections;

function ConfigurarDadosPDV(textoPinpad:PAnsiChar; versaoAC:PAnsiChar; nomeEstabelecimento:PAnsiChar; loja:PAnsiChar; identificadorPontoCaptura:PAnsiChar):PAnsiChar; stdcall; external 'E1_Tef01.dll';
type
TSetClientTCP = function(ip: PAnsiChar; porta: Integer): PAnsiChar; stdcall;
TConfigurarDadosPDV = function(textoPinpad, versaoAC, nomeEstabelecimento, loja, identificadorPontoCaptura: PAnsiChar): PAnsiChar; stdcall;
TIniciarOperacaoTEF = function(dadosCaptura: PAnsiChar): PAnsiChar; stdcall;
TRecuperarOperacaoTEF = function(dadosCaptura: PAnsiChar): PAnsiChar; stdcall;
TRealizarPagamentoTEF = function(codigoOperacao: Integer; dadosCaptura: PAnsiChar; novaTransacao: Boolean): PAnsiChar; stdcall;
TRealizarPixTEF = function(dadosCaptura: PAnsiChar; novaTransacao: Boolean): PAnsiChar; stdcall;
TRealizarAdmTEF = function(codigoOperacao: Integer; dadosCaptura: PAnsiChar; novaTransacao: Boolean): PAnsiChar; stdcall;
TConfirmarOperacaoTEF = function(id, acao: Integer): PAnsiChar; stdcall;
TFinalizarOperacaoTEF = function(id: Integer): PAnsiChar; stdcall;
TRealizarColetaPinPad = function(tipoColeta: Integer; confirmar: Boolean): PAnsiChar; stdcall;
TConfirmarCapturaPinPad = function(tipoCaptura: Integer; dadosCaptura: PAnsiChar): PAnsiChar; stdcall;

function IniciarOperacaoTEF(dadosCaptura:PAnsiChar):PAnsiChar; stdcall; external 'E1_Tef01.dll';
type
TElginDLL = class (TObject)
strict private const
PASTA_DLL = 'C:\Elgin\TEF\';
DLL_ELGIN = PASTA_DLL + 'E1_Tef01.dll';
strict private
FCanExecute: Boolean;
FDLLPaths: TList<string>;
FHandles: TList<THandle>;
FSetClientTCP: TSetClientTCP;
FConfigurarDadosPDV: TConfigurarDadosPDV;
FIniciarOperacaoTEF: TIniciarOperacaoTEF;
FRecuperarOperacaoTEF: TRecuperarOperacaoTEF;
FRealizarPagamentoTEF: TRealizarPagamentoTEF;
FRealizarPixTEF: TRealizarPixTEF;
FRealizarAdmTEF: TRealizarAdmTEF;
FConfirmarOperacaoTEF: TConfirmarOperacaoTEF;
FFinalizarOperacaoTEF: TFinalizarOperacaoTEF;
FRealizarColetaPinPad: TRealizarColetaPinPad;
FConfirmarCapturaPinPad: TConfirmarCapturaPinPad;
function LoadDLL(const ADLLName: string): Boolean;
procedure LoadAllDLLs();
procedure UnloadAllDLLs();
procedure InitializeFunctionPointers(const AHandle: THandle);
function IntializeFunctionPointer(const AHandle: THandle; const AFunctionName: string): Pointer;
procedure ClearFunctionPointers();
procedure FillDLLPaths();
function Execute<T>(const ACall: TFunc<T>): T;
public
constructor Create();
destructor Destroy(); override;
function SetClientTCP(const AIp: string; const APorta: Integer): PAnsiChar;
function ConfigurarDadosPDV(const ATextoPinpad, AVersaoAC, ANomeEstabelecimento, ALoja, AIdentificadorPontoCaptura: string): PAnsiChar;
function IniciarOperacaoTEF(const ADadosCaptura: PAnsiChar): PAnsiChar;
function RecuperarOperacaoTEF(const ADadosCaptura: string): PAnsiChar;
function RealizarPagamentoTEF(const ACodigoOperacao: Integer; const ADadosCaptura: string; const ANovaTransacao: Boolean): PAnsiChar;
function RealizarPixTEF(const ADadosCaptura: string; const ANovaTransacao: Boolean): PAnsiChar;
function RealizarAdmTEF(const ACodigoOperacao: Integer; const ADadosCaptura: string; const ANovaTransacao: Boolean): PAnsiChar;
function ConfirmarOperacaoTEF(const AId, AACao: Integer): PAnsiChar;
function FinalizarOperacaoTEF(const AId: Integer): PAnsiChar;
function RealizarColetaPinPad(const ATipoColeta: Integer; const AConfirmar: Boolean): PAnsiChar;
function ConfirmarCapturaPinPad(const ATipoCaptura: Integer; const ADadosCaptura: string): PAnsiChar;
end;

function RecuperarOperacaoTEF(dadosCaptura:PAnsiChar):PAnsiChar; stdcall; external 'E1_Tef01.dll';
implementation

function RealizarPagamentoTEF(codigoOperacao:Integer; dadosCaptura:PAnsiChar; novaTransacao:Boolean):PAnsiChar;stdcall;external 'E1_Tef01.dll';
{ TElginDLL }

function RealizarPixTEF(dadosCaptura:PAnsiChar; novaTransacao:Boolean):PAnsiChar;stdcall;external 'E1_Tef01.dll';
constructor TElginDLL.Create();
begin
FCanExecute := False;
FDLLPaths := TList<string>.Create();
FHandles := TList<THandle>.Create();
Self.FillDLLPaths();
Self.LoadAllDLLs();
end;

function RealizarAdmTEF(codigoOperacao:Integer; dadosCaptura:PAnsiChar; novaTransacao:Boolean):PAnsiChar;stdcall;external 'E1_Tef01.dll';
destructor TElginDLL.Destroy();
begin
Self.UnloadAllDLLs();
FHandles.Free();
FDLLPaths.Free();
inherited;
end;

function ConfirmarOperacaoTEF(id:Integer; acao:Integer):PAnsiChar; stdcall; external 'E1_Tef01.dll';
procedure TElginDLL.FillDLLPaths();
begin
FDLLPaths.Add(PASTA_DLL + 'libwinpthread-1.dll');
FDLLPaths.Add(PASTA_DLL + 'libgcc_s_dw2-1.dll');
FDLLPaths.Add(PASTA_DLL + 'libstdc++-6.dll');
FDLLPaths.Add(PASTA_DLL + 'Qt5Core.dll');
FDLLPaths.Add(PASTA_DLL + 'Qt5Network.dll');
FDLLPaths.Add(PASTA_DLL + 'Qt5Gui.dll');
FDLLPaths.Add(PASTA_DLL + 'Qt5Xml.dll');
FDLLPaths.Add(DLL_ELGIN);
end;

function FinalizarOperacaoTEF(id:Integer):PAnsiChar; stdcall; external 'E1_Tef01.dll';
function TElginDLL.LoadDLL(const ADLLName: string): Boolean;
var
vDLLHandle: THandle;
begin
Result := False;
if not TFile.Exists(ADLLName) then
raise Exception.CreateFmt('DLL não encontrada na pasta padrão: %s', [PASTA_DLL + ADLLName]);

function RealizarColetaPinPad(tipoColeta: integer; confirmar: boolean): PAnsiChar; stdcall; external 'E1_Tef01.dll';
vDLLHandle := GetModuleHandle(PChar(ADLLName));
if vDLLHandle = 0 then
begin
vDLLHandle := LoadLibrary(PChar(ADLLName));
if vDLLHandle = 0 then
raise Exception.CreateFmt('Erro ao carregar DLL: %s', [ADLLName]);
end;
FHandles.Add(vDLLHandle);

function ConfirmarCapturaPinPad(tipoCaptura: integer; dadosCaptura: PAnsiChar): PAnsiChar; stdcall; external 'E1_Tef01.dll';
if ADLLName = DLL_ELGIN then
Self.InitializeFunctionPointers(vDLLHandle);
Result := True;
end;

implementation
procedure TElginDLL.UnloadAllDLLs();
begin
Self.ClearFunctionPointers();
for var vHandle in FHandles do
if (GetModuleHandle(PChar(vHandle)) > 0) then
FreeLibrary(vHandle);
end;

procedure TElginDLL.LoadAllDLLs();
begin
for var vDLL in FDLLPaths do
begin
try
FCanExecute := Self.LoadDLL(vDLL);
if not FCanExecute then
raise Exception.CreateFmt('Erro ao carregar DLL de dependência: %s', [vDLL])
except
on E: Exception do
raise Exception.CreateFmt('Erro ao carregar DLL de dependência %s: %s', [vDLL, E.Message]);
end;
end;
end;

procedure TElginDLL.InitializeFunctionPointers(const AHandle: THandle);
begin
FSetClientTCP := Self.IntializeFunctionPointer(AHandle, 'SetClientTCP');
FConfigurarDadosPDV := Self.IntializeFunctionPointer(AHandle, 'ConfigurarDadosPDV');
FIniciarOperacaoTEF := Self.IntializeFunctionPointer(AHandle, 'IniciarOperacaoTEF');
FRecuperarOperacaoTEF := Self.IntializeFunctionPointer(AHandle, 'RecuperarOperacaoTEF');
FRealizarPagamentoTEF := Self.IntializeFunctionPointer(AHandle, 'RealizarPagamentoTEF');
FRealizarPixTEF := Self.IntializeFunctionPointer(AHandle, 'RealizarPixTEF');
FRealizarAdmTEF := Self.IntializeFunctionPointer(AHandle, 'RealizarAdmTEF');
FConfirmarOperacaoTEF := Self.IntializeFunctionPointer(AHandle, 'ConfirmarOperacaoTEF');
FFinalizarOperacaoTEF := Self.IntializeFunctionPointer(AHandle, 'FinalizarOperacaoTEF');
FRealizarColetaPinPad := Self.IntializeFunctionPointer(AHandle, 'RealizarColetaPinPad');
FConfirmarCapturaPinPad := Self.IntializeFunctionPointer(AHandle, 'ConfirmarCapturaPinPad');
end;

function TElginDLL.IntializeFunctionPointer(const AHandle: THandle; const AFunctionName: string): Pointer;
begin
Result := GetProcAddress(AHandle, PAnsiChar(AnsiString(AFunctionName)));
if not Assigned(Result) then
raise Exception.CreateFmt('Não foi possível carregar a função: %s da DLL: %s', [AFunctionName, DLL_ELGIN]);
end;

procedure TElginDLL.ClearFunctionPointers();
begin
@FSetClientTCP := nil;
@FConfigurarDadosPDV := nil;
@FIniciarOperacaoTEF := nil;
@FRecuperarOperacaoTEF := nil;
@FRealizarPagamentoTEF := nil;
@FRealizarPixTEF := nil;
@FRealizarAdmTEF := nil;
@FConfirmarOperacaoTEF := nil;
@FFinalizarOperacaoTEF := nil;
@FRealizarColetaPinPad := nil;
@FConfirmarCapturaPinPad := nil;
end;

function TElginDLL.Execute<T>(const ACall: TFunc<T>): T;
begin
if not FCanExecute then
Exit();
try
Result := ACall();
except
on E: Exception do
begin
raise Exception.CreateFmt('Erro ao executar função. Detalhes: %s', [E.Message]);
end;
end;
end;

function TElginDLL.RealizarAdmTEF(const ACodigoOperacao: Integer; const ADadosCaptura: string; const ANovaTransacao: Boolean): PAnsiChar;
begin
Result := Self.Execute<PAnsiChar>(
function: PAnsiChar
begin
Result := FRealizarAdmTEF(ACodigoOperacao, PAnsiChar(AnsiString(ADadosCaptura)), ANovaTransacao);
end
);
end;

function TElginDLL.RealizarColetaPinPad(const ATipoColeta: Integer; const AConfirmar: Boolean): PAnsiChar;
begin
Result := Self.Execute<PAnsiChar>(
function: PAnsiChar
begin
Result := FRealizarColetaPinPad(ATipoColeta, AConfirmar);
end
);
end;

function TElginDLL.RealizarPagamentoTEF(const ACodigoOperacao: Integer; const ADadosCaptura: string; const ANovaTransacao: Boolean): PAnsiChar;
begin
Result := Self.Execute<PAnsiChar>(
function: PAnsiChar
begin
Result := FRealizarPagamentoTEF(ACodigoOperacao, PAnsiChar(AnsiString(ADadosCaptura)), ANovaTransacao);
end
);
end;

function TElginDLL.RealizarPixTEF(const ADadosCaptura: string; const ANovaTransacao: Boolean): PAnsiChar;
begin
Result := Self.Execute<PAnsiChar>(
function: PAnsiChar
begin
Result := FRealizarPixTEF(PAnsiChar(AnsiString(ADadosCaptura)), ANovaTransacao);
end
);
end;

function TElginDLL.RecuperarOperacaoTEF(const ADadosCaptura: string): PAnsiChar;
begin
Result := Self.Execute<PAnsiChar>(
function: PAnsiChar
begin
Result := FRecuperarOperacaoTEF(PAnsiChar(AnsiString(ADadosCaptura)));
end
);
end;

function TElginDLL.SetClientTCP(const AIp: string; const APorta: Integer): PAnsiChar;
begin
Result := Self.Execute<PAnsiChar>(
function: PAnsiChar
begin
Result := FSetClientTCP(PAnsiChar(AnsiString(AIp)), APorta);
end
);
end;

function TElginDLL.IniciarOperacaoTEF(const ADadosCaptura: PAnsiChar): PAnsiChar;
begin
Result := Self.Execute<PAnsiChar>(
function: PAnsiChar
begin
Result := FIniciarOperacaoTEF(ADadosCaptura);
end
);
end;

function TElginDLL.FinalizarOperacaoTEF(const AId: Integer): PAnsiChar;
begin
Result := Self.Execute<PAnsiChar>(
function: PAnsiChar
begin
Result := FFinalizarOperacaoTEF(AId);
end
);
end;

function TElginDLL.ConfigurarDadosPDV(const ATextoPinpad, AVersaoAC, ANomeEstabelecimento, ALoja, AIdentificadorPontoCaptura: string): PAnsiChar;
begin
Result := Self.Execute<PAnsiChar>(
function: PAnsiChar
begin
Result := FConfigurarDadosPDV(PAnsiChar(AnsiString(ATextoPinpad)),
PAnsiChar(AnsiString(AVersaoAC)),
PAnsiChar(AnsiString(ANomeEstabelecimento)),
PAnsiChar(AnsiString(ALoja)),
PAnsiChar(AnsiString(AIdentificadorPontoCaptura)));
end
);
end;

function TElginDLL.ConfirmarCapturaPinPad(const ATipoCaptura: Integer; const ADadosCaptura: string): PAnsiChar;
begin
Result := Self.Execute<PAnsiChar>(
function: PAnsiChar
begin
Result := FConfirmarCapturaPinPad(ATipoCaptura, PAnsiChar(AnsiString(ADadosCaptura)));
end
);
end;

function TElginDLL.ConfirmarOperacaoTEF(const AId, AACao: Integer): PAnsiChar;
begin
Result := Self.Execute<PAnsiChar>(
function: PAnsiChar
begin
Result := FConfirmarOperacaoTEF(AId, AACao);
end
);
end;

end.
end.