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