如何使用Tquery把图片保存到Oracle的Blob字段中？

Question

如何使用Tquery把图片（或某个文件如：Word文件）保存到Oracle的Blob字段中？

Answer 1

var
s:TMemoryStream;
begin
s:=TMemoryStream.Create();
Image1.Picture.Bitmap.SaveToStream(s);
Tquery.Append();
Tquery.FieldByName('f1').asInteger:=GetTickCount();
TBlobField(Table1.FieldByName('f2')).LoadFromStream(s);
Tquery.Post();
s.free;
end;

Answer 2

xxx := FieldbyName('').asblob

Answer 3

TBlobField(table1.FieldbyName('test_word')).LoadFromfile(wordfilename)
TBlobField(table1.FieldbyName('test_word')).SaveFromfile(wordfilename)

Answer 4

TBlobField(Table1.FieldByName('f2')).LoadFromFile('c:\aa.doc');
TBlobField(Table1.FieldByName('f2')).LoadFromFile('c:\aa.doc');