Определить тип переменной

[Fencer]

Вот скажите мне - в программе нужен обработчик - если переменная Variant содержит данные вот такого типа, then... Причём Variant может содержать и данные моего, самодельного типа... Это, наверно, глупый вопрос, но вы всё-таки подскажите...

[GSerg]

vartype
typename

[Fencer]

И ещё - не надо, Пожалуйста, давать ответы типа "ВсамомделеглупыйвопросчитайMSDN". Очень, знаете ли, расстраивает, когда опытные, серьёзные люди, которые здесь, чтобы (я думаю) отвечать на вопросы неопытных, сначала объяснят, какой ламер этот неопытный, а потом дадут 2-3 ссылки (одна из них http://msdn.microsoft.com/ либо www.google.ru). Вы уж извините, кого мои слова задели... Наболело

[Fencer]

Спасибо, друг

[FaKk2]

Fencer
Чтобы этого не случилось, просто укажи в описании проблемы, что именно ты предпринял для поиска ответа

А то, такого рода вопросы вызывают искреннее недоумение - "неужели нельзя было воспользоваться Гуглом (6-ая ссылка сверху)."

[Yerro]

Добрый день.
Как это сделать, зная значение указателя на переменную.
И можно ли в таком случае изменить её тип?
Спасибо.

[Хакер]

Чего?

[Viper]

Добрый день.
Как это сделать, зная значение указателя на переменную.
И можно ли в таком случае изменить её тип?
Спасибо.

1. Никак (в VB).
2. Не имеет смысла.
А подробнее, что ты хочешь?
З.Ы. И вообще сие есть некрофилия.

[Yerro]

Долгая история.
Началось всё с функции "GetJob()" из "winspool.drv". Есть там аргумент такой "ByRef pjob as Byte".
Документации вразумительной касательно этой функции и VB я не нашёл.
В сях пишут, что pjob - это указатель на тип Byte (LPBYTE).
Пытаюсь понять, зачем функции нужен именно байтовый тип и что она сохраняет в pjob (или в массиве pjob()).
Есть предположение, что каждые четыре байта этого массива (если функция "GetJob()" туда вообще что-нибудь пишет), будучи рассмотрены как один четырёхбайтный,
дадут мне указатели на значения для структуры JOB_INFO_1, по аналогии с GetPrinter() и PRINTER_INFO_1.
Просматривать собирался с помощью функции, которая получив указатель на переменную создаёт массив указанного типа (допустим, из 16 переменных Byte
массив из 4 переменных типа Long).
Тип переменной и параметр cbElements в SAFEARRAY определяли бы что представлять и в каком виде.
Объявить хотелось как Public Sub DecompToArr(ByVal pVariable As Long, ByVal pArray As Long, Optional ByVal cbElements As Long = 4)
С другой стороны, можно передавать и указатель на переменную, и параметр "ByVal VarType(var) as vbVarType" в дополнение к нему и обойти вопрос.

Вы настаиваете, что тип переменной по значению указателя в VB6 определить невозможно без помощи VarType или TypeName?

[Viper]

Объявляй lpJob как Long и это будет указателем на буфер принимающий либо JOB_INFO_1 либо JOB_INFO_2 в зависимости от значения аргумента Level. А объявлен этот указатель как LPBYTE по причине того, что размер этого буфера недетерменирован поскольку содержит строки.

[Viper]

Вы настаиваете, что тип переменной по значению указателя в VB6 определить невозможно без помощи VarType или TypeName?

И даже с помощью VarType или TypeName тип переменной по указателю не определишь. И не только в VB.

[Yerro]

Спасибо.
Это всё понятно.
Непонятно, зачем APIViewer этот аргумент объявляет в типе byte, по-моему, не в самом подходящем типе для хранения указателей.
Должны же быть какие-то предпосылки, или это просто ошибка

[Viper]

Спасибо.
Это всё понятно.
Непонятно, зачем APIViewer этот аргумент объявляет в типе byte, по-моему, не в самом подходящем типе для хранения указателей.
Должны же быть какие-то предпосылки, или это просто ошибка

В данном случае API Viewer совершенно неправ. Указатель должен быть типа Long.
З.Ы. Впрочем возможны варианты, но не в этом случае.

[Yerro]

А всё-таки функция и с byte массивом корректно работает.
Наверное, подразумевается, что получатель из байтов соберёт и указатели, и параметры задания самостоятельно.
Интересно, SetJob и SetPrinter настолько же толерантны к типу передаваемой структуры или придётся расчленять длинные целые обратно

[alibek]

Им безразличен тип структуры.
Им важен только ее размер.
А будет это один Long, два Integer, четыре Byte или один Single — совершенно без разницы.

[Alec]

Спасибо.
Это всё понятно.
Непонятно, зачем APIViewer этот аргумент объявляет в типе byte, по-моему, не в самом подходящем типе для хранения указателей.
Должны же быть какие-то предпосылки, или это просто ошибка

В данном случае API Viewer совершенно неправ. Указатель должен быть типа Long.
З.Ы. Впрочем возможны варианты, но не в этом случае.

Не сказал бы что сильно не прав - просто калька с LPBYTE.
А указатель и есть типа Long. В объявлении функции обращаем внимание на ByRef аргумента. Т.е. независимо от типа, будет передаваться указатель.

[Yerro]

А указатель и есть типа Long. В объявлении функции обращаем внимание на ByRef аргумента. Т.е. независимо от типа, будет передаваться указатель.

Точно так.
Поменял объявление API на "ByVal pJob As Long", подставил в коде "VatPtr(MyArr(0))" - работает.
Жаль, что с указателем на структуру не сработает.