Ошибка при загрузке файла (через IdHTTP )

[mogo]

var
Stream:TMemoryStream;
begin
try
Form7.IdHTTP1.Request.UserAgent := 'Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.2.15 Version/10.10';
version:=Form7.IdHTTP1.Get('ССылка/v.txt');
Form7.idhttp1.Get('ССылка/run.exe',Stream);
Stream.SaveToFile(ExtractFilePath(Application.ExeName)+('run-v.'+version+'.exe'));
except
on e:Exception do
Stream.Free;
end;
showmessage('Успешно загружено и сохранено: '+ExtractFilePath(Application.ExeName)+'Vk-Soft-v.'+version+'.exe');
end;

В чем тут ошибка? Вроде все загружает нормально, но почему то по окончанию загрузки файл весит 0 кб.

[Vad33]

Сообщение от mogo

var
Stream:TMemoryStream;
begin
try
Form7.IdHTTP1.Request.UserAgent := 'Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.2.15 Version/10.10';
version:=Form7.IdHTTP1.Get('ССылка/v.txt');
Form7.idhttp1.Get('ССылка/run.exe',Stream);
Stream.SaveToFile(ExtractFilePath(Application.ExeName)+('run-v.'+version+'.exe'));
except
on e:Exception do
Stream.Free;
end;
showmessage('Успешно загружено и сохранено: '+ExtractFilePath(Application.ExeName)+'Vk-Soft-v.'+version+'.exe');
end;

В чем тут ошибка? Вроде все загружает нормально, но почему то по окончанию загрузки файл весит 0 кб.

Оно точно отрабатывает нормально?
Судя по коду, при ошибке она просто перехватывается и даже ничего
не сообщается. А потом выводится сообщение об успехе.
Под отладкой запускать пробовали?

[mogo]

Сообщение от Vad33

Оно точно отрабатывает нормально?
Судя по коду, при ошибке она просто перехватывается и даже ничего
не сообщается. А потом выводится сообщение об успехе.
Под отладкой запускать пробовали?

Тоесть данный пример загрузки не оч? Можно пример как лучше реализовать загрузку файла?

[Vad33]

Сообщение от mogo

Тоесть данный пример загрузки не оч? Можно пример как лучше реализовать загрузку файла?

Данный пример обработки ошибок не оч.
Про загрузку сложно сказать по 3 строчкам кода выдранным из середины.
Еще раз совет: запустите по отладкой и посмотрите на каждом шаге,
что происходит.

[mogo]

еще во время загрузки иногда вылазиют ошибки, например не верный дескриптор и еще какаето

[Stilet]

но почему то по окончанию загрузки файл весит 0 кб.

Не удивительно. Ты позицию в стриме в начало не переводишь после загрузки.

Рекомендую так:

var
Stream:TMemoryStream; 
begin
 Stream:=TMemoryStream.create;
try
 Form7.IdHTTP1.Request.UserAgent := 'Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.2.15 Version/10.10';
 version:=Form7.IdHTTP1.Get('ССылка/v.txt');
 Form7.idhttp1.Get('ССылка/run.exe',Stream);
 Stream.Position:=0;
 Stream.SaveToFile(ExtractFilePath(Application.ExeName)+('run-v.'+version+'.exe'));
 showmessage('Успешно загружено и сохранено: '+ExtractFilePath(Application.ExeName)+'Vk-Soft-v.'+version+'.exe');
except
 on e:Exception do showmessage('Фигвам');
end;
Stream.Free;

end;

[mogo]

Сообщение от Stilet

Не удивительно. Ты позицию в стриме в начало не переводишь после загрузки.

Рекомендую так:

var
Stream:TMemoryStream; 
begin
 Stream:=TMemoryStream.create;
try
 Form7.IdHTTP1.Request.UserAgent := 'Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.2.15 Version/10.10';
 version:=Form7.IdHTTP1.Get('ССылка/v.txt');
 Form7.idhttp1.Get('ССылка/run.exe',Stream);
 Stream.Position:=0;
 Stream.SaveToFile(ExtractFilePath(Application.ExeName)+('run-v.'+version+'.exe'));
 showmessage('Успешно загружено и сохранено: '+ExtractFilePath(Application.ExeName)+'Vk-Soft-v.'+version+'.exe');
except
 on e:Exception do showmessage('Фигвам');
end;
Stream.Free;

end;

Спасибо, выручили! А еще, можно как то в этом же примере определить скорость загрузки файла?

[Utkin]

А еще, можно как то в этом же примере определить скорость загрузки файла?

Засечь время и посчитать количество битов переданных за него.

[Stilet]

определить скорость загрузки файла?

Не помню чтоб Get такое позволяла.

[ZuBy]

а разве события в компоненте не для этого созданы?