高手帮我看一下，用delphi怎么把jpg图片保存到oracle数据库，字段类型为BLOB。谢谢了(30)

高手帮我看一下，用delphi怎么把jpg图片保存到oracle数据库，字段类型为BLOB。谢谢了

procedure save_jpg(Sender:TObject); //JPG图片存到oracle中var pic:Tfilestream; begin pic:=TFileStream.Create('c:/1.jpg',fmOpenRead); adoquery.close; adoquery.sql.text:='select xh,img from table'; adoquery.open; adoquery.append; adoquery.fieldbyname('xh').asinteger:=1; TBlobfield(adoquery.fieldbyname('img')).loadfromstream(pic); adoquery.post; pic.Free; end; procedure read_jpg(Sender: TObject); //从oracle中读取JPG图片 begin adoquery.close; adoquery.sql.text:='select xh,img from table'; adoquery.open; TBlobfield(adoquery.fieldbyname('img')).savetofile('c:/1.jpg'); image1.loadfromfile('c:/1.jpg'); end;

接受答案了.