动态生成一个IMAGE控键,怎样把IMAGE中的图片保存在数据库中,

Question

动态生成一个控键,怎样保存在数据库中,
  在数据库中对信息进行查看.

Answer 1

用DBImage控件联系数据库image字段。用LoadFromFile(FileName)来加载;

Answer 2

shuaigc:
    我的意思是根据我的需要 ,动态的生成多个image组成的图形,我要把他保存在数据库中,
    并且我要显示的时候必要 还是我原来的哪个形状是不是他的做标多要保存呢!

Answer 3

procedure TForm1.SaveImage(AImage : TImage);
var
  Stream1: TBlobStream;
begin
  //TableNotes为TBlobField字段，
  Stream1 := TBlobStream.Create(Table1Notes, bmRead);
  try
      AImage.Picture.bitmap.SaveToStream(Stream1);
  finally
    Stream1.Free;
  end;
end;

Answer 4

langfei:
  不太懂!你是生成一个图保存一次还是怎样呢?
  你是有流的形式你说清楚一点怎样?

Answer 5

xie81965 (administrator)  ：来，看看（声明：别人的代码，忘了）
向SQL Server插入记录相信大家都会做，但是如果表中带有Image字段就不好弄了，这里有一个例子，非常安全，同时也向大家展示动态生成控件的技巧（对高手来说班门弄斧了）！
在SQL Server中建立TEST表，两个字段，id varchar(10),photo image(16);procedure TForm1.BitBtn1Click(Sender: TObject);
begin
openpicturedialog1.execute;
image1.picture.loadfromfile(openpicturedialog1.filename);
end;procedure TForm1.BitBtn2Click(Sender: TObject);
var
graphic1:Timage;
begin
graphic1:=Timage.Create(self);
graphic1.picture.loadfromfile(openpicturedialog1.filename);
table1.Open;
table1.insert;
table1.fieldbyname(’id’).asstring:=’121’;
table1.fields[1].assign(graphic1.Picture);
table1.post;
table1.close;
graphic1.free;
end;
显示可用：
DBIMAGE控件显示！
谢谢高手指教！

Answer 6

procedure TForm1.Button1Click(Sender: TObject);
var
  bu:tbutton;begin
  randomize;
   bu:=tbutton.Create(nil);
   bu.Parent :=form1;
   bu.Left :=random(300);
   bu.Top  :=random(300);
    bu.Top :=i;
    bu.SetFocus ;
   bu.Caption :='ca'+inttostr(i);
  // bu.Top :=i;
  strarray[i]:=bu.Caption ;
   inc(i);
   bu.OnClick :=form1.Button2Click;
end;
  我点中这些控件不知道是第几个;