Создать GUID во время выполнения программы

Delphi , Технологии , COM и DCOM

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

uses
   ComObj, ActiveX;

 function CreateGuid: string;
 var
   ID: TGUID;
 begin
   Result := '';
   if CoCreateGuid(ID) = S_OK then
     Result := GUIDToString(ID);
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   Edit1.Text := CreateGuid;
   // or: Edit1.Text := CreateClassID 
end;

Here's the translation of the text into Russian:

Код, который вы предоставили, написан на Delphi и использует unit ComObj для создания GUID (Глобально уникальный идентификатор) с помощью функции CoCreateGuid из ActiveX-библиотеки.

Вот разбор того, что код делает:

1. Функция CreateGuid не принимает параметров и возвращает строку.
2. Она инициализирует пустую строковую переменную Result.
3. Она вызывает функцию CoCreateGuid, которая создает новый GUID в переменной ID. Если создание успешно (т.е., возвращает S_OK), она устанавливает переменную Result в строковое представление GUID с помощью функции GUIDToString.
4. Обработчик события Button1Click класса TForm1 вызывает функцию CreateGuid и присваивает ее результат свойству Text контроля Edit, имя которого Edit1.

Альтернативное решение, упомянутое в комментариях кода, - это CreateClassID, который создает ID класса вместо GUID. Классы IDs также уникальные идентификаторы, но они используются для различных целей.

Вот предложение по улучшению:

Вместо использования unit ComObj и ActiveX-библиотеки вы можете использовать встроенную функциональность Delphi для создания GUID. Вы можете использовать тип TGuid и его конструктор для создания нового GUID. Вот пример:

function CreateGuid: string;
var
  Guid: TGuid;
begin
  Result  := '';
  Guid  := TGhid.Create;
  Result  := GUIDToString(Guid);
end;

Эта APPROACH более специфична для Delphi и не требует использования ActiveX или COM.

В статье описывается создание GUID (Globally Unique Identifier) в динамике выполнения программы на языке Delphi с помощью ActiveX-компоненты ComObj и функции CoCreateGuid.

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

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

:: Главная :: COM и DCOM ::