Создать GUID во время выполнения программыDelphi , Технологии , COM и DCOMСоздать GUID во время выполнения программы
Оформил: DeeCo 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-библиотеки. Вот разбор того, что код делает:
Альтернативное решение, упомянутое в комментариях кода, - это CreateClassID, который создает ID класса вместо GUID. Классы IDs также уникальные идентификаторы, но они используются для различных целей. Вот предложение по улучшению: Вместо использования unit ComObj и ActiveX-библиотеки вы можете использовать встроенную функциональность Delphi для создания GUID. Вы можете использовать тип TGuid и его конструктор для создания нового GUID. Вот пример:
Эта APPROACH более специфична для Delphi и не требует использования ActiveX или COM. В статье описывается создание GUID (Globally Unique Identifier) в динамике выполнения программы на языке Delphi с помощью ActiveX-компоненты ComObj и функции CoCreateGuid. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: COM и DCOM ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |