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';就执行报错

©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页