ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / guid
5 сообщений из 5, страница 1 из 1
guid
    #35013110
pitermax
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pitermax
Участник
Добрый день! вопрос собственно такой как в VFP получить аналог структуры GUID из VB.NET
...
Рейтинг: 0 / 0
16.12.2007, 17:29
| Ответить | Цитировать | Написать  
guid
    #35013379
Bl@ze¶ox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Bl@ze¶ox
Гость
Ответ как вопрос:

Создать свой класс на основе класса custom...
...
Рейтинг: 0 / 0
16.12.2007, 22:35
| Ответить | Цитировать | Написать  
guid
    #35013446
Dag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dag
Участник
А для чего Вам нужен GUID?
...
Рейтинг: 0 / 0
16.12.2007, 23:42
| Ответить | Цитировать | Написать  
guid
    #35015552
pitermax
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pitermax
Участник
Для работы Com объекта. Вот строчка кода в VB которая меня интересует.
m_ModuleConfig.SetValue(New Guid(SMM_Defs.SMAT_TrimList), var)
...
Рейтинг: 0 / 0
17.12.2007, 17:38
| Ответить | Цитировать | Написать  
guid
    #35015748
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
И что этот код должен делать? Вам надо значение 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
17.12.2007, 18:46
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / guid
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=35013446&tid=1588398]:
 0ms
get settings:
 4ms
get forum list:
 12ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 36ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 179ms
total:  288ms
созд. / загр.: 288ms
x
x
Закрыть


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