GUID

← →
saska (2003-10-10 14:40) [0]

День добрый мастаки. А не подскажет ли мне кто: есть ли в виндовс com - объекты позволяющие генерировать GUID??? (вызов CoCreateGuid API не предлагать). Заранее благодарен.

← →
sts © (2003-10-10 14:41) [1]

Сделай сам.
Раньше до этого вряд ли кто додумался.

← →
Skier © (2003-10-10 14:41) [2]

> вызов CoCreateGuid API не предлагать

Религия мешает ?

← →
saska (2003-10-10 14:46) [3]

2Skier:
Да нет, просто генерить гуиды надо... из VB скрипта, а там с апаи тяжко...

2sts:
думал есть чего стандартное...

← →
Skier © (2003-10-10 14:48) [4]

>saska (10.10.03 14:46) [3]

> а там с апаи тяжко...

DLL использовать тяжко ?!

← →
saska (2003-10-10 14:50) [5]

2Skier:
угу... даже не представляю как в VB скрипте ф-цию из DLL загрузить...

← →
saska (2003-10-10 14:51) [6]

2Skier:
угу... даже не представляю как в VB скрипте ф-цию из DLL загрузить... А с COM"ом было бы все проще...

← →
Skier © (2003-10-10 14:52) [7]

>saska (10.10.03 14:50) [5]
Намыливай верёвку ! :)

← →
saska (2003-10-10 14:54) [8]

2Skier:
Уже...))) придется саммому сочинять какую-нить уникальную идентификацию... иль ком написать...

← →
Skier © (2003-10-10 14:55) [9]

Да точно ! Напиши COM, он как раз здесь необходим !

← →
Rouse_ © (2003-10-10 15:00) [10]

> даже не представляю как в VB скрипте ф-цию из DLL загрузить...

Также как и везде, LoadLibrary + GetProcAddress

Желаю успехов

← →
saska (2003-10-10 15:01) [11]

2Skier:
смейтесь, смейтесь... а как иначе то?

Ааа это скрипт, что-то не дочитал. Ну тады не знаю, не мой профиль (я думал в обычном VB)

Желаю успехов

Напиши маленький сом-объект(InProc) с одной функцией :
coCreateGUID :-)))

> Rouse_ © (10.10.03 15:00) [10]
> Также как и везде, LoadLibrary + GetProcAddress
Ну-ну... В VBScript... LoadLibrary...
> Желаю успехов

Когда понадобилось, единственный способ, который нашел (кроме реализации COM объекта руками):
guid = mid(CStr(CreateObject("Scriptlet.TypeLib").Guid), 1, 38)

Обращу внимание, почему стоит такая куча преобразований.
Если их не делать, в переменной с результатом находится ... я даже и не знаю что...
TypeName(guid) = "String" (vt = VT_BSTR)
len(guid) = 40 (!!!)
guid(40) = "d"
Я это значение в дальнейшем в поле Recordset"а с типом adVarChar пытался присвоить и получал Application uses wrong....
Модет кто-то подскажет, что за хрень может там лежать?

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