VisualBasic + WinAPI

[Денис]

Не надо это проверять. 1000 раз это уже проверили, о чём тебе здесь и твердили.

Так это что же получается, Declare нельзя считать ранним связыванием? Получается, это связывание позднее, динамическое?

[Хакер]

Так это что же получается, Declare нельзя считать ранним связыванием?

Абсолютно недопустимо.

Получается, это связывание позднее, динамическое?

Это вообще никакое не связывание. Термин «связывание» оставим для, как миниумум ООП-а, а как максимум — COM-а. А у нас — импорт. Обычный и отложенный. Так вот Declare — это отложенный импорт.

Я это написал во втором посте этой темы. Стоило ли писать кучу постов с ерундой, чтобы потом всё-таки согласиться с написанным?..

[arthur2]

Получается, это связывание позднее, динамическое?

Насколько я понимаю термин "динамическое": раннее связывание и динамическое связывание - не есть противоположности. Вполне можно осуществить раннее динамическое связывание. И даже предпочтительнее - делать динамическое связывание именно ранним.

[Vi]

Обычный импорт: нужная функция объявляется в TLB, TLB подключается к проекту. Вызывается как обычная функция.
Отложенный импорт: нужная функция объявляется с помощью Declare Sub/Function, почти так же, как обычная. Вызывается как обычная функция.

Эти импорты ведут себя одинаково. Более того Declare внутренним образом переводится в запись TLB.

[Хакер]

Глупости говоришь.

Функция, импортируемая через TLB, импортируется через обычную таблицу импорта PE-файла. Для неё создаётся ячейка в IAT, для неё создаётся jmp-thunk, для её библиотеки создаётся дескриптор импорта в таблцие импорта. Её импорт обрабатывает системный загрузчик в ядре, и если библиотеки/экспорта он не найдёт, файл вообще не загрузится.

Функции, импортируемые через Declare Function, не попадают в обычную таблицу импорта, для них не создаётся ячейки IAT и дескриптора для её библитеки. Её импорт обрабатывает сама VB-шная программа, проверяя свой внутренний аналог таблицы импорта, нужную библиотеку подгружает (а затем ищет в ней экспорт с помощью GetProcAddress) код внутри msvbvm60!DllFunctionCall. При ненахождении библиотеки/экспорта выбрасывается ошибка, которую можно обработать в VB.

[Vi]

Функция, импортируемая через TLB, импортируется через обычную таблицу импорта PE-файла. Для неё создаётся ячейка в IAT, для неё создаётся jmp-thunk, для её библиотеки создаётся дескриптор импорта в таблцие импорта. Её импорт обрабатывает системный загрузчик в ядре, и если библиотеки/экспорта он не найдёт, файл вообще не загрузится.

Подтверждаю. Я свой вывод сделал на основе запуска проекта. Пока не дошло до вызова метода приложение нормально работает. Я думал ,такое поведение сохранится и для генерируемого ЕХЕ-шника. Посыпаю голову пеплом.

[NashRus]

Достойный ответ достойного специалиста.

[Хакер]

до вызова метода

Метода? Я про функции, обычные, которые располагаются в модулях, а не являются членами кокласса с флагом APPGLOBAL.

[Vi]

Метода? Я про функции, обычные, которые располагаются в модулях, а не являются членами кокласса с флагом APPGLOBAL.

Я их не разделяю. В данном случае, метод - это функция, которая определена в ДЛЛ.

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

Private Sub Form_Click()
    Dim x() As Double, bs() As Double, p() As Double, p2() As Double
    Call A_BSCPP(0, x(), 3, bs(), 0, p(), p2())
End Sub


Reference=*\G{610B38D2-577F-11D6-A449-004095426E66}#1.0#0#D:\Projects\FLEXI\FlexiDll\FlexiDLL.TLB#FlexiDLL Library

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

[
   uuid(610B38D2-577F-11D6-A449-004095426E66),
   version(1.0),
   helpstring("FlexiDLL Library")
]
library FlexiDLL
{
   
   [
      uuid(610B38D3-577F-11D6-A449-004095426E66),
      dllname(".\FlexiDLL.DLL")
   ]
   module Flexi
   {
...
      [
         helpstring("Convert a spline in B-spline representation to piecewise polynomial representation (array version)"),
         entry("A_BSCPP")
      ]
      HRESULT stdcall A_BSCPP
      (
         [in]       long               KORDER,
         [in]      SAFEARRAY(double)   *   XKNOT,
         [in]       long               NCOEF,
         [in]      SAFEARRAY(double)   *   BSCOEF,
         [in,out]   long            *   NPPCF,
         [in,out]    SAFEARRAY(double)   *   PPBREAK,
         [in,out]    SAFEARRAY(double)   *   PPCOEF
      );


PS
FlexiDLL.TLB 3408 04.03.04 14:09
Это почему произошла досадная оплошность - ведь столько лет прошло.

[kiber_punk]

Уфф..

Так вот. Я же не просто так тему создал. Мне даже неведома сама конструкция объявления и вызова.

Продемонстрируйте пожалуйста простенький пример (из 5 строк) объявления и вызова MessageBox(A) из user32.dll через отложенный импорт (ИМЕННО КОД).
Заранее благодарю.

[iGrok]

ИМЕННО КОД

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

Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long

Private Sub Form_Load
  MessageBox Me.hWnd, "Это текст", "Это заголовок", 0
End Sub


[Денис]

В данном случае, метод - это функция, которая определена в ДЛЛ.

НЕТ

[Vi]

Так вот. Я же не просто так тему создал. Мне даже неведома сама конструкция объявления и вызова.
Продемонстрируйте пожалуйста простенький пример (из 5 строк) объявления и вызова MessageBox(A) из user32.dll через отложенный импорт ИМЕННО КОД.

Есть такая программка C:\Program Files\Microsoft Visual Studio\Common\Tools\Winapi\APILOAD.EXE. (Раньше она у меня была в меню Add-ins, но потом исчезла, так что привожу путь к ней для автономного запуска) Она позволяет много деклараций сделать с её помощью. Там рядом есть две базы WIN32API.MDB и WIN32API.TXT. Есть также описание.

[kiber_punk]

Сам сидел разбирался, да и разобрался. Но я вижу уже ответили по существу. Спасибо, iGrok.
Ссылки ни одной никто не предложил, ну да ладно, всё самому приходится делать.
Работа с функциями Windows API и DLL

Visual Basic » Справочник по WinAPI

Visual Basic - Несколько слов об API, Win32, DLL
--------------------------------

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

Private Declare Function MessageBoxA Lib "user32" _
(ByVal Parent As Integer, ByVal msg As String, ByVal caption As String, ByVal Textype As Integer) As Long

Private Sub Command1_Click()
a = MessageBoxA(0, "test", "Caption", 0)
End Sub


[kiber_punk]

Есть такая программка C:\Program Files\Microsoft Visual Studio\Common\Tools\Winapi\APILOAD.EXE. (Раньше она у меня была в меню Add-ins, но потом исчезла, так что привожу путь к ней для автономного запуска) Она позволяет много деклараций сделать с её помощью. Там рядом есть две базы WIN32API.MDB и WIN32API.TXT. Есть также описание.

Спасибо за информацию, Vi!
Тулзу нашёл, но вот как её включить в меню? Перерыл все опции, но ни "Add-ins", ни "Configure tools" не нашёл.

Кто-нить знает?

[arthur2]

Ссылки ни одной никто не предложил, ну да ладно, всё самому приходится делать.

http://bbs.vbstreets.ru/viewforum.php?f=24
http://bbs.vbstreets.ru/viewtopic.php?f=24&t=11721

[Vi]

Тулзу нашёл, но вот как её включить в меню? Перерыл все опции, но ни "Add-ins", ни "Configure tools" не нашёл.
Кто-нить знает?

Попробовал подробно поиграться. Вот что получилось, хотя я и не понял всего механизма: меню "Add-Ins" -> "Add-In Manager...". В диалоге должен быть VB API Declaration Loader. Если есть, то загружаешь с нужными опциями. Если нет, то выбрать "VB 6 Add-In Toolbar" и загрузить его. После этого закрыть диалог - появится тулбар с иконкой +/-. Снова появится диалог, в котором я нашёл "VB API Declaration Loader". Ставишь крыжик и кнопка его запуска появляется на тулбаре.

PS
У меня после повторного запуска исчезло и оттуда.

PPS
APILOAD.EXE /regserver. Т.е. нужно зарегистрировать его. Тогда появится "VB 6 API Viewer" где нужно. И будет доступен после выбора в диалоге "Add-In Manager..." в виде пункта в меню "Add-Ins".

[Lotreck]

Посоветуйте литературу/статьи/ресурсы(ссылки) по использованию WinAPI в VB.

Дан Эпплман Для профессионалов "Win32 API и Visual Basic"