IDalConnection2.Clone

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

Sub UserProc;
Var
    Driver: IDalDriver;
    SchemeName: string;
    Connect: IDalConnection;
    CloneConnect: IDalConnection;
    Connect2: IDalConnection2;
    ConnectDesc: IDalConnectionDescriptor;
    ConnectDesc2: IDalConnectionDescriptor2;
    Params: IDalConnectionDescriptorParams;
Begin
    driver := New DalOrcl8Driver.Create;
    SchemeName := "Schema";
    ConnectDesc := Driver.CreateDescriptor;
    Params := ConnectDesc.Params;
    Params.Find("User Name").Value := "Warehouse";
    Params.Find("Password").Value := "Warehouse";
    Params.Find("Host BSTR").Value := "TestServer";
    Params.Find(SchemeName).Value := "Warehouse";
    Connect := ConnectDesc.CreateConnection As IDalConnection;
    ConnectDesc2 := ConnectDesc As IDalConnectiondescriptor2;
    Connect2 := Connect As IDalConnection2;
    CloneConnect := Connect2.Clone(DalConnectionType.FastInsert);
End Sub UserProc;