Чтение из Blob(Ole)

[Artruman]

Использую Ado и Accsess,процедура записи в Ole:

procedure TForm1.RzButton1Click(Sender: TObject);
begin
if RzOpenDialog1.Execute then
 begin
  ADOTable1.Edit;
  TBLOBField(ADOTable1.FieldByName('Ole')).LoadFromFile(RzOpenDialog1.FileName);
  AdoTAble1.Post;
 end else
 Exit;
end;

Как можно вывести сохраненный объект[в данном случае-рисунок jpeg] в DBImage или просто на форму?

[Stilet]

свяжи dbimage с тем полем.

[Artruman]

Сообщение от Stilet

свяжи dbimage с тем полем.

Не получается пишет,что типы не совместимы.

А как именно мне связать информацию в поле с DbImage c учетом того,что картинка jpg,а не bmp?

[Stilet]

Если jpg то нужно прописать в uses модуль jpeg. Не пробовал но вроде DBImage сам дожен его подцепить.
Попробуй в общем.

[Lokos]

Сообщение от Stilet

Если jpg то нужно прописать в uses модуль jpeg. Не пробовал но вроде DBImage сам дожен его подцепить.
Попробуй в общем.

в uses прописано DBImage его не цепляет а если явно указать поле то выкидывает ошибку Bitmap image not valid

[Stilet]

А в базе jpeg лежат?

[Lokos]

Сообщение от Stilet

А в базе jpeg лежат?

да сохраняю в базу таким способом

procedure TForm1.BtnSaveClick(Sender: TObject);
var
  jpg: TJPegImage;
  ms: TMemoryStream;

begin

   ADOTable1.Edit;
   ADOTable1.Append;
   jpg := TJpegImage.Create;
   jpg.Assign(Image1.Picture.Graphic);
   jpg.CompressionQuality := 20;
   jpg.Compress;
   ms := TMemoryStream.Create;
   jpg.SaveToStream(ms);
   (ADOTable1.FieldByName('Фото') as tBlobField).LoadFromStream(ms);
   ADOTable1.Post;
   ms.Free;
   jpg.Free;

end;
end;

ну а Image1 загружаю исключительно файлы jpeg

[Stilet]

Действуй обратно - из BLOB в Stream, и потом сам Stream в jpg, который отрисовывай на скажем PaintBox'е

[Lokos]

Сообщение от Stilet

Действуй обратно - из BLOB в Stream, и потом сам Stream в jpg, который отрисовывай на скажем PaintBox'е

ок такая идея была))) но вот в чем загвоздка))) мне нужна картинка той записи по которой пользователь щелкает в DBGrid. Я думал это сделать на обработчик событи я onCellClik но не знаю как загрузить из блоб поля в стим
тоесть такой код не прокатит

procedure TAddData.DBGrid1CellClick(Column: TColumn);
var
 ms: TStream;
begin
ms:=(dbgrid1.Fields[10]);
end;

10 поле это поле Blob соотвецтвенно

[Stilet]

ДелфиВорлд рулит:
http://www.delphiworld.narod.ru/base...from_blob.html