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

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

Как из бд вывести картинку в Image ? [D5, dBase, FoxPro]


h1ma ©   (2002-11-06 06:25:00) 

DBImage не предлагать ;)

постить в бд из Image научился, а вот обратно как-то немогу сообразить.


asmith   (2002-11-06 13:17:00) [1]

var
szBMPName : string;
icon : TBitmap;
stream : TStream;
...
myQuery.SQL.Clear();
myQuery.SQL.Add("select Icon from ClassIcon where ID=1");
myQuery.Open();
icon := TBitmap.Create();
try
stream := TMemoryStream.Create();
(Fields[0] as TBlobField).SaveToStream(stream);
stream.Position := 0;
icon.LoadFromStream(stream);
myImage.Picture.Bitmap.Assign(icon);
finally
stream.Free();
icon.Free();
end;


h1ma   (2002-11-06 11:33:00) [2]


> создаешь TBlobStream и TBitmap.

а по подробней можно пожалуйста.


legionary   (2002-11-06 09:43:00) [3]

создаешь TBlobStreamи TBitmap.
затем у bitmap вызываешь LoadFromStream


Виталий Панасенко   (2002-11-06 08:57:00) [4]

И куда, по вашему, ее можно вывести 8-0 ?


Наверх

Титульная страница Поиск, карта сайта Написать письмо