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

Фотографии с БД   Найти похожие ветки 

← →
ilya_ae   (2005-09-13 15:46) [0]

Добрый день, стоит задача вытягивать с БД под Oracle 9i фотографии. Они лежат в bloob полях в jpg формате. Может есть какой то компонент или нормальное решения для этого. Через TStream замечены глюки. Привытягивании фотографий вываливаются иштбки. Подскажите пожалуйста решение.
С уважением, Илья.

---

← →
Term ©   (2005-09-13 15:49) [1]

какие ошибки, я в MSSQL2000 хранил, вроде всё ок было, и как делаеш, напиши подробней

---

← →
Val ©   (2005-09-13 15:49) [2]

Тут был уже аналогичный вопрос и не раз.
Ваши глюки возникают из-за вашей конкретной реализации "вытягивания". Ошибка ошибке - рознь.

---

← →
Term ©   (2005-09-13 15:54) [3]

покажи "как вытягиваеш" :)))

---

← →
ilya_ae   (2005-09-13 15:57) [4]

Вот вроде так.
var
 S: TMemoryStream;
 jp: TJPEGImage;
begin
inherited;
 S := TMemoryStream.Create();
 try
   try
     if DataModule_f.foto.IsEmpty()
     then begin
           fmfoto.image.Picture := nil;
     end
     else begin
       DataModule_f.fotoB_PHOTO1.SaveToStream(S);
       jp:=TJPEGImage.Create;
       S.Position:=0;
       jp.LoadFromStream(S);
       fmfoto.image.Picture.Assign(jp);
     end ;
   finally
     S.Free();
     jp.Free;
   end;
 except
   on E:Exception do
//     uMessages.Error("?????? ?????? ??????????"#10#13+E.Message);
 end;
end;

---

← →
Term ©   (2005-09-13 16:08) [5]

а ошибка какая?

---

← →
Desdechado ©   (2005-09-13 16:14) [6]

ну, а глюки какие?

попробуй
S := qryGraf.CreateBlobStream( DataModule_f.foto.FieldByName( "PICT_BLOB" ), bmRead );
try
 if( oS.Size > 0 ) then begin

и

jp.LoadFromStream(S);
jp.DibNeeded;
fmfoto.image.Picture.Bitmap.Assign(jp);

---

← →
ilya_ae   (2005-09-13 16:25) [7]

через некоторое время начинает ругаться на разные областя памяти. А так все работает. Может есть какой еще метод?

---

← →
Val ©   (2005-09-13 16:28) [8]

если областя разные, ничего уже не поделать. в рецикле бин.

---

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

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



Память: 0.46 MB
Время: 0.026 c