unidac直连oracle导入图片到表中

 

[delphi]  view plain copy

1. var   
2.   UniConnection: TUniConnection;   
3.   UniQuery: TUniQuery;   
4. begin   
5.   UniConnection:= TUniConnection.Create(nil);   
6.   UniQuery:= TUniQuery.Create(nil);  
7.   UniConnection.ProviderName := 'ORACLE';     
8.   UniConnection.SpecificOptions.Clear;  
9.   UniConnection.SpecificOptions.Values['Direct'] := 'True';  
10.   UniConnection.Server := 'host:port:database';    
11.   UniConnection.Username := 'username';  
12.   UniConnection.Password := 'passwd';   
13.   UniConnection.Connect;   
14.   UniQuery.Connection := UniConnection;   
15.   UniQuery.SQL.Text := 'insert into temp3 (a4,a6) values (:a4,:a6)';   
16.   UniQuery.ParamByName('a4').AsString := 'pic1';   
17.   UniQuery.ParamByName('a6').ParamType := ptInput; //这句是必要的  
18.   UniQuery.ParamByName('a6').LoadFromFile('1.jpg',ftOraBlob);    
19.   UniQuery.Execute;   
20. end;  

如果加这句UniConnection.SpecificOptions.Values['UseUnicode'] := 'True';就执行报错