如何给sql server的image型的字段赋值？

Question

1.第一个问题：
var
   msGly: TMemoryStream;
begin
   msGly := TMemoryStream.Create;
   Image1.Graphic.SaveToStream( msGly );
   msGly.Position := 0;
   with Query do
   begin
      <....>
      ParamByName( 'b_image' ).LoadFromStream( msGly, FtBlob );
      <....>
      ExecSql;
   end;2.这个没有试过.

Answer 1

修正：
    Image1.Graphic.SaveToStream( msGly );
    应当为： 
    Image1.Picture.Graphic.SaveToStream( msGly );
   
   

Answer 2

你可以参考一下下面的例子：procedure TForm1.Button1Click(Sender: TObject);
var
  graphic1: TBitMap;
begin
  if OpenDialog1.Execute then
  begin
    graphic1 := TBitMap.Create;
    graphic1.LoadFromStream(OpenDialog1.FileName);
    table1.insert;
    table1.FieldByName('Name').AsString := 'New Animal1';
    table1.FieldByName('Area').AsString := 'New Area1';
    table1.FieldByName('Weight').AsFloat := 11;
    table1.FieldByName('Size').AsFloat := 11;
    table1.FieldByName('BMP").assign(graphic1);
    table1.post;
    graphic1.free;
  end;
end;

Answer 3

又一个问题，我在窗体中怎么显示table1中的图片呢？