[CTe TLS 1.2]

Sou do MS e o envio do CT-e aqui está funcionando normalmente, apesar de no site da fazenda estar com indisponibilidade,

Configurei o componente Assim como o @Marcílio Jr

Alguns computadores com Windows 7 tiveram problemas para transmitir, bastou instalar todas as atualizações do Windows Update para funcionar, pois a dll crypt32 estava desatualizada, como eu não sabia qual atualização exata para atualizar, atualizamos todas e resolveu.

 

[[ Correção ] - ACBrConsultaCNPJ "Consulta CNPJ"]

39 minutos atrás, carlosinfoteen disse:

posta a unit alterada.

 

U_Principal.rar

[[ Correção ] - ACBrConsultaCNPJ "Consulta CNPJ"]

No exemplo  consegui realizar a consulta apena incluindo algumas linhas na função "TF_Principal.LabAtualizarCaptchaClick".

adicionei as linhas:

...
ImgArq: String;
...
ImgArq := ExtractFilePath(ParamStr(0))+PathDelim+'captch.png';
Stream.SaveToFile( ImgArq );
Image1.Picture.LoadFromFile( ImgArq );
...

 

e comentei as linhas:

//png.LoadFromStream(Stream);
//Image1.Picture.Assign(png);

procedure TF_Principal.LabAtualizarCaptchaClick(Sender: TObject);
var
  Stream: TMemoryStream;
  ImgArq: String;
//  Jpg: TJPEGImage;
{$IFDEF DELPHI2009_UP}
  png: TPngImage;
{$ENDIF}
begin
  Stream:= TMemoryStream.Create;
  try
    ACBrConsultaCNPJ1.Captcha(Stream);

  {$IFDEF DELPHI2009_UP}
    //Use esse código quando a imagem do site for do tipo PNG
    png:= TPngImage.Create;
    try
      //png.LoadFromStream(Stream);
      //Image1.Picture.Assign(png);
      ImgArq := ExtractFilePath(ParamStr(0))+PathDelim+'captch.png';    
      Stream.SaveToFile( ImgArq );
      Image1.Picture.LoadFromFile( ImgArq );

      EditCaptcha.Clear;
      EditCaptcha.SetFocus;
    finally
      png.Free;
    end;