IDalConnection.Procedures

Копировать пример

Sub UserProc;
Var
    Driver: IDalDriver;
    Connect: IDalConnection;
    ProcCur: IDalProcedures;
    ConnectDesc: IDalConnectionDescriptor;
    ConnectDescParams: IDalConnectionDescriptorParams;
    ColFields: IDalCursorFields;
    ColField: IDalCursorField;
    i: Integer;
Begin
    Driver := New DalOrcl8Driver.Create;
    ConnectDesc := Driver.CreateDescriptor;
    ConnectDescParams := ConnectDesc.Params;
    ConnectDescParams.Find("User Name").Value := "User";
    ConnectDescParams.Find("Password").Value := "Password";
    ConnectDescParams.Find("Host BSTR").Value := "OrclServer";
    ConnectDescParams.Find("Schema").Value := "Repository";
    Connect := ConnectDesc.CreateConnection;
    //Параметры процедуры Proc_1
    ProcCur := Connect.Procedures("Proc_1");
    ColFields := ProcCur.Fields;
    //Просмотр параметров и их значений
    While Not ProcCur.Eof Do
        i := i + 1;
        Debug.WriteLine("Номер параметра: " + i.ToString);
        Debug.Indent;
        For Each ColField In ColFields Do
            Debug.WriteLine(ColField.Name + " = " + ColField.Value);
        End For;
        Debug.Unindent;
        ProcCur.Next;
    End While;
    ProcCur.Close;
    Connect.Close;
End Sub UserProc;