- var
- UniConnection: TUniConnection;
- UniQuery: TUniQuery;
- begin
- UniConnection:= TUniConnection.Create(nil);
- UniQuery:= TUniQuery.Create(nil);
- UniConnection.ProviderName := 'ORACLE';
- UniConnection.SpecificOptions.Clear;
- UniConnection.SpecificOptions.Values['Direct'] := 'True';
- UniConnection.Server := 'host:port:database';
- UniConnection.Username := 'username';
- UniConnection.Password := 'passwd';
- UniConnection.Connect;
- UniQuery.Connection := UniConnection;
- UniQuery.SQL.Text := 'insert into temp3 (a4,a6) values (:a4,:a6)';
- UniQuery.ParamByName('a4').AsString := 'pic1';
- UniQuery.ParamByName('a6').ParamType := ptInput; //这句是必要的
- UniQuery.ParamByName('a6').LoadFromFile('1.jpg',ftOraBlob);
- UniQuery.Execute;
- end;
如果加这句UniConnection.SpecificOptions.Values['UseUnicode'] := 'True';就执行报错
本文介绍使用Delphi通过UniDAC组件向Oracle数据库插入Blob数据的方法。具体展示了如何创建连接、设置参数并执行SQL插入语句。需要注意的是,设置UniConnection.SpecificOptions.Values['UseUnicode']为'True'会导致执行错误。
393

被折叠的 条评论
为什么被折叠?



