IdHTTP com erro
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 .
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
Curtidas 0
Respostas
Massuda
25/11/2005
Você não disse que erro está acontecendo.
Porque tem dois TIdHTTP?
Porque tem dois TIdHTTP?
GOSTEI 0