Unidac如何调用Oracle12c包和存储过程
直接上代码:
var
aStore: TUniStoredProc;
begin
aStore := TUniStoredProc.create;
.....省略
with aStore do
begin
Close;
StoredProcName := 'TEST.PKG_DEMO.mytest';
//Prepare;
Params.CreateParam(ftString,'ID',ptInput);
Params.CreateParam(ftString,'CNAME',ptInput);
Params.CreateParam(ftString,'RESULT',ptOutput);
ParamByName('ID').AsString := '0001';
ParamByName('CNAME').AsString := '张三'
Execute;
end;
showmessage(aStore.ParamByName('PRESULT').AsString);
end;