Ir para conteúdo
  • Cadastre-se

Bruno Lopes de Assumpção

Membros
  • Total de ítens

    3
  • Registro em

  • Última visita

Últimos Visitantes

O bloco dos últimos visitantes está desativado e não está sendo visualizado por outros usuários.

Bruno Lopes de Assumpção's Achievements

Newbie

Newbie (1/14)

  • Dedicated Rare
  • First Post
  • Week One Done
  • One Month Later
  • One Year In

Recent Badges

0

Reputação

  1. 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.
  2. 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;
×
×
  • Criar Novo...

Informação Importante

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.