| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Jpeg Error #52 - что это означает? [D6, Win2k]

Denis ©   (2004-05-05 12:32:00) 

Здравствуйте.
Эта ошибка вылетает при попытке выполнения этого кода в указанной строке:
[code]

procedure TfmSUAccess.tbModulAfterScroll(DataSet: TDataSet);
var
Stream:TMemoryStream;
Icon:TJpegImage;
Rect:TRect;
begin
Icon:=TJpegImage.Create;
Rect.Left:=0;
Rect.Top:=0;
Rect.Right:=Icon.Width;
Rect.Bottom:=Icon.Height;

if ScrollFlag=true
then
 if tbMOdul.FieldByName('ICON').IsNull
 then
   begin
     Image1.Canvas.Brush.Color:=fmModul.Color;
     Image1.Canvas.Rectangle(0,0,Image1.Width,Image1.Height);
   end
 else
     try
       Stream:=TMemoryStream.Create;
       tbModulIcon.SaveToStream(Stream);
       Stream.Position:=0;
         Icon.LoadFromStream(Stream); [b]<<<-- ошибка тут...[/b]
         Image1.Canvas.StretchDraw(Rect, Icon);
     except
       Stream.Free;
       Icon.Free;
     end;
[/code]

Подскажите, что я неправильно делаю? Что означает эта ошибка?

---

Denis   (2004-05-05 13:24:00) [1]

Спасибо,я это уже понял :)
Моя ошибка в том, что я положил в Stream  *.ico, а читаю его в TJpegImage.

А тип tbModulIcon - TBlobField...

---

wicked   (2004-05-05 12:44:00) [2]

а тип tbModulIcon?...
сдается мне, что он ругается на то, что в Stream лежит не jpeg, а что-то другое...

---

Наверх