Преобразование GUID

[Medved_]

Задача:
На входе переменная ID_ типа Variant/GUID из внешнего приложения.
Ее структура: (Int32 - Long, Int16 - Integer, Int16 - Integer, Byte, Byte, Byte, Byte, Byte, Byte, Byte, Byte)

Вопрос: Как в VB6 (v6.0.8169) получить из этой переменной нормальную строку GUID ?

ЗЫ: Функция StringFromGUID2 из Lib "OLE32.DLL" - не работает. Type mismatch.

[ANDLL]

UuidToString, нормально надо объявить...

[Medved_]

UuidToString, нормально надо объявить...

Прошу прощения, но вот счас пытаюсь понять как работать с этой функцией - VB падает 2й раз!!!
Прошу Вас, не будите ли Вы столь любезны, привести кусок ПРАВИЛЬНОГО кода использования данной функции???

[GSerg]

Все функции этого раздела объявлены в ApiViewer'е через ж.

Код: Выделить всё

Option Explicit

Private Declare Function StringFromGUID2 Lib "ole32.dll" (rguid As Guid, ByVal lpsz As Long, ByVal cchMax As Long) As Long

Private Type Guid
  Data1 As Long
  Data2 As Integer
  Data3 As Integer
  Data4(0 To 7) As Byte
End Type


Private Sub Form_Load()
  Dim g As Guid, s As String
 
  s = String$(100, 0)
 
  StringFromGUID2 g, StrPtr(s), 100
 
  MsgBox s
End Sub

[tyomitch]

Код: Выделить всё

Option Explicit

Private Declare Function StringFromGUID2 Lib "ole32" (rguid As GUID, ByVal lpsz As Long, ByVal cchMax As Long) As Long
Private Type GUID
    Data1 As Long
    Data2 As Integer
    Data3 As Integer
    Data4(0 To 7) As Byte
End Type

Sub Main()
Dim g As GUID
   With g 'IID_IPicture
        .Data1 = &H7BF80980
        .Data2 = &HBF32
        .Data3 = &H101A
        .Data4(0) = &H8B
        .Data4(1) = &HBB
        .Data4(2) = &H0
        .Data4(3) = &HAA
        .Data4(4) = &H0
        .Data4(5) = &H30
        .Data4(6) = &HC
        .Data4(7) = &HAB
    End With
Dim s As String: s = Space(40)
    StringFromGUID2 g, StrPtr(s), Len(s)
    Debug.Print s '{7BF80980-BF32-101A-8BBB-00AA00300CAB}
End Sub


[edit]лол, один-в-один [/edit]

[Medved_]

Ребята! Спасибо. Но я уже ее попробовал.
Во внешнем приложении, похоже, пользуется вот этот конструктор - http://msdn.microsoft.com/library/en-us/cpref/html/frlrfSystemGuidClassctorTopic4.asp (с MSDN-а)...
Как видно, со структурой GUID - не совпадает.
И, посему, функция валится. Бесшумно. Но напрочЪ.
Если я заменяю объявление "rguid As Guid" на "rguid As Any", что б "подсунуть" мою переменную ID_ - происходит фигня:
1. При каждом новом запуске я получаю НОВЫЙ GUID (строку)...
2. Отловил возврат одинаковых строк на разные ID_...

**крик** СПАСИИИИТЕЕЕЕЕ !!!!

[GSerg]

Какое внешнее приложение?
Причём тут .NET?
Если .NET причём, то почему бы не Guid.ToString?

[Medved_]

вот что я в отладчике вижу:

[Medved_]

вот что я вижу в отладчике

[Medved_]

Какое внешнее приложение?
Причём тут .NET?
Если .NET причём, то почему бы не Guid.ToString?

Это я поискал что-то похожее на видимую мной структуру... От безысходности...
.NET тут нипричем...

[GSerg]

Картинка с народа...
Эх...

Ещё раз.
[cut]Причём здесь .NET и[/cut] какое ещё внешнее приложение?

[Medved_]

Картинка с народа...
Эх...

Ещё раз.
[cut]Причём здесь .NET и[/cut] какое ещё внешнее приложение?

1. .NET нипричем.
2. А хрен его знает... Мне дали список объектов, с которыми можно работать - пишу вот оболочку.

[GSerg]

То есть ты работаешь сам не знаешь с чем?

[tyomitch]

Medved_, блин, просто удали объявление типа GUID у себя тогда.

[Medved_]

Medved_, блин, просто удали объявление типа GUID у себя тогда.

Если б все так просто... VB сразу начинает ругаться на все. А при присвоении типа ANY - я уже сказал, что я получаю...

[Medved_]

То есть ты работаешь сам не знаешь с чем?

БД документооборота. Ядро писал не я. Написано на С#.

[GSerg]

Ядро написано на C#, а .NET ни при чём?
Ты всё-таки определись, что ты делаешь и что тебе надо.

[Medved_]

Ядро написано на C#, я пишу оболочку на VB.
Все!

ЗЫ: Вы сами не зацикливайтесь - ссылка на MSDN была приведена для примера - это просто я нашел похожую структуру, которую я вижу перед собой в отладчике.

[GSerg]

Справка.
C# - это .NET.
Конец справки.

Все!

Стрижка только начата.



Теперь.
Что и в какой форме написано на C#, и как ты используешь это из VB?

[tyomitch]

Medved_, блин, просто удали объявление типа GUID у себя тогда.

Если б все так просто... VB сразу начинает ругаться на все. А при присвоении типа ANY - я уже сказал, что я получаю...

Ну чёрт возьми...
Тот Guid, который тебе приходит - это хоть UDT или класс? (посмотри в Object Browser)

[ANDLL]

Может, тебе лучше объявлять функцию как

Код: Выделить всё

Private Declare Function StringFromGUID2 Lib "ole32" (Byval LPrguid As long, ByVal lpsz As Long, ByVal cchMax As Long) As Long

А вызывать так:

Код: Выделить всё

StringFromGUID2 VarPtr(g), StrPtr(s), Len(s)

[GSerg]

В чём разница?

[ANDLL]

Если я правлильно понял, у него GUID объявлен как-то по другому... Однако, если структура GUID'а такая же(если это вообще структура...), то возможно такое объявление позволит избавиться от ошибки Type mismatch...

[GSerg]

Если бы структура GUID была такая же, any помог бы.

[Medved_]

2ANDLL: В общем - та же "бодяга", как и при объявлении "Byval LPrguid As Any"... Неужель из-за такого переходить на другой язык...

2GSerg: Для Вашего сведения .NET это не только C# тамже есть и VB.NET

GSerg: Есть док - ortDC - у него есть уникальный ID - как видно из рисунка. Этот ID я хочу получить в виде строки. Добираюсь до него так: Создаю объект (CreateObject) класса документов - начинаю перебор по существующим документам - смотрю ИД...

2tyomitch: А где это в ОбъектБровзер??? Я ж говорю - ИД это не мой класс! Это я получаю из внешней ДЛЛ! И его тип - Variant/GUID - как видно на рисунке!

[GSerg]

2GSerg: Для Вашего сведения .NET это не только C# тамже есть и VB.NET

.NET - это не только C#, но C# - это только .NET.

Я ж говорю - ИД это не мой класс! Это я получаю из внешней ДЛЛ!

Из какой dll? Как подключена?

[Medved_]

Я ж говорю - ИД это не мой класс! Это я получаю из внешней ДЛЛ!

Из какой dll? Как подключена?

эта бодяга не подключается ч/з ДЛЛ, она зарегена в Виндах с помощью "Microsoft.NET\Framework". И с помощью ф-ии "CreateObject" я создаю объект класса "Документ"...

[tyomitch]

2tyomitch: А где это в ОбъектБровзер??? Я ж говорю - ИД это не мой класс! Это я получаю из внешней ДЛЛ! И его тип - Variant/GUID - как видно на рисунке!

Нажми F2, он появится.
Так что ты там видишь?

[Medved_]

2tyomitch: А где это в ОбъектБровзер??? Я ж говорю - ИД это не мой класс! Это я получаю из внешней ДЛЛ! И его тип - Variant/GUID - как видно на рисунке!

Нажми F2, он появится.
Так что ты там видишь?

Ничего я там не вижу... А что должен?

[Antonariy]

tyomitch
Откуда он возьмется в ОбъектБровзере, если создается поздним связыванием? Да и в референсы не добавишь, потому что это не com, а .net framework класс. Возможно по этому и не помогают все эти телодвижения со StringFromGUID2