Скачать: CL | DM;

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")
может  тут что не так?

---

← →
stone ©   (2006-09-18 14:11) [8]

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;

---

← →
Ega23 ©   (2006-09-18 14:41) [9]

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


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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c