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