GetLastError в VB?

[0xy]

Недавно заметил, что GetLastError иногда врет:

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


GetProcAddres(GetModuleHandle("kernel32"),"X_3_")
N=GetLastEror


В этом примере почему-то N=0, хотя должно быть 126. Интересно: почему так?

[Хакер]

Напиши два раза. Во второй раз врать не будет?

[0xy]

Это что, прикол из серии "переставить Винду 5 раз подряд"?
PS
Проверил--все равно врет! (два GetLastError подряд).

[Хакер]

Нет, это не прикол, это здравая логика: если GetProcAddress устанавливает код ошибки, то при первом вызове GetLastError выполняется GetProcAddress(..., "GetLastError"), который может сбить ошибочный код возврата успешным (ведь GetLastError нашлась).

При втором вызове резолвинга не происходит, адрес берётся из специальной таблицы внутри-VB-шного-Declare-основанного импорта. Но видимо код ошибки сбрасывается чем-то иным.

В любом случае Err.LastDllError возвращает правильный результат. И это, кстати, вовсе не 126 («Не найден указанный модуль»), а 127 («Не найдена указанная процедура»).

[0xy]

Да, все верно.
Значит, вместо GetLastError всегда следует использовать указанный метод err?

[Хакер]

Вместо вызываемой через Declare — однозначно.

[Antonariy]

А если описанной в tlb?

[0xy]

Вместо вызываемой через Declare — однозначно.

А можно поведать о других способах вызова API? В частности, существует ли возможность заставить компиль VB включить dll в импорт проги?

[Хакер]

Да, такой способ существует, иначе как по-твоему осуществляется вызов MsgBox и тому подобных функций?

[0xy]

?? Что-то я не понял намека. Разве трудно вызвать MessageBox через Declare?
A вот прог на VB, у которых в импорте есть что-то, кроме MSVBVM, мне встречать не доводилось. По-сему любопытно: можно ли такое скомпилить?

[Хакер]

Ещё раз: Обычная встроенная MsgBox это не более чем импорт rtcMsgBox из msvbvm60.dll. Импорт из msvbvm60 в большинстве с своём это не какой-то «блатной» механизм, доступный только компилятору, это обычный стандартный для VB COM-совместимый механизм импорта.

Функция объявляется в TLB, TLB подключается к проекты. После компиляции такой импорт попадает в нормальную таблицу импорта. При этом, такие импорт обрабатываются абсолютно наравне с функциями вроде MsgBox.

[0xy]

Ксли я правильно понял, функции, "объявленные в TLB", после компИляции должны оказаться в импорте скомпилированного exe?

[alibek]

Ксли я правильно понял, функции, "объявленные в TLB", после компИляции должны оказаться в импорте скомпилированного exe?

Хакер это повторял уже столько раз, что нужно изрядно постараться, чтобы пропустить.

[0xy]

Хорошо. Тогда расскажите, что за зверь этот TLB, и как его добавить в проект?

[Хакер]

TLB это сокращение от Type Library. Дословно — библиотека типов. Фактически — набор типоописаний. Под типоописанием понимается либо описание псевдонима типа, либо описания типа-структуры (UDT), либо описание энума, либо описание кокласса, либо описание интерфейса, либо описание «плоского» модуля с функциями.

Файлы обычно имеют расширение .tlb или .olb, а ещё чаще лежат внутри PE-файлов — в ресурсах.

Подключается, как ни странно, через Project→References — диалог, в котором выбираются ссылки на зарегистрированные в системе TLB-шки (а не библиотеки, как думают заблуждающиеся).

[0xy]

А как самому создать простейший tlb (декларирующий одну функцию?)

[Хакер]

Скомпилировать IDL-код MIDL-ом или mktyplib-ом. Сто раз уже об этом писалось.

[0xy]

Может оно где-то и писалось, но лично я все три слова слышу впервые.
По-сему просьба объяснить "на пальцах", а лучше выложить готовый простейший tlb, декларирующий, к примеру, GetProcAddress (мне привычнее ковырять снизу).

[Хакер]

Готовый TLB никто точно не будет выкладывать ради примера. Готовый TLB ради примера уже есть у тебя и лежит в msvbvm60 и имеет (для примера) импорт MsgBox.

[0xy]

Typelib.1 и Typelib.3 в ресурсах?

PS
Любопытно: а для чего он там лежит?

[FFOX]

По-сему просьба объяснить "на пальцах", а лучше выложить готовый простейший tlb, декларирующий, к примеру, GetProcAddress (мне привычнее ковырять снизу).

У тебя на компьютере :
Program Files\Microsoft Visual Studio\VC98\Include
файлики с расширением Idl
(это не откомпилированные tlb, исходники так сказать)
кроме того есть такая программка OleView.exe
(в тулсах студии)
она может показать этот исходный IDL из tlb
найдешь там много чего интересного.

[FFOX]

PS
Любопытно: а для чего он там лежит?

Извини, а ты знаком с такими понятиями как COM? Интерфейс? GUID? бинарная совместимость?
Просто без знания этой кухни объяснять на пальцах бесполезно.