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, а что-то другое...

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

А тип tbModulIcon - TBlobField...

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