ACBRPIXCD configuração do campo ChavePrivada/Certificado

[Osmar de Luca]

Bom dia, estou com a seguinte situação, gerei os arquivos de chave privada e certificado

quando seto as propriedades:

         Inter.ArquivoChavePrivada := 'D:\Sistemas\XW\PDV\Certificados\PIX.Inter.Certificado.key';
         Inter.ArquivoCertificado := 'D:\Sistemas\XW\PDV\Certificados\PIX.Inter.Certificado.crt';

funciona certinho.

quando coloco esses arquivos em Recursos e carrego na propriedades:

       Inter.ChavePrivada := fSysWin.LoadRecurse('PIX_INTER_KEY');
       Inter.Certificado := fSysWin.LoadRecurse('PIX_INTER_CRT');

 

function TSystemWindows.LoadRecurse(Name: String): String;

 sl := TStringList.Create;
      Stream := TResourceStream.Create(hInstance, Name, RT_RCDATA);
      sl.LoadFromStream(Stream);

da erro de certificado e chaveprivada!

qual é a diferenca da ArquivoChavePrivada/ArquivoCertificado e ChavePrivada/Certificado.

vi que na ChavePrivada/Certificado converte PEM para ConvertPEMToASN1 mas não consegui entender!

[EliasCesar]

A diferença é que as propriedades ArquivoChavePrivada/ArquivoCertificado esperam o caminho do arquivo.
Já as propriedades ChavePrivada/Certificado esperam o conteúdo do arquivo.

No seu caso o problema provavelmente está no TStringList, pois talvez ele esteja perdendo caracteres de controle do conteúdo do arquivo.

Tente algo como:

function LoadFile(aFile: String): AnsiString;
var
  wStr: AnsiString;
  wMS: TMemoryStream;
begin
  wMS := TMemoryStream.Create;
  try
    wMS.LoadFromFile(aFile);
    wMS.Position := 0;
    SetLength(wStr, wMS.Size);
    wMS.ReadBuffer(PAnsiChar(wStr)^, wMS.Size);
  finally
    wMS.Free;
  end;

  Result := wStr;
end;

 

...  
  Inter.ChavePrivada := LoadFile('D:\Sistemas\XW\PDV\Certificados\PIX.Inter.Certificado.key');
  Inter.Certificado := LoadFile('D:\Sistemas\XW\PDV\Certificados\PIX.Inter.Certificado.crt');
...

(IMPORTANTE: Lembre-se de sempre usar AnsiString para armazenar o conteúdo de arquivos binários, justamente pra não haver perda de dados)