| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Запись картинки jpeg формата в поле blob. [D7, IB6.x]
Inkotex © (2003-11-07 16:19:00)
Возникла такая проблема.
Никак не могу разобраться как записать картинку формата jpeg в базу.
Может кто знает.
Или есть пример (запись с компонента TImage, или с файла)
Спасибо.
Буду ждать
Inkotex (2003-11-08 10:49:00) [1]
Вот возникла новая проблема.
Програма работает все записывает, потом смотрю через IBExpert что оно там записала а нужное поле пустое???
Привожу код может кто поможет.
with DMSUD.IBSPAddUpdateShema do
begin
ParamByName("PAM_ID").AsInteger:=DSMainNavi.DataSet.Fields[0].AsInteger;
ParamByName("MASHTAB").AsString:=T13Edit1.Text;
ParamByName("ZNIMAV").AsString:=T13Edit2.Text;
ParamByName("DATA").AsDate:=T13DateTimePicker1.Date;
ParamByName("KRESLYV").AsString:=T13Edit3.Text;
ParamByName("DATA2").AsDate:=T13DateTimePicker2.Date;
FotoStream:=TMemoryStream.Create;
begin
T13ImageShemaPlan.Picture.Graphic.LoadFromFile(OpenPictureDialogShema.FileName);
if T13ImageShemaPlan.Picture.Graphic is TJPEGImage then begin
ParamByName("Foto").LoadFromStream(FotoStream, ftBlob);
T13ImageShemaPlan.Picture.Graphic.SaveToStream(FotoStream);
FotoStream.Free;
end
else if T13ImageShemaPlan.Picture.Graphic is TBitmap then begin
JPG:=TJPEGImage.Create;
JPG.CompressionQuality:=100;
JPG.PixelFormat:=jf24Bit;
JPG.Assign(T13ImageShemaPlan.Picture.Graphic);
JPG.JPEGNeeded;
ParamByName("Foto").LoadFromStream(FotoStream, ftBlob);
JPG.SaveToStream(FotoStream);
FotoStream.Free;
JPG.Free;
end;
end;
ParamByName("MODE").AsInteger:=EditMode;
ExecProc;
end;
Inkotex (2003-11-08 08:00:00) [2]
Спасибо, но уменя проблема сделать ето в обратном направлении.
Считываю с базы без проблем немогу записать новою.
Zacho (2003-11-07 20:33:00) [3]
2 Inkotex : А посмотреть в FAQ на этом сайте ? Там даже пример есть (правда для MySQL, но в данном случае без разницы)
Inkotex (2003-11-07 17:47:00) [4]
Выдает ошибку Unsupported feature, в где ошибка?
Inkotex (2003-11-07 17:44:00) [5]
Может кто поможет?
Sandman25 (2003-11-07 16:40:00) [6]
Надо CreateBlobStream использовать. Детали не помню, поищите в faq или интернете.
Inkotex (2003-11-07 16:36:00) [7]
А можна пример?
Кусок кода?
Я пытался делать с помощью TMemoryStream,неполочилось.
Stas (2003-11-07 16:27:00) [8]
С помощью TMemoryStream
| |
