你能帮帮我吗？

Question

还有，我定义图片的字段是image的，对不对？
没有可用分了，如果你觉的少，我以后再给你；
不信可以问ihihonline(小小)；
我上次给他补过的;

Answer 1

你的意思是什么呀！
我听不懂；
是不是就是只保存图片的路径；
那么字段如何设置呀？
我上边就是保存的路径呀，
dbimage1.loadfromfile(openpicturedialog1.filename); 

Answer 2

那种方法好啊？
如何试呀？
还要，如何知道这个图片保存进去了呀？
到那儿看？
用dbimage能不能动态的显示出来呢？
各位大哥，请你们帮一帮忙好吗？

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
begin
  if openpicturedialog1.Execute then
  begin
   query1.Insert ;
   query1.fieldbyname('xm').asstring:=edit1.text;
   dbimage1.Picture.LoadFromFile(openpicturedialog1.filename);
   query1.post;
   query1.close;
   query1.open;
  end;
end;
呵呵；
就是这样啊；

Answer 4

哈哈，我知道，告诉你你要给分哦，
下面将一幅Image的图片保存到Photo字段中去了,使用写流
var
  aBlobField: TBlobStream;
begin    aBlobField := TBlobStream.Create(TBlobField(FieldByName('Photo')),bmReadWrite);
    if  UserImg.Picture.Graphic <> nil then
      UserImg.Picture.Graphic.SaveToStream(aBlobField);
    Post;
    aBlobField.Free;
end;

Answer 5

呵呵
xgto的信誉我可以作证的；
你就放心吧；

Answer 6

TO ihihonline(小小);
谢谢哦；
作出来了；还有清空哦；
procedure TForm1.Button1Click(Sender: TObject);
begin
  if openpicturedialog1.Execute then
  begin
   query1.Edit ;
   dbimage1.Picture.LoadFromFile(openpicturedialog1.filename);
   query1.post;
   query1.close;
   query1.open;
  end;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  query1.Edit ;
  query1.fieldbyname('xb').value:=null;
  query1.Post ;
  query1.close;
  query1.open;
end;TO maoke000(老茂) @^@谁呀？
嘻嘻，你不相信我呀？为什么呢？
嗯，你的方法，我不太明白，能不能再给我说说呢？