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.
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;
Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.