怎样将扫描出来的图形文件存入paradox数据库的G字段内？

Question

procedure Tform.DBImage1DblClick(Sender: TObject);　　
var　　　  
    filename:string;　　
begin　　　　
   OpenPictureDialog1.Execute;　　　　  filename:=OpenPictureDialog1.filename;　　　 
if filename<>'' then　　     
  begin    　　 
     image1.Picture.LoadFromFile(filename);　　        dbimage1.Picture:=image1.Picture;  　　  
end;　　
end;

Answer 1

如何将已知的图形文件temp.bmp文件存入当前数据库（paradox)中的G字段中呢？

Answer 2

(Table1.FieldByName('G') as TBlobField).LoadFromFile('h:\ll,bmp');—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
    

Answer 3

如果你用table1打开了改表，
你类型是G的字段名是image
你的temp.bmp在e:\，这样写就可以了：
(Table1.FieldByName('image') as TBlobField).LoadFromFile('e:\temp.bmp')

Answer 4

行了，非常感谢netlib(河外孤星)您多次给我的帮助，分数虽少，但愿您满意