Текущий архив: 2004.01.09;
Скачать: CL | DM;

Вниз

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

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

---

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

Текущий архив: 2004.01.09;
Скачать: CL | DM;

Наверх

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