| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Сохранение в Blob поля [D5, IB6.x]
Sour © (2002-06-07 16:35:00)Подскажите, пожалуйста, как программно реализовать запись и чтение в blob поле картинки.
В DataModule у меня стоят два IBQuery:
1. один на изменение (IBQUery1): SQL:
update T1 set
bmp = :myblob
where id = :id
2. второй на чтение (IBQuery2): SQL:
select * from T1
Как реализовать следующие:
1. DataModule1.IBQuery1.ParamByName("BMP"). <Здесь надо заоузить картинку из файла/потока (TMemoryStream)>
DataModule1.IBQuery1.Close;
DataModule1.IBQuery1.Open;
2. DataModule1.IBQuery2.Close;
DataModule1.IBQuery2.Open;
DataModule1.IBQuery2.ParamByName("BMP"). <Здесь надо заоузить картинку в поток (TMemoryStream)/TBitmap>
Как это реализовать?
-=Sergeante=- (2002-06-07 17:06:00) [1]Запись:
st:=TStringStream.Create("");
try
img.Picture.Graphic.SaveToStream(st);
st.Position:=0;
ImgSize:=St.Size;
ParamByName("photo").asstring:=st.DataString;
finally st.free end;
ExecProc;
-=Sergeante=- (2002-06-07 17:01:00) [2]Здесь http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1021681128&n=1сказано как сохранять RTF в блоб, тоже самое почти для картинки, да и для любых данных.
| |
