怎么用Delphi把图片存入Oracle数据库？

[laiyijing]

用Delhpi开发客户端应用程序，用户要把本机上的图片存入服务器上的Oracle数据库，以便其他客户机调用。请问该如何实现图片存入？多谢

[ghui]

[Access] [SQL Server] [Oracle]
表
TVImage
ID Integer Int Number(10,0)
Name Text(50) Varchar Char(10)
Image OLE对象 Image BLOB

TVVideo
ID Integer Int Number(10,0)
Name Text(50) Varchar Char(10)
Video OLE对象 Image BLOB
-----------------------------------------------------------

读写方式下的代码：
TBlobField *field;

//:Write
field=(TBlobField *)(ClientDataSet2->FieldByName("Video"));
field->LoadFromFile(OpenDialog1->FileName);

//:Read
field=(TBlobField *)(ClientDataSet2->FieldByName("Video"));
field->SaveToFile(fileName);