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

[Lokos]

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

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

получилось вымутить следующий код)))

Image3.Picture.Bitmap.Assign(TBLOBField(dbgrid1.Fields[10]));

ошибка та же
bitmap image not valid

[Stilet]

bitmap image not valid

Пуфф...
Ты это не в TImage дергай а в TJpeg.

[Lokos]

И вот bтог этого топика полностью рабочий код может каму пригодится

procedure TAddData.DBGrid1CellClick(Column: TColumn);
var
   jpg:TjpegImage;
begin
jpg := TJpegImage.Create;
jpg.Assign(TBLOBField(dbgrid1.Fields[10]));
Image3.Picture.Bitmap.Assign(jpg);
jpg.Free;
end;

[mihali4]

Ну почему именно ДелфиВорлд ? Рулим-то как раз мы, а ДелфиВорлд тихо помирает...
Мой способ:

procedure TFMain.BitBtn1Click(Sender: TObject);
begin
Clipboard.Assign(Image1.Picture);
FDM1.TKartFoto.BlobType:=ftBlob;
FDM1.TKart.Edit;
DBImage1.PasteFromClipboard;
FDM1.TKart.Post;
FDM1.TKart.Refresh;
DBImage1.Repaint;
end;

Это мы так сохранили.
Если жипега в юзесах подключена - все нормальненько отображается без всяких мудростей в DBImage...

[Stilet]

а ДелфиВорлд тихо помирает

Он живее всех живых потому что мы им рулим