Erro "CoInitialize não foi chamado"

[marcoslondrina]

Bom dia a todos,

Apesar de o Capicom estar obsoleto gostaria que reportar um problema que está acontecendo quando SSLLib = libCapicom.

O problema acontece nesse ponto:

procedure TDFeCapicom.LerInfoCertificadoCarregado;
begin
   ...
   ...
  // Criando memória de Store de Certificados para o ACBr, e adicionado certificado lido nela //
  if FCertStoreMem = nil then
  begin
    FCertStoreMem := CoStore.Create; <--- Erro: "CoInitialize não foi chamado"
    FCertStoreMem.Open(CAPICOM_MEMORY_STORE, CACBR_STORE_NAME, CAPICOM_STORE_OPEN_READ_ONLY);
    FCertStoreMem.Add(FCertificado);
  end;
end;

 

Copiei o código destacado abaixo de TDFeCapicom.CarregarCertificadoDeNumeroSerie e resolveu.

 

procedure TDFeCapicom.LerInfoCertificadoCarregado;
var
  ResultInitialize: HRESULT;
  Inicializado: Boolean;
begin
  // Não Achou ? //
  if FCertificado = nil then
    raise EACBrDFeException.Create('Certificado Digital não Carregado!');

  // Salvando propriedades do Certificado //
  with FpDadosCertificado do
  begin
    NumeroSerie := String(FCertificado.SerialNumber);
    SubjectName := String(FCertificado.SubjectName);
    if CNPJ = '' then
      CNPJ := GetCNPJFromExtensions;

    DataVenc   := FCertificado.ValidToDate;
    IssuerName := String(FCertificado.IssuerName);
    if FCertificado.PrivateKey.IsHardwareDevice then
      Tipo := tpcA3
    else
      Tipo := tpcA1;
  end;

  ResultInitialize := CoInitialize(nil);
  if (ResultInitialize = E_FAIL) then
    raise EACBrDFeException.Create('Erro ao inicializar biblioteca COM');

  Inicializado := (ResultInitialize in [ S_OK, S_FALSE ]);
  try
    // Criando memória de Store de Certificados para o ACBr, e adicionado certificado lido nela //
    if FCertStoreMem = nil then
    begin
      FCertStoreMem := CoStore.Create;
      FCertStoreMem.Open(CAPICOM_MEMORY_STORE, CACBR_STORE_NAME, CAPICOM_STORE_OPEN_READ_ONLY);
      FCertStoreMem.Add(FCertificado);
    end;
  finally
    if Inicializado then
      CoUninitialize;
  end;
end;

 

Obrigado.

 

 

 

 

 

[Juliomar Marchetti]

Tu está usando com serviço do windows ou outro tipo de conexão?

[marcoslondrina]

Em uma Thread.

[Juliomar Marchetti]

Então é isso. tu tem que fazer isso na sua thread

[marcoslondrina]

Esse problema passou a acontecer depois que atualizei os fontes do ACBr.

Antes de atualizar o erro não acontecia.

Mas vou tentar contornar de alguma forma.

Obrigado

[Juliomar Marchetti]

Depende de quanto tempo fazia essa atualização.

pois mudanças são diárias, quase que a cada hora tem alguma coisa melhorada nos fontes então

[marcoslondrina]

Realmente não atualizava o fonte em produção a algum tempo, apesar de baixar semanalmente.

O erro que falei acima passou a acontecer na revisão 19537.

 

 

 

 

[Juliomar Marchetti]

é tem bastante commit de lá pra cá

21483

então é fazer o tratamento no seu código pois não lembro mesmo de ter isso antes

[marcoslondrina]

Imaginei que você não fosse lembrar mesmo, por isso informei a revisão.