Текущий архив: 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
