Delphi调用oracle包的方法

调用方法如下:

with ClientDataSet1 do
  begin
    close;
    CommandText :='begin sajet.Pkg_Test.GetTestValue(:o);end;';
    Params.Clear;
    Params.CreateParam(ftWideString,':o',ptOutput).Size:=100; //如果是字符串,则请指定尺寸大小,否则没有返回值.
    execute;
    ShowMessage(Params[0].asstring);
  end;

如果输出值为数据集,则用Params.CreateParam(ftcursor,':o',ptOutput), 用Open打开数据集,就可以直接操作数据集了.