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

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

Как считать Jpeg из бд в DBImage

Agafonov Alexsandr ©   (2002-12-25 18:14:00) 

Уважаемые мастера, подскажите как считывать из базы JpegImage и отображать его в DBImage.

---

Agafonov Alexsandr   (2002-12-26 20:28:00) [1]

Спасибо!

---

VID   (2002-12-26 02:06:00) [2]

Посмотри
http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1040857557&n=1

---

Anatoliy   (2002-12-25 18:41:00) [3]

Только вчера прописал, может подойдет.

procedure ViewImage;
VAR Q:TADOQuery;
Image:String;
ImageSize:LongInt;
S:TMemoryStream;
ImageID:LongInt;
begin
with fmMain.frImageMain.imSmall.Picture do
begin
Q:=TADOQuery.Create(nil);
S:=TMemoryStream.Create;
try
ImageID:=DM.spMainImages.Fields[0].AsInteger;
Q.Connection:=DM.cnCennic;
Q.SQL.Add(Format("SELECT Data FROM Изображение WHERE id=%d",[ImageID]));
Q.Open;
Image:=Q.Fields[0].AsString;
ImageSize:=Length(Image);
S.WriteBuffer(Image[1],ImageSize);
S.Seek(0,soFromBeginning);
Graphic:=TJpegImage.Create;
with (Graphic as TJpegImage) do
begin
LoadFromStream(S);
Performance:=jpBestSpeed;
end;
finally
Q.Close;
Q.Free;
S.Free;
end;
fmMain.frImageMain.imSmall.Visible:=True;
end;
end;

---

Наверх