BLOB поле

← →
memo (2006-09-18 13:17) [0]

Привет всем!
Не подскажете как из базы данных MSSQL достать
из BLOB поля картинку и загнать её в Timage?
Пробовал Image1.Picture.Bitmap.Assign(ADOTable1im);
Не получается.

← →
Desdechado © (2006-09-18 13:22) [1]

LoadFromStream

← →
Shaman_ © (2006-09-18 13:23) [2]

TBlobField
TJpegImage
TBitMap

← →
Ega23 © (2006-09-18 13:31) [3]

var ms : TMemoryStream; begin if not TDataSet.FieldByName("ImageField").IsEmpty then begin ms:=TMemoryStream.Create; try TBLOBField(TDataSet.FieldByName("ImageField")).savetoStream(ms); ms.Position:=0; Image1.Picture.Bitmap.LoadFromStream(ms); finally ms.Free; end; end; end;

← →
memo (2006-09-18 13:59) [4]

матюкается на IsEmpty
Вообще убрал, тогда "Bitmap image is not valid"

← →
stone © (2006-09-18 14:01) [5]

> Вообще убрал, тогда "Bitmap image is not valid"

а он точно valid? какой формат картинки?

← →
memo (2006-09-18 14:03) [6]

jpg

← →
memo (2006-09-18 14:08) [7]

а в таблицу картинку закидывал вот так:
TBLOBField(ADOTable1.FieldByName("im")).LoadFromFile("c:\34.jpg")
может тут что не так?

uses jpeg;

var
BLOB: TStream;

BLOB := Dataset.CreateBlobStream(Dataset.FieldByName("IMAGE_FIELD"),bmRead);
try
Image1.Picture.Graphic:=TBitmap.Create;
if BLOB.Size > 0
then Image1.Picture.Graphic.LoadFromStream(BLOB);
finally
BLOB.Free;
end;

> матюкается на IsEmpty

Тьфу, не IsEmpty, а NotNull (или IsNull). Посмотри, в общем, сейчас не могу искать...

BLOB поле Найти похожие ветки