[Pegar Lista De Certificado Sem Abrir Tela De Seleção.]

Boa tarde,

 

Não sei como e se resolveram a situação de não encontrar o certificado, mas uma situação parecida que tive foi utilizando um módulo central como serviço, ele não conseguia ler o repositório de certificados. Ao configurar o serviço com um usuário autenticado que tivesse os certificados instalados no seu perfil funcionou.

 

Com relação à lista de certificados, fiz uma função para retornar um xml com os certificados encontrados na máquina. Segue, caso ajude:

 

*** units necessárias: ACBrCAPICOM_TLB, ACBrNFeConfiguracoes;

 

function CertificadosLista: string;

var

  Store: IStore3;

  Certs: ICertificates2;

  Cert : ICertificate2;

  i    : Integer;

begin

  Result := '';

 

  try

    Store := CoStore.Create;

    Store.Open(CAPICOM_CURRENT_USER_STORE, CAPICOM_STORE_NAME, CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED);

 

    Certs := Store.Certificates as ICertificates2;

  Except

    Result := 'Erro ao carregar lista de certificados';

    exit;

  end;

 

  Result := '<certificados>';

 

  for i:= 1 to Certs.Count do

  begin

    try

      Cert := IInterface(Certs.Item) as ICertificate2;

 

      Result := Result +

                '<cert' +           Copy(IntToStr(10000000 + i),5,4) +                 '>' +

                '<serialnumber>' +  Cert.SerialNumber +                                '</serialnumber>' +

                '<subjectname>' +   Cert.SubjectName +                                 '</subjectname>' +

                '<issuername>' +    Cert.IssuerName +                                  '</issuername>' +

                '<validfromdate>' + FormatDateTime('dd/mm/yyyy', Cert.ValidFromDate) + '</validfromdate>' +

                '<validtodate>' +   FormatDateTime('dd/mm/yyyy', Cert.ValidToDate) +   '</validtodate>' +

                '<message>' +       'ok' +                                             '</message>' +

                '</cert' +          Copy(IntToStr(10000000 + i),5,4) +                 '>';

    Except

      on E:Exception do

        Result := Result +

                  '<cert' +           Copy(IntToStr(10000000 + i),5,4) + '>' +

                  '<serialnumber>' +  'Erro' +                           '</serialnumber>' +

                  '<subjectname>' +   'Erro' +                           '</subjectname>' +

                  '<issuername>' +    'Erro' +                           '</issuername>' +

                  '<validfromdate>' + 'Erro' +                           '</validfromdate>' +

                  '<validtodate>' +   'Erro' +                           '</validtodate>' +

                  '<message>' +       E.Message +                        '</message>' +

                  '</cert' +          Copy(IntToStr(10000000 + i),5,4) + '>';

    end;

  end;

 

  Result := Result +

            '</certificados>';

end;

[Programa DEMO ACBRnfe fechando automaticamente]

Bom dia,

 

Vejo que o tópico é antigo.

Alguém sabe se existe alguma solução além de matar o gbpsv ?

Já fiz isso, o serviço está parado, não consta mais nos processos, mas a aplicação continua fechando sozinha.

 

Obrigado.

[ACBrSMS]

Vou verificar com o fabricante.

Obrigado

[ACBrSMS]

Boa tarde Régys,

 

Estou utilizando um celular LG Renoir modelo KC910Q. Testando com o demo, tanto no modelo genérico quanto no modelo daruma, o componente consegue comunicação e obtendo resposta em todas as opções do menu "Informações", mas em ambos dá erro ao enviar sms no TACBrSMSClass.EnviarSMS()

 

** No genérico dá erro "9997 - timeout": Testei aumentar o timeout até 10s e não funcionou.

 

** No daruma dá erro "+CMS ERROR: 500".

 

Em 28/02/2012 as 11:20hs você informou que o modem que tratavam "poderia ser igual ao ZTE que precisa de parâmetros adicionais"

Será que é meu caso? Tem idéia do que eu posso fazer para configurar?

 

Obrigado