CreateCredentials(Authentication: AuthenticationMode): ICredentials;
Authentication. Используемый тип аутентификации.
Метод CreateCredentials создает учетные данные репозитория с заданным типом аутентификации.
Sub Main;
Var
Package: ISecurityPackage;
OracleSPLD: IPrimaryOracleSPLD;
Cred: IPasswordCredentials;
Connection: ISecurityConnection;
ColCur: IDalColumns;
Field: IDalCursorField;
Begin
Package := New StandardSecurityPackage.Create;
OracleSPLD := Package.CreateLogonData("ORCL") As IPrimaryOracleSPLD;
OracleSPLD.Scheme := "Test_Schema_ORCL";
OracleSPLD.Server := "Test_ORCL";
Cred := Package.CreateCredentials(AuthenticationMode.Password) As IPasswordCredentials;
Cred.UserName := "TestUser";
Cred.Password := "TestUser";
Connection := Package.PerformLogon(True, OracleSPLD, Cred);
ColCur := Connection.Columns("Table_1");
While Not ColCur.Eof Do
For Each Field In ColCur.Fields Do
Debug.WriteLine(Field.Name + " " + Field.Value);
End For;
Debug.WriteLine("");
ColCur.Next;
End While;
ColCur.Close;
End Sub Main;
После выполнения примера будет осуществлено новое подключение к схеме "Test_Schema_ORCL", расположенной на сервере "Test_ORCL", с указанными учетными данными. Будет получена и выведена в консоль среды разработки системная информация о таблице "Table_1", если таковая имеется в данной схеме.
См. также: