Исправление ошибок: преобразование строкового SID в структуру SID с использованием ConvertStringSidToSid в Delphi и Pascal

Delphi , Синтаксис , Справочник по API-функциям

Исправление ошибок: преобразование строкового SID в структуру SID с использованием ConvertStringSidToSid в Delphi и Pascal

Вопрос, поднятый в контексте, заключается в возникновении системной ошибки с кодом 87 при попытке преобразования строкового представления SID (Security Identifier) в структуру SID с помощью функции ConvertStringSidToSid() в среде разработки Delphi. Пример кода, представленный пользователем Branko, демонстрирует вызов этой функции без указания необходимых параметров и типов данных, что приводит к ошибке.

Описание проблемы

Пользователь Branko столкнулся с проблемой при установке прав доступа к папке для группы пользователей "Everyone". Для этого ему необходимо было получить SID этой группы. При вызове функции ConvertStringSidToSid() возникла ошибка с текстом "System Error. Code: 87 - Parameter is incorrect". В коде Branko использовал неверный подход к определению параметра Sid и некорректный тип данных для строки SID.

Пример кода с ошибкой

function ConvertStringSidToSid(StringSid: LPCTSTR; Sid: PSID): BOOL; stdcall;
  external Advapi32 name 'ConvertStringSidToSidW';
...
var
  Sid: PSID;
...
  Sid := Nil;
  ConvertStringSidToSid(LPCTSTR('S-1-1-0'), Sid);
...

Исправление ошибки

Чтобы исправить ошибку, необходимо учесть, что параметр Sid в функции ConvertStringSidToSid() является выходным параметром. Следовательно, в прототипе функции необходимо указать ключевое слово out. Кроме того, использование LPCTSTR с Unicode версией функции (та, что имеет суффикс W) может привести к ошибке, так как в не-Unicode версиях Delphi LPCTSTR будет интерпретироваться как PAnsiChar, и вызов будет осуществляться функции Unicode. Рекомендуется использовать PWideChar напрямую.

Исправленный пример кода

function ConvertStringSidToSid(StringSid: PWideChar; out Sid: PSID): BOOL; stdcall;
  external Advapi32 name 'ConvertStringSidToSidW';
...
var
  Sid: PSID;
  dwSidLength: DWORD;
...
// Выделение памяти для SID
dwSidLength := SizeOf(SID);
GetMem(Sid, dwSidLength);
...
// Вызов функции с корректными параметрами
if not ConvertStringSidToSid(PWideChar('S-1-1-0'), Sid^, dwSidLength) then
  // Обработка ошибки
...

Не забудьте также освободить выделенную память после использования SID.

Заключение

При работе с функциями Windows API, такими как ConvertStringSidToSid(), важно внимательно следить за типами данных и параметрами, которые функция ожидает. Использование ключевого слова out для выходных параметров и правильный выбор типов данных помогут избежать подобных ошибок.

Создано по материалам из источника по ссылке.

Контекст вопроса заключается в исправлении ошибки при преобразовании строкового представления SID в структуру SID с использованием функции ConvertStringSidToSid в среде разработки Delphi и Pascal.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Справочник по API-функциям ::