求代码：用DEPHLI实现将一个表中的LONG RAW 字段插入到另外一个表的LONG RA字段(100分)

我用ODAC 的ORAQUERY控件
procedure TForm1.Button1Click(Sender: TObject);
var
begin
adoquery1 do
begin
close;
sql.clear;
sql.add('select * from lsq_long where 1=1');
open;
first;
while not adoquery1.Eof do
begin
TBlobField(adoquery1.Fields[1]).SaveToFile('c:/1.jpg')
oraquery1.Close;
oraquery1.SQL.clear;
oraquery1.SQL.add('insert into bbscs.lsq_blob(a,b)valuesa,:b)');
oraquery1.parambyname('a').value:='1';
oraquery1.parambyname('b').LoadFromFile ('c:/1.jpg',ftBlob);--执行到这边的时候出行 DATA TYPE IS NOT SUPPORT错误。！
oraquery1.ExecSQL;
adoquery1.Next;
end;
注意，以上用ORAQUERY用ADO的QUERY1控件可以成功！但用ODAC的ORAQUERY就不行



end ;
end;

结束问题，已经可以了