使用clientdataset返回plsql块

Question

我在delphi中有以下脚本：

ClientDataSet := TClientDataSet(CriaCdsGenerico(nil));

ClientDataSet.Close;
ClientDataSet.CommandText := 'begin :return := ''aaaaaaa''; end;';
ClientDataSet.Params.ParamByName('return').DataType := ftString;
ClientDataSet.Params.ParamByName('return').Bound := true;
ClientDataSet.Params.ParamByName('return').ParamType := ptOutput;

ClientDataSet.Execute;

ShowMessage(ClientDataSet.Params.ParamByName('return').AsString);

我需要获取plsql块的输出参数的值并显示在showmessage中。 但是，当您运行系统时，返回'No Value for parameter'=''。