Ir para conteúdo
  • Cadastre-se

dev botao

Recuperar XML, problemas com Captcha.gif...


hevaldo
  • Este tópico foi criado há 2491 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Boa Noite

Estou usando as rotinas do RecuperarXML e parou de gravar o captcha.gif em todos os aplicativos,

alguem esta com esse mesmo problema ?? fiz um novo update da pasta \projetos\recuperarXML e nada,

não grava, ja fiz o teste em uns 5 micros q ja estavão ok, e nada.. não consigo descobrir o problema.

parece q a função DownloadFile não esta funcionando.

Link para o comentário
Compartilhar em outros sites

Bom dia.

Estou tentando fazendo alguns testes com o subprojeto RecuperarXML. Até dias atrás ele funcionava muito bem, passando os parâmetros para a página e efetuando o download do xml. Nestes últimos dias venho tantando e um erro ocorre, parece que a função do UrlDownloadToFile não está mais conseguindo salvar o CAPTCHA, logo nada é mostrado no componente TImage.

Tentei também outras funções para download do mesmo, mas sem sucesso. Parti então para abrir a classe WebBrowser, visualizando a página por completo. Mesmo assim, ao passar os dados da NF-e e o valor do CAPTCHA, retorna a mensagem do site dizendo que o valor digitado não é o mesmo da imagem.

Alguém tem alguma idéia do que possa ser ? O site da consulta foi alterado ?

Utilizo Delphi7.

Att.

Regis.

Link para o comentário
Compartilhar em outros sites

Troca a funçao DownloadFile por essa abaixo:

Vcs já estão conseguindo gerar o xml da versão 2.0 ?

//-------------------------------------------------------------------------

function DownloadFile(const Origem, Destino: string): Boolean;

//-------------------------------------------------------------------------

function TfrmPrincipal.DownloadFile(const Origem, Destino: string): Boolean;

const BufferSize = 1024;

var

hSession, hURL: HInternet;

Buffer: array[1..BufferSize] of Byte;

BufferLen: DWORD;

f: File;

sAppName: string;

begin

Result := False;

sAppName := ExtractFileName(Application.ExeName);

hSession := InternetOpen(PChar(sAppName),

INTERNET_OPEN_TYPE_PRECONFIG,

nil, nil, 0);

try

hURL := InternetOpenURL(hSession,

PChar(Origem),

nil,0,0,0);

try

AssignFile(f, Destino);

Rewrite(f,1);

repeat

InternetReadFile(hURL, @Buffer,

SizeOf(Buffer), BufferLen);

BlockWrite(f, Buffer, BufferLen)

until BufferLen = 0;

CloseFile(f);

Result:=True;

finally

InternetCloseHandle(hURL)

end

finally

InternetCloseHandle(hSession)

end

end;

//-------------------------------------------------------------------------

Grato

Jaime

Link para o comentário
Compartilhar em outros sites

certinho a função... eu ja estava aqui tentando fazer com Indy.

Me parece que mudaram algo no webserver.. pq usando a API de download retornava sempre: -2146697208

Importei agora uma nota pelo sistema, e parece que nao alteraram nada no HTML pelo menos.

Será que estão tentando bloquear o acesso ao captha?

Link para o comentário
Compartilhar em outros sites

E pq eu já tinha feito uma rotina para importar os dados a partir do xml enviado pelos fornecedores, e os que não tinha enviado eu tava usando o recuperaxml, para cria o xml e usava a mesma função para importar os dados. No seu caso vc tá lendo direto sem gera o xml !

Acho que vou ter que fazer assim também.

Grato.

Jaime

Link para o comentário
Compartilhar em outros sites

  • Consultores

[MODERAÇÃO] Favor criar novos tópicos para dúvidas diferentes, mesmo que elas se refiram ao mesmo componente ou unit.

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

  • Moderadores

No delphi 2010 basta remover a unit GifImage, pois o componente TImage do Delphi 2010 ja é compatível com gif.

De qualquer modo, já enviei a unit sugerida ao SVN.

djsystem-logo.png
 youtube.png facebook.png instagram.png linkedin.png
André Ferreira de Moraes | Analista de Sistemas
www.djsystem.com.br | www.djpdv.com.br
www.tefhouse.com.br | www.lambretinha.com.br
Link para o comentário
Compartilhar em outros sites

  • 6 anos depois...
  • Este tópico foi criado há 2491 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • 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.

The popup will be closed in 10 segundos...