Array
(
)

IdHTTP funcionando continuamente

Elter.teodoro
   - 30 nov 2005

Tenho de atualizacao automatica que roda com tryIcone , fica em >>execucao o dia inteiro , notei um erro no IdHTTP , que mais primeiras >>vezes funciona legal , com tempo ele apresenta erro


O erro so aconte com o IdHTTPVersao ( busca a versao) o IdHTTP_Download (Faz o download )sempre funciona bem .

colqoue dois HTTP por achar que o erro estava na sobrecarga do componente para duas funçoes distintas.


A messagem de erro e : socket error # 11004

>>veja o pedaço de codigo que utlizacao o componente



>>function VerificaVersao ( mNomeArquivo , mVersaoInstalada : string ) :
>>begin
>>mVersaoAtual := IdHTTPVersao.Get(URL + ´ListaVersao.asp?NomeArquivo=´+ mNomeArquivo ) ;
>>if IdHTTPVersao.Connected then
>>IdHTTPVersao.Disconnect ;

>>if mVersaoInstalada < mVersaoAtual then
>>begin
>>result := true ;
>>AutalizaVersao( ´http://www.supernova.com.br/atualizacao/´+mNomeArquivo , ´c:\atualizacao\´ +mNomeArquivo ) ;

>>end
>>else
>>begin

>>result := true ;

>>end;


>>function TFormAtualizador.AutalizaVersao(RemoteFile, LocalFile: String): Boolean;
>>var
>>fs: TFileStream;
>>begin
>>fs:= TFileStream.Create(LocalFile, fmCreate);
>>try
>>try
>>IdHTTP_Download.Get(RemoteFile,fs);
>>result:= True;
>>except
>>on e: exception do
>>begin
>>if pos(´not found´,AnsiLowerCase(e.message)) > 0 then
>>LogErros(´O arquivo : ´´ + RemoteFile + ´´ não foi encontrado no servidor remoto.´) ;

>>end;
>>end;
>>finally
>>fs.free;
>>IdHTTP_Download.Disconnect;
>>end;

>>end;


Massuda
   - 30 nov 2005

Talvez isso ajude...
Citação:
A messagem de erro e : socket error # 11004
Esse erro equivale a ´host not found´, ou seja, não foi possivel localizar o host especificado (no caso, www.supernova.com.br); esse erro é classificado como temporário, ou seja, pode ser que numa nova tentativa tenha sucesso.