| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

BLOB поле

memo ©   (2006-09-18 13:17:00) 

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

---

Ega23   (2006-09-18 14:41:00) [1]

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


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

---

stone   (2006-09-18 14:11:00) [2]

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;

---

memo   (2006-09-18 14:08:00) [3]

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

---

memo   (2006-09-18 14:03:00) [4]

jpg

---

stone   (2006-09-18 14:01:00) [5]

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

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

---

memo   (2006-09-18 13:59:00) [6]

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

---

Ega23   (2006-09-18 13:31:00) [7]

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;

---

Shaman_   (2006-09-18 13:23:00) [8]

TBlobField
TJpegImage
TBitMap

---

Desdechado   (2006-09-18 13:22:00) [9]

LoadFromStream

---

Наверх