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

Jpeg Error #52 - что это означает?   Найти похожие ветки 

← →
Denis ©   (2004-05-05 12:32) [0]

Здравствуйте.
Эта ошибка вылетает при попытке выполнения этого кода в указанной строке:
[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]

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

---

← →
wicked ©   (2004-05-05 12:44) [1]

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

---

← →
Denis ©   (2004-05-05 13:24) [2]

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

А тип tbModulIcon - TBlobField...

---

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

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



Память: 0.45 MB
Время: 0.024 c