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

Вниз

Запись картинки jpeg формата в поле blob.   Найти похожие ветки 

← →
Inkotex   (2003-11-07 16:19) [0]

Возникла такая проблема.
Никак не могу разобраться как записать картинку формата jpeg в базу.
Может кто знает.
Или есть пример (запись с компонента TImage, или с файла)
Спасибо.
Буду ждать

---

← →
Stas ©   (2003-11-07 16:27) [1]

С помощью TMemoryStream

---

← →
Inkotex   (2003-11-07 16:36) [2]

А можна пример?
Кусок кода?
Я пытался делать с помощью TMemoryStream,неполочилось.

---

← →
Sandman25 ©   (2003-11-07 16:40) [3]

Надо CreateBlobStream использовать. Детали не помню, поищите в faq или интернете.

---

← →
Inkotex   (2003-11-07 17:44) [4]

Может кто поможет?

---

← →
Inkotex   (2003-11-07 17:47) [5]

Выдает ошибку Unsupported feature, в где ошибка?

---

← →
Zacho ©   (2003-11-07 20:33) [6]

2 Inkotex : А посмотреть в FAQ на этом сайте ? Там даже пример есть (правда для MySQL, но в данном случае без разницы)

---

← →
Inkotex   (2003-11-08 08:00) [7]

Спасибо, но уменя проблема сделать ето в обратном направлении.
Считываю с базы без проблем немогу записать новою.

---

← →
Inkotex   (2003-11-08 10:49) [8]

Вот возникла новая проблема.
Програма работает все записывает, потом смотрю через 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;

---

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

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

Наверх

Память: 0.48 MB
Время: 0.015 c