Скачать: CL | DM;

Задолбил 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 <=> изображение отсутствует

---

← →
ЮЮ ©   (2004-12-02 05:54) [4]

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;

---

← →
elected ©   (2004-12-09 13:51) [5]

procedure TForm1.Button1Click(Sender: TObject);
var IMG: TJpegImage;
begin
if Form1.OpenPictureDialog1.Execute then
  begin
   IMG:= TJpegImage.Create;
   IMG.LoadFromFile(Form1.OpenPictureDialog1.FileName);
   if not IMG.Empty then beep;
   IMG.Free;
  end;
end;

Если рисунок Загружен ! Empty - Пусто =-))

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c