Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.01;
Скачать: CL | DM;

Вниз

Сохранение в Blob поля   Найти похожие ветки 

 
Sour ©   (2002-06-07 16:35) [0]

Подскажите, пожалуйста, как программно реализовать запись и чтение в 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:01) [1]

Здесь http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1021681128&n=1 сказано как сохранять RTF в блоб, тоже самое почти для картинки, да и для любых данных.



 
-=Sergeante=- ©   (2002-06-07 17:06) [2]

Запись:

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;



Страницы: 1 вся ветка

Текущий архив: 2002.07.01;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
14-1137
DeMoN-777
2002-05-15 18:18
2002.07.01
Что будет тому, кто юэает чужой инет (подбритый трояном) ?


1-1002
victorbur
2002-06-20 11:42
2002.07.01
По компоненту TEdit


4-1249
spiderman
2002-05-03 13:09
2002.07.01
Сообщение


8-1108
PEC
2002-02-25 12:51
2002.07.01
Delphix


8-1107
Unplugged_in_NY
2002-02-22 08:02
2002.07.01
прозрачный битмап