Bruno Lopes de Assumpção

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.

U_Principal.rar

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;