CLSID

← →
Denis__ © (2008-01-01 17:28) [0]

Здрасте. Всех с прошедшим:)
Не подскажите, как сгенерировать уникальный CLSID?
Всем спосибо.
Ещё раз с праздником.

← →
tesseract © (2008-01-01 17:36) [1]

вроде ctrl+alt+G. Учти новый год :-)

← →
Riply © (2008-01-01 17:37) [2]

У меня Ctrl + Shift + G

← →
Denis__ © (2008-01-01 17:38) [3]

> tesseract © (01.01.08 17:36) [1]

Cпасибо, но мне надо при выполнении программы:) Не знаешь как?

← →
Denis__ © (2008-01-01 17:40) [4]

> У меня Ctrl + Shift + G

Да, у меня тоже. :)

← →
Riply © (2008-01-01 17:41) [5]

CreateGUID ?

← →
Denis__ © (2008-01-01 17:45) [6]

> Riply ©

Спасибо!

← →
isasa © (2008-01-01 18:02) [7]

Riply © (01.01.08 17:41) [5]

CreateGUID ?
Ай-яй-яй-.
Так скоро гуидов на всех не хватит. Нельзя так сразу тайну говорить.

А зачем в ран-тайме гуид?

← →
Denis__ © (2008-01-01 19:16) [8]

f
> А зачем в ран-тайме гуид?

Хочу добавить команду к меню "Сервис" и кнопку на панель инструментов в Internet Explorer. Для этого нужен 32 - ух значный CLSID.
Делаю так
function ByteArrayToHex(BA : array of Byte) : String; var i : Integer; begin Result:=""; for i:=0 to Length(BA)-1 do begin Result:=Result+IntToHex(BA[i],1); end; end; procedure TForm1.Button1Click(Sender: TObject); var g : TGUID; begin CreateGUID(g); Edit1.Text:= IntToHex(g.D1,4)+"-"+ IntToHex(g.D2,4)+"-"+ IntToHex(g.D3,4)+"-"+ ByteArrayToHex(g.D4); end;
Вопрос : дурак ли я, и если да, то где?:)

> Denis__ © (01.01.08 19:16) [8]

Я так понял, что я дурак:))
Но вот где?
Нормальный GUID:
{8016DCA9-E100-442C-B103-F612ACDFC674}
То, что получилось у меня:
{9342CAEA-B450-4B41-912F2BCCF2A38374}
Как мне получить нормальный GUID?

Всё, дошло:)
GUIDTOString:
{250B3DEF-EF61-441D-A99C-ABD322A0E3E2}
То, что я сделал:
{250B3DEF-EF61-441D-A99CABD322A0E3E2}

Вообще, конечно [5]. Но еще можно на время существования кода (?) создать таблицу с одним полем, оно же ключ. И генератор! Добавить в проект TQuery с выбором (и увеличением) его. Ну и триггер, естественно. Годится Interbase, яфел и прочие "огненные птицы"... :) Блин, устал смеяться - а ведь только первое... :))

CLSID Найти похожие ветки