Работа с JPEG

← →
Popovich A. (2004-07-14 10:42) [0]

Всех приветствую и прошу подсказки у мастеров Delphi и не только
В частности исполнение вот такой процедуры

procedure TForm1.Button1Click(Sender: TObject);
begin
OpenPictureDialog1.Filter := GraphicFilter(TGraphic);
if openpicturedialog1.Execute then
begin
image1.Picture.LoadFromFile(openpicturedialog1.FileName);
end;
end;

на этапе выбора файла *. JPG в диалоге выдает сообщение следующего содержания
Project1.exe raised exception class EJPEG with message ‘Jpeg error #52’.
При этом в разделе USES модуль Jpeg указан.

За любую подсказку заранее очень признателен и благодарен

← →
Ozone © (2004-07-14 14:10) [1]

Проверил - у меня ошибок никаких нет.

Почитай:
http://www.efg2.com/Lab/Library/Delphi/Graphics/JPEGSentinels.pas.txt

Работа с JPEG Найти похожие ветки