Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Мне нужен GUID в виде числа, как опьсать?

Kolan © (2007-04-16 11:14:00)
Мне надо написать функции принимающи/возвращающие GUID в виде числа.
Если бы это был Integer, то я написал бы так:
function GetGUID: Integer;

А как быть в этом случае? GUID же 128 битный…

TUser (2007-04-17 08:42:00) [1]
Это пиратский калькулятор, а говорят не отличимо от настоящего :)

Johnmen (2007-04-16 17:43:00) [2]

> Гдэ брал такой калкулaтор, дарагой?

Пуск - Все программы - Стандартные - Калькулятор

clickmaker (2007-04-16 17:38:00) [3]

> калькулятор при делении 128 на 2 без остатка показывает
> 127

Гдэ брал такой калкулaтор, дарагой?

Johnmen (2007-04-16 17:34:00) [4]

> Игорь Шевченко © (16.04.07 17:23) [15]

Чё-то калькулятор при делении 128 на 2 без остатка показывает 127.
:)

Игорь Шевченко (2007-04-16 17:23:00) [5]
Johnmen © (16.04.07 17:15) [14]

> Это вопрос?

Нет, это арифметика :)

Johnmen (2007-04-16 17:15:00) [6]

> Игорь Шевченко © (16.04.07 16:49) [12]
> Делением на 2 без остатка

Это вопрос? Или ты подглядывал в мои сырцы? :)

clickmaker (2007-04-16 17:10:00) [7]

> > Посмотрел у себя. 128 приводится к 64.
>
>
> Делением на 2 без остатка

GUID Light?

Игорь Шевченко (2007-04-16 16:49:00) [8]

> Посмотрел у себя. 128 приводится к 64.

Делением на 2 без остатка

Kolan (2007-04-16 11:40:00) [9]
Все, я понял. Благодарю.

Johnmen (2007-04-16 11:35:00) [10]
uses ActiveX;
var ClassID: TGUID;
CoCreateGuid(ClassID);

Сергей М. (2007-04-16 11:34:00) [11]

> Как правильно вызвать?

var
GUID: TGUID;

CreateGuid(GUID);

Kolan (2007-04-16 11:32:00) [12]
TGUID = packed record D1: Longword; D2: Word; D3: Word; D4: array[0Թ] of Byte;

Разве подходит для: ?

['{0C229F3E-18FE-4772-A85D-A3DEA31AABFC}']

Упрощю. Как правильно вызвать?:
HRESULT CoCreateGuid( GUID * pguid );

Сергей М. (2007-04-16 11:31:00) [13]

> Где описан?

В system.pas

Johnmen (2007-04-16 11:30:00) [14]
Посмотрел у себя. 128 приводится к 64.

Johnmen (2007-04-16 11:29:00) [15]
Виноват.. :( Неправ... Сыплю на голову пепел...

Johnmen (2007-04-16 11:28:00) [16]
Вот F1
TGUID = packed record D1: Longword; D2: Word; D3: Word; D4: array[0..7] of Byte;

Kolan (2007-04-16 11:24:00) [17]
64-битный. Если мы говорим о TGUID.
Вот вроде бы так:
The CoCreateGuid function calls the RPC function UuidCreate, which creates a GUID, a globally unique 128-bit integer

> TGUID

Где описан? В правке нет :(

Johnmen (2007-04-16 11:22:00) [18]

> А как быть в этом случае? GUID же 128 битный…

64-битный. Если мы говорим о TGUID.

Сергей М. (2007-04-16 11:21:00) [19]
function GetGUID: TGUID;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »