JPEG и Blob полях

[Prisian]

Помогите пожалуйста, мне нужно записывать в BLOB поле картинку с расширением JPEG. в нете нарыл такой код:

if Picture.Graphic is TJPegImage then
begin
  bs:=TBlobStream.Create(TBlobField(Field),bmWrite);
  Picture.Graphic.SaveToStream(bs);
  bs.Free;
end
else
if Picture.Graphic is TBitmap then
begin
  Jpg:=TJPegImage.Create;
  Jpg.CompressionQuality:=...;
  Jpg.PixelFormat:=...;
  Jpg.Assign(Picture.Graphic);
  Jpg.JPEGNeeded;
  bs:=TBlobStream.Create(TBlobField(Field),bmWrite);
  Jpg.SaveToStream(bs);
  bs.Free;
  Jpg.Free;
end
else
  Field.Clear;

но компилятор ругаеться. Я в разделе var описал переменную bs как TBlobStream , а JPG как TJpegImage. Скомпилировал, но при попытке открытия JPEG изображения генерируется ошибка.
подскажите пожалуйста как еще можно записать jpeg В BLOB ПОЛЕ.

[Anticoors]

Вот тебе кусок моего кода (хотя почти тоже самое). Уменя все работает

uses jpeg;

var
     Jpg: TJPEGImage;
     bs:TBlobStream;
     j:TJPEGImage;
     tmp:TGraphic;
begin  
 
if Image1.Picture.Graphic is TBitmap then
begin

J:=TJPegImage.Create;
  J.CompressionQuality:=90;
  J.PixelFormat:=jf24Bit;
  J.Assign(Image1.Picture.Graphic);
  J.JPEGNeeded;
tmp:=j;

  Jpg:=TJPegImage.Create;
  Jpg.CompressionQuality:=90;
  Jpg.PixelFormat:=jf24Bit;
  Jpg.Assign(Image1.Picture.Bitmap);
  Jpg.JPEGNeeded;
  Jpg.Compress;
  bs:=TBlobStream.Create(TBlobField(Table1Icon),bmWrite);
  Jpg.SaveToStream(bs);
  bs.Free;
  Jpg.Free;

 Image1.Picture.Assign(j);
 Image1.Picture.Graphic:= tmp;
 j.Free;

end;
end;

[Prisian]

Спасибо, попробую.

[alex_base]

Помогите, при запуске проги из под делфы выдает ошибку:
[Fatal Error] Unit2.pas(8): File not found: 'DBGridEh.dcu'
Что это за ошибка, я новичок, сделали мне прогу, и я пытаюсь просто её запустить из под Delphi а так exe'шник, который компилировался на той машине с которой программировалась сама программа, нормально запускается, но мне нужно внести изменения в сам исходник этой проги, помогите разобраться с ошибкой, спасибо заранее...

[Shuraken]

Ошибка означает, что в этом модуле у тебя в uses прописан модуль DBGridEh, а твоя Делфя не знает, где на твоем компе находится данный модуль. Проблема решается так:
Поиском по компу находишь файл DBGridEh.dcu или DBGridEh.pas. Если не находишь, а скорее всего не найдешь это компоненты EhLib, они не входят в стандартную поставку Делфей, просишь прислать тех, кто тебе помогал делать прогу. Если нашел то в Делфях идешь в Tools\Environment Options\Library\Library path и там прописываешь путь к данному файлику.

[alex_base]

Спасибо за помощь!