Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / guid / 5 сообщений из 5, страница 1 из 1
16.12.2007, 17:29
    #35013110
pitermax
pitermax
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guid
Добрый день! вопрос собственно такой как в VFP получить аналог структуры GUID из VB.NET
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.12.2007, 22:35
    #35013379
Bl@ze¶ox
Bl@ze¶ox
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guid
Ответ как вопрос:

Создать свой класс на основе класса custom...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.12.2007, 23:42
    #35013446
Dag
Dag
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guid
А для чего Вам нужен GUID?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.12.2007, 17:38
    #35015552
pitermax
pitermax
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guid
Для работы Com объекта. Вот строчка кода в VB которая меня интересует.
m_ModuleConfig.SetValue(New Guid(SMM_Defs.SMAT_TrimList), var)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.12.2007, 18:46
    #35015748
ВладимирМ
ВладимирМ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guid
И что этот код должен делать? Вам надо значение GUID получить? Если у Вас установлен WindowsXP, то можно так:

Код: plaintext
1.
2.
3.
loGUID = CreateObject("scriptlet.typelib")  
lcGUID = substr( loGUID.GUID,  2 ,  36  )
?lcGUID

Нужна WindowsXP, потому что, кажется, только в ней появилась библиотека scrobj.dll из которой и можно таким простым способом получить GUID.

Если же операционка младше и в ней нет этой библиотеки, то придется через API-функции. Примерно так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Declare integer UuidCreate in rpcrt4.dll string @  
Declare integer UuidToString in rpcrt4.dll string @, integer @  
Declare integer RpcStringFree in rpcrt4.dll integer  
    
lcUUID=Replicate(Chr( 0 ), 16 )  
lnUUID= 0   
lcStringUUID=Replicate(Chr( 0 ), 36 )  
    
UUidCreate(@lcUUID)  
UUidToString(@lcUUID, @lnUUID)  
lcStringUUID=Sys( 2600 ,lnUUID, 36 )  
RpcStringFree(lnUUID)  
? lcStringUUID

Примеры взяты отсюда http://forum.foxclub.ru/read.php?29,296648,page=1 заодно и обсуждение почитай.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / guid / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 439ms
Закрыть
start [/forum/topic.php?fid=41&tablet=1&tid=1588398]:
 0ms
get settings:
 9ms
get forum list:
 17ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 133ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 49ms
get tp. blocked users:
 2ms
others: 212ms
total:  439ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]