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

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

Извлечение Jpeg из таблицы в Image [D7, Paradox]

RomanH ©   (2006-03-17 15:50:00) 

Здраствуйте мастера,очень приятно что кто-то из Вас уделяет внимание новичкам.
Как загрузить jpg в таблицу я разобрался
TBlobField(DogovorsForm.CDSDogovors.FieldByName('DScan')).LoadFromFile(Fname);
Теперь не могу понять смысл как данные из BLOB перенести куда-нибудь,например ранее сохраненный jpg файл в Image
я делаю так,но происходит ошибка даже код ошибки не выводится
procedure TDogovorsForm.BitBtn5Click(Sender: TObject);
var    s:TStream;
begin
       s:= CDSDogovors.CreateBlobStream(CDSDogovors.FieldByName('DScan'),bmRead);
       Image1.Picture.Graphic.LoadFromStream(s);
end;

---

RomanH   (2006-03-17 17:10:00) [1]

Уважаемый Олег Вячеславович(Ega23) огромное Вам Спасибо.За ваш подробный код.

---

Ega23   (2006-03-17 16:55:00) [2]

У тебя это JPEG?
Тогда так:


var
ms:TMemoryStream;
jpg:TJPEGImage;
begin

ms:=TMemoryStream.Create;
jpg:=-TJPEGImage.Create;
try
 TBLOBField(DataSet.FieldByName('MyBlobField')).SaveToStream(ms);
 ms.Position:=0;
 jpg.LoadFromStream(ms);
 Image1.Picture.Assign(jpg);
finally
 jpg.Free;
 ms.Free;
end;
end;

---

Ega23   (2006-03-17 16:55:00) [3]

> jpg:=-TJPEGImage.Create;


Минус - лишний...   :о)

---

RomanH   (2006-03-17 16:50:00) [4]

Извените за назойливость,но ошибка опять появляется на строке
Image1.Picture.Graphic.LoadFromStream(ms);
Не знаю что делать.Подскажите пожайлусто.

---

Ega23   (2006-03-17 16:08:00) [5]

> LoadFromStream(s);


Конечно, LoadFromStream(ms);

---

Ega23   (2006-03-17 16:07:00) [6]


var
ms:TMemoryStream;
begin
 
 ms:=TMemoryStream.Create;
 try
  TBLOBField(DataSet.FieldByName('MyBlobField')).SaveToStream(ms);
   ms.Position:=0;
  Image1.Picture.Graphic.LoadFromStream(s);
 finally
  ms.Free;
 end;
end;


---

Наверх