Задолбил TJPEGIMAGE

← →
СЕМЕН (2004-11-30 09:34) [0]

procedure TForm1.Button1Click(Sender: TObject);
var IMG: TJpegImage;
begin
if Form1.OpenPictureDialog1.Execute then
begin
IMG:= TJpegImage.Create;
IMG.LoadFromFile(Form1.OpenPictureDialog1.FileName);
if IMG.Empty then beep;
IMG.Free;
end;
end;
хотя Борман утверждает в хелпе
Description

Use Empty to determine if a image has been loaded into the jpeg image object. Empty is true if the jpeg image contains an image, and false if it does not.

А через поток загружаю IMG все ОК.
Я что траву не там беру?
В чем секрет, поможите!

← →
_Nikolay © (2004-11-30 12:01) [1]

Опробовал предложенный фрагмент кода.
Как написано так и работает.
А что требуется от программы?

← →
СЕМЕН (2004-11-30 12:20) [2]

Требуется beep если рисунок загружен!

Или если совсем непонятно.
uses Jpeg;
//---Image1 - на форму кинуть!

procedure TForm1.Button1Click(Sender: TObject);
var IMG: TJpegImage;
begin
if Form1.OpenPictureDialog1.Execute then
begin
IMG:= TJpegImage.Create;
// IMG.LoadFromFile(Form1.OpenPictureDialog1.FileName);
if IMG.Empty then
begin
Form1.Image1.Picture.Assign(IMG);
beep;
end;
IMG.Free;
end;
Image.Free;
end;
По идее это проверка а есть ли изображение в IMG
В этом примере будет ругаться!!!!!!!! А должно работать!!!!

← →
vgb (2004-11-30 13:02) [3]

По всей видимости в хелпе очепятка, по логике Empty = true <=> изображение отсутствует

IMG.Empty после IMG.LoadFromFile(Form1.OpenPictureDialog1.FileName) возможно только при ошибке в методе LoadFromFile, которая приведет к exception и 1) код if IMG.Empty then ... не выполнится, IMG останется не уничтоженным. Правильно писать так:

Img := TJpegImage.Create;
try
try
Img.LoadFromFile(Form1.OpenPictureDialog1.FileName);
except
// ошибка загрузки
beep;
end;
finally
IMG.Free;
end;

Задолбил TJPEGIMAGE Найти похожие ветки