有关TDBImage的问题

Question

c:\program Files\Borland\Delphi 5.0\Demos\Fishfact
有这样的例子，去好好看看吧！
记得给我送分。

Answer 1

将DBIMAGE的FIELD属性设为TABLE的相应FIELD即可

Answer 2

可能我没有说清楚，a窗体中有一个DBImage,他指向一个Table的一个Field,现在我要把a中的DBImage中的图象存入b窗体中的另一个Table.FieldValues['SomeField']

Answer 3

你可以设计一个界面专门用于添加照片，然后用loadfromfile的方法。
begin
  tu := edit1.text;
  if (tu = '*.bmp') or (tu = '*.jpg') or (tu = '*.*') or (tu = '*.wmf') then
    begin
      showmessage('没有选中照片,请重新选择');
    end
  else
    if (FileExt <> '.BMP') then
      begin
        showmessage('你选的不是照片文件，请重选！');
      end
    else
      begin
        renshiform.dbimage1.Picture.LoadFromFile(tu);
        renshiform.dbimage1.loadpicture;
        renshiform.Enabled := true;
        close;
      end;
end;