使用ODAC调用ORACLE的自定义函数和存储过程

procedure TForm1.btn1Click(Sender: TObject);

var

i:integer;

begin

//预处理

with OraStoredProc1 do

begin

AutoCommit := False;

FetchAll := True;

StoredProcName := 'p_register_user';

params.Clear;

params.CreateParam(ftstring,'v_cn',ptinput);

params.CreateParam(ftstring,'v_password',ptinput);

params.CreateParam(ftstring,'v_ip',ptinput);

params.CreateParam(ftInteger,'b_return',ptOutput);

prepare;

end;

//执行

with OraStoredProc1 do

begin

ParamByName('v_cn').AsString := edt1.Text;

ParamByName('v_password').AsString := edt2.Text;

ParamByName('v_ip').AsString := '192.168.1.1';

ExecProc;

i := ParamByName('b_return').Value;

case i of

0:ShowMessage('AddUser OK.');

1:ShowMessage('User Exists.');

9:ShowMessage('Other Error.');

end;

end;

end;

procedure TForm1.btn2Click(Sender: TObject);

var

str:string;

begin

OraQuery1.Close;

OraQuery1.SQL.Clear;

OraQuery1.SQL.Add('select md5(''aaa'') from user_basic');

OraQuery1.Open;

str :=OraQuery1.fields[0].asstring;

ShowMessage(str);

end;