IdHTTP com erro

25/11/2005

0

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

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;


O erro so aconte com o IdHTTPVersao o IdHTTP_Download sempre funciona bem .


Elter.teodoro

Elter.teodoro

Responder

Posts

25/11/2005

Massuda

Você não disse que erro está acontecendo.

Porque tem dois TIdHTTP?


Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar