Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Фотографии с БД [D7]

ilya_ae © (2005-09-13 15:46:00)
Добрый день, стоит задача вытягивать с БД под Oracle 9i фотографии. Они лежат в bloob полях в jpg формате. Может есть какой то компонент или нормальное решения для этого. Через TStream замечены глюки. Привытягивании фотографий вываливаются иштбки. Подскажите пожалуйста решение.
С уважением, Илья.

Val (2005-09-13 16:28:00) [1]
если областя разные, ничего уже не поделать. в рецикле бин.

ilya_ae (2005-09-13 16:25:00) [2]
через некоторое время начинает ругаться на разные областя памяти. А так все работает. Может есть какой еще метод?

Desdechado (2005-09-13 16:14:00) [3]
ну, а глюки какие?

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

Term (2005-09-13 16:08:00) [4]
а ошибка какая?

ilya_ae (2005-09-13 15:57:00) [5]
Вот вроде так.
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 15:54:00) [6]
покажи "как вытягиваеш" :)))

Term (2005-09-13 15:49:00) [7]
какие ошибки, я в MSSQL2000 хранил, вроде всё ок было, и как делаеш, напиши подробней

Val (2005-09-13 15:49:00) [8]
Тут был уже аналогичный вопрос и не раз.
Ваши глюки возникают из-за вашей конкретной реализации "вытягивания". Ошибка ошибке - рознь.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »