Фотографии с БД

← →
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]

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

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

попробуй
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]

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

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

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