Оказывается VB6 поддерживат вызов cdecl-функций

[Хакер]

В общем, я тут выяснил, что VB штатно от природы умеет компилировать программы, вызывающие не только stdcall-функции из внешних DLL, но и функции, использующие соглашение cdecl.


Собственно, если речь идёт о компиляции проекта в EXE-файл — то всё вообще гладко и ничего делать не надо. Можно прямо сейчас компилировать такие программы.

А вот с работой под отладкой — не работает. И нужно время, чтобы разобраться и починить ситуацию как-то. А я сейчас занят большим внешним проектом.

[Debugger]

У меня возникает вопрос - почему многие фичи VB6, которые ты сейчас открываешь, не были должным образом задокументированы и предоставлены программисту?

[Qwertiy]

В общем, я тут выяснил, что VB штатно от природы умеет компилировать программы, вызывающие не только stdcall-функции из внешних DLL, но и функции, использующие соглашение cdecl.

Хм.. А как он их различает?

[Хакер]

У меня возникает вопрос - почему многие фичи VB6, которые ты сейчас открываешь, не были должным образом задокументированы и предоставлены программисту?

Много ли таких фич? Я могу вспомнить только эту.
Что ж документировать фичу, если она не работает. Ну или частично работает.

Хм.. А как он их различает?

Для этого есть VB-шное ключевое слово CDecl, но в данном случае речь совсем не о нём

[Хакер]

В общем, VB вполне официально заявляет возможность поддерживать cdecl-функции.

Убедиться можно в этом хотя бы засунув в свой проект такую строчку:
Private Declare Sub Boombara CDecl Lib "foo.dll ()

Если вы попытаетесь вызвать такую функцию из проекта, то получите скорее ошибку «Bad DLL calling convention». И если вы нажмёте на кнопку Help в окошечке с этой ошибкой, то в хелпе по этой ошибке можно найти вполне официальное заявление:

Bad DLL calling convention (Error 49)
Arguments passed to adynamic-link library (DLL) must exactly match those expected by the routine. Calling conventions deal with number, type, and order of arguments. This error has the following causes and solutions:

• Your program is calling a routine in a DLL that's being passed the wrong type of arguments.
  Make sure all argument types agree with those specified in the declaration of the routine you are calling.
  
  
• Your program is calling a routine in a DLL that's being passed the wrong number of arguments.
  Make sure you are passing the same number of arguments indicated in the declaration of the routine you are calling.
  
  
• Your program is calling a routine in a DLL, but isn't using the StdCall calling convention.
  If the DLL routine expects argumentsby value, then make sure ByVal is specified for those arguments in the declaration for the routine.
  
  
• Your Declare statement for a Windows DLL includes CDecl.
  For additional information, select the item in question and press F1.

Обратите внимание на последний пункт. В общем, об этом на форуме писали ещё давно — в 2004 году. И для меня это тоже далеко не новость была. Как видно из того топика, поддержка вызова CDecl-функций открыта только для Macintosh-версий VB/VBA (главным образом для маковского Офиса).

И вот как раз сегодня упомянув в одном ICQ-шном разговоре эту фичу, меня вдруг осенило:
— А в TLB-то мы тоже можем указывать calling convention наших функций (и методов)

Ну и был поставлен эксперимент.
Предположение было награждено удачным результатом!
Соглашение cdecl — поддерживается, и вызовы к нему совершенно правильно компилируются!

Заодно я выяснил, не поддерживается ли в довесок ещё и fastcall: оказалось, что нет, не поддерживается, и VB IDE честно и открыто на fastcall-ные функции ругается:

---------------------------
Microsoft Visual Basic
---------------------------
Compile error:

Calling convention not supported by Visual Basic
---------------------------
ОК Справка
---------------------------

Но на stdcall и cdecl не ругается, и отлично компилирует в Native-код. А вот в P-код отлично не компилирует — падает. А поскольку когда проект работает в режиме отладки, он компилируется именно в P-код, то отлаживать проекты с вызовом cdecl-функций невозможно.

Невероятно грустно и досадно. Но я приложу все усилия, чтобы придумать либо как решить эту проблему, либо как обойти эту проблема чисто для режима отладки под IDE (потому что, напоминаю, компилируется в EXE файл всё замечательно).

[Хакер]

Вот, например, программа вот с таким кодом:

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

Private Sub Command1_Click()
    TheMagicIsHere inpName.Text, CLng(inpAge.Text)
End Sub

Public Sub TheMagicIsHere(ByRef sName As String, ByVal nAge As Long)
    Dim buffer As String: Buffer = Space(1000)
    wsprintf buffer, "Привет, %s, твой возраст — %d лет!", ByVal sName, ByVal nAge
    MsgBox buffer
End Sub

wsprintf (она же swprintf) — функция стандартной библиотеки языка Си, юникодная версия функции sprintf. Много функций сишного рантайма засунуты в ntdll и присутствуют на любой машине, и это как раз тот случай).

Компилируется на ура:


И использует CRT-шную wsprintf прямо из ntdll (как я уже выше писал — она там есть):


И работает на ура:


Да можете сами поизучать:

wsprintf-test.zip

(3.31 Кб) Скачиваний: 491

Я уж было начал делать TLB-шку с объявлениями всех функций сишного рантайма (стандартной библиотеки Си), проживающих в NTDLL, таких как printf, scanf, isdigit, memcpy, strcpy, упомянутой в пресловутом топике qsort и им подобным. И тут такая досада — нельзя отлаживать (дело даже не доходит до вызова функций), ибо падает. Но, ещё раз, я постараюсь что-нибудь придумать.

[ALX_2002]

Хакер, доброго дня великому и ужасному. Очень интересует данная тема. Что-нибудь получилось в этом направлении ?

[Хакер]

Что-нибудь получилось в этом направлении ?

А что должно получиться? Фича раскрыта. Пользуйтесь.

[ALX_2002]

И тут такая досада — нельзя отлаживать (дело даже не доходит до вызова функций), ибо падает. Но, ещё раз, я постараюсь что-нибудь придумать.

Так я собственно об этом. )

[Хакер]

Не занимался этим.

[The trick]

Add-in исправляющий проблему.