Работа с изображениями

← →
Inkotex (2003-12-11 19:36) [0]

Возникла вот такая проблема.
Как сделать так чтоб в своей програме (работа с базой даных) я мог хранить некоторые избражения, которые потом мог выводить(использовать) при определенных условиях, но не в самой базе?

← →
Denis © (2003-12-12 09:16) [1]

Для себя я написал следующую процедуру:
procedure ShowImage(Table:TBlobField;Jim:TImage;);

Procedure TfmEditing.ShowImage; var FName :string; Stream:TMemoryStream; Img:TJpegImage; Rect:TRect; begin Img:=TJpegImage.Create; Rect.Left:=0; Rect.Top:=0; Rect.Right:=Jim.Width; Rect.Bottom:=Jim.Height; //пишем из файла в память FName:=OpenDialog1.FileName; Stream:=TMemoryStream.Create; Stream.LoadFromFile(FName); //и из памяти в поле таблицы Stream.Position:=0; Table.LoadFromStream(stream); Streem.Free; end; //сразу же считываем из таблицы в память - как бы проверка if not Table.IsNull then begin Stream:=TMemorystream.Create; Table.SaveToStream(Stream); //и прорисовываем на форме streem.Position:=0; try Img.LoadFromStream(Stream); Jim.canvas.StretchDraw(Rect,Img) except begin Img.Free; end; end; Stream.Free; end else //если поле таблицы пусто begin Jim.Canvas.Brush.Color:=fmEditing.Color; Jim.Canvas.Rectangle(0,0,Jim.Width,Jim.Height); end; Jim.Free; end;

Работа с изображениями Найти похожие ветки