Аналог try.

[Utkin]

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

Сообственно есть таковой?
у меня в программе появляется ощибка которую надо непоказывать.
использовать try-except невыгодно, так как программа зависает на 3 секунды...

А что за ошибка? Может проще создать такие условия, при которых ошибка невозможна в принципе?

[beemoto]

mihaly4, непомогает =(
мне надо загрузить рисунок с сайта, но если его нет то появляется ошибка
favicon:=TMemoryStream.Create;
idhttp1.Get(str1,favicon);
favicon.SaveToFile('1' + '.ico');
favicon.Free;
image9.Picture.LoadFromFile('1' + '.ico');
так загружаю, str1 - переменая стринг в ней находиться ссылка на адрес.
изображения на айте может и небыть

[Utkin]

Значит надо у кого-нибудь удостовериться в существовании такого файла.

[raxp]

решили под давлением общественности выложить... а со второго поста проигнорировали...
как вариант можете проверять размер того, что будете качать, если 0, значит не стоит:

procedure TForm.IdHTTPWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
 if AWorkCountMax=0 then СБРАСЫВАЙТЕ ЗАКАЧКУ

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

[beemoto]

raxp, Точно!
ощибка происходит при LoadFromFile
т.е. если фавиконки нету на сервере то сервер показывает страницу ощибки и дельфи сохраняет исходный код страницы ощибки как 1.ico, а когда программа загружает ее то естественно происходит ошибка.
может у когото есть идеи, как это исправить?

[raxp]

в данном случае достаточно проверить сигнатуру "иконки" или парсить файл, а лучше сам поток MemoryStream на наличие тегов "html или других" (например через pos()), если не иконка, НЕ ЗАГРУЖАТЬ...

// Сигнатура ICO $00 $00 $01 $00
...
var name:array [0..255] of Char;
    fDAT: TMemoryStream;
begin
 fDAT:= TMemoryStream.Create;
 fDAT.LoadFromFile('favicon.ico');
 fDat.Position:= 0;
 fDAT.Read(name, SIZEOF(name));

 if (ord(name[0])=$00) and (ord(name[1])=$00) and (ord(name[2])=$01)and (ord(name[3])=$00)
 then messagebox(0,'сие - иконка!','',0)
end;

в вашем случае...

var flag: boolean;
     name:array [0..255] of Char;
begin
 favicon:= TMemoryStream.Create;
 idhttp1.Get(str1,favicon);
 favicon.SaveToFile('1' + '.ico');
 //
 favicon.Position:= 0; // или seek(favicon, sofrombegining);
 favicon.Read(name, SIZEOF(name));

 if (ord(name[0])=$00) and (ord(name[1])=$00) and (ord(name[2])=$01)and (ord(name[3])=$00)
  then flag:= true;

 //или вообще без флага, но это оставил для наглядности
 favicon.Free;
 if (flag) then image9.Picture.LoadFromFile('1' + '.ico');

[Marsel737]

beemoto, поищи в инете пример оработки ошибок, можно просто сделать так что ошибки не будут вылазить, но это не значит что они будут обрабатываться, поэтому прога может подвиснуть или того хуже подвесить систему