Скачать: CL | DM;

DBImage и format JPEG   Найти похожие ветки 

← →
melavcorp ©   (2003-03-19 15:02) [0]

Доброго времени суток,господа!
Помогите ламеру решить проблему...Надо вставлять и отображать из MS SQL БД рисунки в формате JPEG. В uses добавил JPEG,рисунки грузятся в компонент DBImige, но в БД не сохраняются..С BMP все отлично...Может кусок кода, кто-нибудь подкинет, для решения???Очень надо!!!!Или есть готовый фриварный компонент под DELPHI6,7 ?????

---

← →
Clickmaker ©   (2003-03-19 15:04) [1]

Ты бы лучше сам подкинул кусок кода, который не работает у тебя. А то непонятно, что делаешь, где хранишь?

---

← →
melavcorp ©   (2003-03-19 15:37) [2]

Храню - в MSSQL2000, формат поля -Image. Дело в том, что DBImage работает с форматом BMP, а мне надо сохранять рисунки в базе в формате Jpeg..
Делаю обычные действия..типа..
IF OpenPictureDialog1.Execute then
DBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName)
Далее...POSTом сохраняю в БД. Если BMP, то все ОК.Если JPEG, то рисунок из файла.*Jpeg в DBImage нормально загружается..но в БД не сохраняется....

---

← →
Clickmaker ©   (2003-03-19 15:44) [3]

uses ..., JPEG;

...

JpegImage := TJPEGImage.Create;
ImageStream := TBLOBStream.Create(TBlobField(BlobField), bmRead);
try
JpegImage.LoadFromStream(ImageStream);
DBImage.Picture.Assign(JpegImage);
finally
ImageStream.Free;
JpegImage.Free;
end;

// Сохранение

Stream := TBlobStream.Create(BlobField, bmReadWrite);
try
Stream.Seek(0, soFromBeginning);
Stream.Truncate;
DBImage.Picture.Graphic.SaveToStream(Stream);
finally
Stream.Free;
end;

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c