Извлечение Jpeg из таблицы в Image

← →
RomanH © (2006-03-17 15:50) [0]

Здраствуйте мастера,очень приятно что кто-то из Вас уделяет внимание новичкам.
Как загрузить jpg в таблицу я разобрался
TBlobField(DogovorsForm.CDSDogovors.FieldByName("DScan")).LoadFromFile(Fname);
Теперь не могу понять смысл как данные из BLOB перенести куда-нибудь,например ранее сохраненный jpg файл в Image
я делаю так,но происходит ошибка даже код ошибки не выводится
procedure TDogovorsForm.BitBtn5Click(Sender: TObject);
var s:TStream;
begin
s:= CDSDogovors.CreateBlobStream(CDSDogovors.FieldByName("DScan"),bmRead);
Image1.Picture.Graphic.LoadFromStream(s);
end;

← →
Ega23 © (2006-03-17 16:07) [1]

var ms:TMemoryStream; begin ms:=TMemoryStream.Create; try TBLOBField(DataSet.FieldByName("MyBlobField")).SaveToStream(ms); ms.Position:=0; Image1.Picture.Graphic.LoadFromStream(s); finally ms.Free; end; end;

← →
Ega23 © (2006-03-17 16:08) [2]

> LoadFromStream(s);

Конечно, LoadFromStream(ms);

← →
RomanH © (2006-03-17 16:50) [3]

Извените за назойливость,но ошибка опять появляется на строке
Image1.Picture.Graphic.LoadFromStream(ms);
Не знаю что делать.Подскажите пожайлусто.

← →
Ega23 © (2006-03-17 16:55) [4]

У тебя это JPEG?
Тогда так:

var ms:TMemoryStream; jpg:TJPEGImage; begin ms:=TMemoryStream.Create; jpg:=-TJPEGImage.Create; try TBLOBField(DataSet.FieldByName("MyBlobField")).SaveToStream(ms); ms.Position:=0; jpg.LoadFromStream(ms); Image1.Picture.Assign(jpg); finally jpg.Free; ms.Free; end; end;

> jpg:=-TJPEGImage.Create;

Минус - лишний... :о)

Уважаемый Олег Вячеславович(Ega23) огромное Вам Спасибо.За ваш подробный код.

Извлечение Jpeg из таблицы в Image Найти похожие ветки