老问题，如何把图存到数据库的IMAGE字段中去，请给出源码。

Question

请问：如何把一个图形文件存到数据库的IMAGE字段中去，请给出源码。在此先谢过了！

Answer 1

procedure Tform1.BitBtn1Click(Sender: TObject);
var
Bitmap2:Tbitmap;
Begin
   BitMap2 := TBitMap.Create;
   if OpenDialog1.Execute then
   BitMap2.LoadFromFile(Opendialog1.FileName);
   With DataModule1.OA_PERSON_IMAGE Do
   Begin
       Edit;
       Fields[1].assign(bitmap2);
       Post;
   End;
   BitMap2.Free;
End;
注：Fields[1]对应的字段为能存储图形的字段，比如说Oracle的long row，blob字段

Answer 2

If OpenDialog1.Execute then
    TBlobField(Table1.FieldByName('Image')).LoadFromFile(OpenDialog1.FileName);