delphi中替换图片问题。

Question

我已经做好了保存图片到数据库，也能显示在Image中。现在我想双击Image（当然还有OpenPictureDialog1），选择其他的图片，然后修改按钮。这样，我就把原来的图片给换了。求怎么解决？

Answer 1

这是我制作的屏保保存图片的代码;
var
  Strm: TMemoryStream;
  vDir:String;
begin
  if frmMain.ImgView.Picture.Graphic <> nil then
  begin
    vDir:=ExtractFileExt(OpenDialog1.FileName);
    Strm:=TMemoryStream.Create;
    try
      frmMain.ImgView.Picture.Graphic.SaveToStream(Strm);
      with DM.qryImage do
      begin
        Close;
        SQL.Text:='Select * from Image where Num = '???';
        Open;
        if not IsEmpty then
        begin
          Edit;
          Strm.Position:=0;
          TBlobField(FieldByName('Image_List')).LoadFromStream(Strm);
          Post;
        end;
      end;
    finally
      Strm.Free;
    end;
  end;
end;

Answer 2

再问个问题。我的Sex在SQL中是nchar类型
别人说叫我改成bit类型我在ComboBox中显示的是男、女，存进去是1、0读取的1、0，显示的是男、女
该怎么解决呢？