Try > Except > End; - не обрабатывает ошибку.

[factually]

Программа скачивает картинку и иногда картинка скачивается пустой, в связи с этим возникает исключение с ошибкой "jpeg error #42". Пытаюсь отловить ошибку используя Try, но ничего не выходит и ошибка всё равно "ломает" программу.

 Try
 ava:=parser(response,'<img src="https://steamcdn-a.akamaihd.net/','" id="avatar"/>');
 path:=ExtractFilePath(ParamStr(0))+'ava.jpg';
 DwFi('https://steamcdn-a.akamaihd.net/'+ava,path);
 Form4.sImage1.Picture.LoadFromFile('ava.jpg');
 SysUtils.DeleteFile('ava.jpg');
 except
  Form4.lbl14.Caption:='Не  удалось'+#13#10+' загрузить аватарку';
 end;

[Kotofff]

На просторах "великого и необъятного" есть такая функция :

PHP код:

function FileSize(fileName : wideString) : Int64;
 var  sr : TSearchRec;
 begin
   if FindFirst(fileName, faAnyFile, sr ) = 0 then 
      result := Int64(sr.FindData.nFileSizeHigh) shl Int64(32)+Int64(sr.FindData.nFileSizeLow)
   else result := -1;
   FindClose(sr);
 end; 


Используйте ее перед вашими :

PHP код:

 Form4.sImage1.Picture.LoadFromFile('ava.jpg');
 SysUtils.DeleteFile('ava.jpg'); 


т.е. когда уже известно имя файла и он якобы загружен, на предмет величины файла отличной от нуля.
Так избавитесь от ошибки.
И исходя из нулевого размера, к примеру, что-то предпримите...

[factually]

Я знаю, что можно так решить проблему, но всё же хочется узнать почему Try в данном случае не обрабатывает ошибку.

[Alex11223]

А как ошибка выглядит? Смотрите исходники модуля jpeg, может оно и не кидает исключения.

Или может вы просто запускаете с отладчиком? по умолчанию дельфи вроде останавливает на исключениях при отладке.

[factually]

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

А как ошибка выглядит? Смотрите исходники модуля jpeg, может оно и не кидает исключения.

Или может вы просто запускаете с отладчиком? по умолчанию дельфи вроде останавливает на исключениях при отладке.

Так:


Программу запускаю без отладчика(отдельно от дельфи).

Ошибка при дебаге:


И почему из-за этой ошибки все элементы на форме обводятся в белый цвет?

[Аватар]

Form4.sImage1.Picture.LoadFromFile('ava.jpg');

Исключение возможно при прорисовке возникает, а не здесь. Попробуй после этой команды сразу принудительно прорисовать, типа Form4.sImage1.Refresh или чего там для имеджа

[factually]

Сообщение от Аватар

Form4.sImage1.Picture.LoadFromFile('ava.jpg');

Исключение возможно при прорисовке возникает, а не здесь. Попробуй после этой команды сразу принудительно прорисовать, типа Form4.sImage1.Refresh или чего там для имеджа

Исключение возникает, только если файл пустой, т.е. не скачался. refresh не дало результат

[Аватар]

Ошибка не в этом блоке все равно. Пробуй так, ток ошибку нормально обработай

type
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure ApplicationException(Sender: TObject; E: Exception);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ApplicationException(Sender: TObject; E: Exception);
begin
  ShowMessage('ошибка2');
end;

procedure TForm1.Button1Click(Sender: TObject);
var JPG: TJpegImage;
begin
  Application.OnException:=ApplicationException;
  JPG:= TJpegImage.Create;
  try
    try
      JPG.LoadFromFile('e:\abc.jpg');
      Image1.Picture.Assign(JPG);
    finally
      JPG.Free;
    end;
  except
    ShowMessage('ошибка1');
  end;
end;

[factually]

Аватар, ага, теперь работает, спасибо
Еще одна проблема возникла: если свернуть и развернуть приложение (кликнуть по его иконке, а не по кнопке Minimize), тогда изображение исчезает, а заместо него белый квадрат, кроме этого исчезает текст в эдитах до тех пор, пока не наведешь на него курсор.
Если просто нажать кнопку Minimize и развернуть приложение, тогда проблема не возникает.
С основной формой (form1) такой проблемы нет.

[Человек_Борща]

Так а почему оно должно обрабатывать ошибку когда вы её и не ловите?

try

except
  on E:Exception do
  begin
    //Теперь ловите
  end;
end;