Devart Forums

Code: Select all

       sSQL := 'begin  dbms_output.get_line(:LINE, :STATUS); end;';
        OutPutSQL := TOraSQL.Create(Self);
        OutPutSQL.Session := SQLSession;
        OutPutSQL.SQL.Text := sSQL;
        With OutPutSQL.ParamByName('STATUS') do
        begin
          DataType := ftFloat;
          ParamType := ptOutput;
          Value := 1;
        end;
        With OutPutSQL.ParamByName('LINE') do
        begin
          DataType := ftWideMemo;
          ParamType := ptOutput;
          Value := '';
        end;
        OutPutSQL.Execute;