Форум: "Основная";
Текущий архив: 2004.06.27;
Скачать: [xml.tar.bz2];

Вниз

Jpeg error #42   Найти похожие ветки 

← →
Сашка   (2004-06-14 10:45) [0]

что это за ошибка? Никак понять не могу, чего от меня требуется. Выскакивает при попытке уничтожить ранее созданный объект:

var
JpgStream: TStream;
Jpg: TJpegImage;
begin
with DataModule do
begin
  jpg := TJPEGImage.Create;
 try
  JpgStream := FTable.CreateBlobStream(FTable.FieldByName("small_img"),bmread);
  jpg.LoadFromStream(JpgStream);
 try
  Fsearch_img_one.Picture.Assign(Jpg);
 finally
     FreeAndNil(JpgStream);
   end;
   finally
    FreeAndNil(Jpg);
   end;
end;


Ошибка выскакивает при попытке уничтожить поток в секции finally
вот в этом месте

finally
     FreeAndNil(JpgStream);
   end;



Надеюсь на помощь. Заранее спасибо. Сашка

---

← →
Сашка   (2004-06-14 23:17) [1]

Мастера, неужели никто их вас не сталкивался с данной проблемой?

---

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

Форум: "Основная";
Текущий архив: 2004.06.27;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.058 c