Recuperar XML, problemas com Captcha.gif...

[hevaldo]

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.

[EddieBR]

Estou com o mesmo problema para download do captcha.gif

Hoje o dia vai ser movimentado... heheheh

[rhansen]

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.

[jaime]

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

[EddieBR]

jaime... vlw.. vou testar aqui.

Eu nem salvo o XML, uso para importar a nota de entrada no ERP.

Para a 2.0 precisei mudar algumas coisas, posta ai qual o problema que vc esta tendo q tento te ajudar.

[EddieBR]

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?

[jaime]

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

[rhansen]

Jaime, testei a função agora pouco. Ficou 100%, muito agradecido !

[EMBarbosa]

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

[Sergio Ricardo]

Alguém que recompilou e deu certo poderia colocar o executável aqui ?

Uso o C# e não gostaria de instalar o Delphi e todos os componentes só para compilar o RECUPERARXML.

Grato.

[André Ferreira de Moraes]

RecuperarXML.rar

[Sergio Ricardo]

Valeu d+ André.

Muito obrigado !!!!!!!!!!!!!!!!

[souza.fo]

Amigos, para que o programa rode no Delphi XE, deve-se atualizar o arquivo gifimage.pas disponível em: http://www.tolderlund.eu/delphi/gifimaged2010b.zip. Segundo o autor, ele funciona com as versões anteriores do Delphi. Se possível atualizar o arquivo no SVN.

[]´s

Fabio Souza

[André Ferreira de Moraes]

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.

[Dangelo2010]

Alguem teria os fontes atualizados do RecuperaXML, pois o que tehho não funciona mais, ou ate mesmo de alguma dll que baixa os xml's