Использование функций windows api

Windows API — набор функций операционной
системы

Win16 API и Win32 API

Зачем нужен Win API для VB-программистов

Как изучать Win API

Win API и Dynamic Link Library (DLL)

  Совет 1. Следите за правильным
оформлением объявления DLL-процедур

  Совет 2. Будьте особенно внимательны
при работе с DLL-функциями

  Совет 3. Десять рекомендаций
Дэна Эпплмана по надежному API-программированию в среде VB

  Совет 4. Не нужно бояться применять
Win API

Пример обращения к API-функции

  Совет 5. Используйте Alias для
передачи параметров As Any

  Совет 6. Внимание при работе
со строковыми переменными

  Совет 7. Как обращаться к DLL-функциям

Windows API — наиболее важная и мощная дополнительная библиотека функций,
доступная каждому VB-программисту. Многие из них, в том числе и опытные разработчики,
работают с функциями Windows API, используя простые готовые решения, почерпнутые
из различных книг и журналов (возможно, и в нашей постоянной рубрике «Советы
для тех, кто программирует на VB»), и не очень задумываясь о сути этой технологии.
Такой подход является достаточным при решении простых задач, но для серьезной
работы предпочтительнее более детально разобраться с основными принципами использования
функций Windows API. Этим мы сейчас и займемся.

Windows API — набор функций операционной системы

Аббревиатура API многим начинающим
программистам кажется весьма таинственной и
даже пугающей. На самом же деле Application Programming Interface
(API) — это просто некоторый готовый набор
функций, который могут использовать
разработчики приложений. В общем случае данное
понятие эквивалентно тому, что раньше чаще
называли библиотекой подпрограмм. Однако обычно
под API подразумевается особая категория таких
библиотек.

В ходе разработки практически любого
достаточно сложного приложения (MyAppication) для
конечного пользователя формируется набор
специфических внутренних функций, используемых
для реализации данной конкретной программы,
который называется MyApplication API. Однако часто
оказывается, что эти функции могут эффективно
использоваться и для создания других приложений,
в том числе другими программистами. В этом случае
авторы, исходя из стратегии продвижения своего
продукта, должны решить вопрос: открывают они
доступ к этому набору для внешних пользователей
или нет? При утвердительном ответе в описании
программного пакета в качестве положительной
характеристики появляется фраза: «Комплект
включает открытый набор API-функций» (но иногда за
дополнительные деньги).

Таким образом, чаще всего под API
подразумевается набор функций, являющихся
частью одного приложения, но при этом доступных
для использования в других программах. Например,
Excel, кроме интерфейса для конечного пользователя,
имеет набор функций Excel API, который может
использоваться, в частности, при создании
приложений с помощью VB.

Соответственно Windows API — это набор
функций, являющийся частью самой операционной
системы и в то же время — доступный для любого
другого приложения, в том числе написанного с
помощью VB. В этом плане вполне оправданна
аналогия с набором системных прерываний BIOS/DOS,
который фактически представляет собой DOS API.

Отличие заключается в том, что состав функций Windows API, с одной стороны,
значительно шире по сравнению с DOS, с другой  — не включает многие средства
прямого управления ресурсами компьютера, которые были доступны программистам
в предыдущей ОС. Кроме того, обращение к Windows API выполняется с помощью обыкновенных
процедурных обращений, а вызов функций DOS — через специальную машинную
команду процессора, которая называется Interrupt («прерывание»).

Win16 API и Win32 API

Как известно, смена Windows 3.x на Windows 95
ознаменовала собой переход от 16-разрядной
архитектуры операционной системы к 32-разрядной.
Одновременно произошла замена 16-разрядного Windows
API (Win16 API) на новый 32-разрядный вариант (Win32 API) —
о некоторых аспектах этого перехода будет
упомянуто в этой главе. В данном случае нужно
просто иметь в виду, что, за небольшим
исключением, набор Win32 API является единым для
семейств Windows 9x и Windows NT.

Далее в этой статье под термином API будет подразумеваться Win API, более того,
по умолчанию — Win32 API.

Зачем нужен Win API для VB-программистов

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

При знакомстве с Win API обнаруживается,
что многие встроенные VB-функции — не что иное,
как обращение к соответствующим системным
процедурам, но только реализованное в виде
синтаксиса данного языка. С учетом этого
необходимость использования API определяется
следующим вариантами:

1. API-функции, которые полностью реализованы в виде встроенных VB-функций.
   Тем не менее иногда и в этом случае бывает полезным перейти к применению API,
   так как это позволяет порой существенно повысить производительность (в частности,
   за счет отсутствия ненужных преобразований передаваемых параметров).
2. Встроенные VB-функции реализуют лишь частный случай соответствующей API-функции.
   Это довольно обычный вариант. Например, API-функция CreateDirectory обладает
   более широкими возможностями по сравнению со встроенным VB-оператором MkDir.
3. Огромное число API-функций вообще не имеет аналогов в существующем сегодня
   варианте языка VB. Например, удалить каталог средствами VB нельзя — для
   этого нужно использовать функцию DeleteDirectory.

Следует также подчеркнуть, что
некоторые API-функции (их доля в Win API весьма
незначительна) не могут вызываться из VB-программ
из-за ряда ограничений языка, например из-за
отсутствия возможности работы с адресами памяти.
Но в ряде случаев могут помочь нетривиальные
приемы программирования (в частности, в случае с
теми же адресами).

Личная точка зрения автора такова — вместо расширения от версии к версии
встроенных функций VВ следовало бы давать хорошее описание наиболее ходовых
API-функций. В то же время хочется посоветовать разработчикам не ждать появления
новой версии средства с расширенными функциями, а внимательнее изучить состав
существующего Win API — вполне вероятно, что нужные вам возможности можно
было реализовать уже в версии VB 1.0 выпуска 1991 года.

Как изучать Win API

Это не такой простой вопрос, если
учесть, что число функций Win32 API оценивается
величиной порядка 10 тысяч (точной цифры не знает
никто, даже Microsoft).

В состав VB (версий 4-6) входит файл с
описанием объявлений Win API — WIN32API.TXT (подробнее
о его применении мы расскажем позднее). Но,
во-первых, с его помощью можно получить сведения
о назначении той или иной функции и ее параметрах
только по используемым мнемоническим именам, а
во-вторых — перечень функций в этом файле
далеко не полный. В свое время (семь лет назад) в VB
3.0 имелись специальные справочные файлы с
описанием функций Win16 API. Однако уже в v.4.0 эта
полезная информация с удобным интерфейсом
исчезла.

Исчерпывающую информацию о Win32 API можно
найти в справочной системе Platform Software Development Kit,
которая, в частности, находится на компакт-дисках
MSDN Library, включенных в состав VB 5.0 и 6.0 Enterprise Edition и
Office 2000 Developer Edition. Однако разыскать там нужную
информацию и разобраться в ней совсем не просто.
Не говоря уж о том, что все описания там
приводятся применительно к языку C.

Общепризнанным в мире пособием для
изучения API-программирования в среде VB являются
книги известного американского эксперта Даниэля
Эпплмана (Daniel Appleman). Его серия Dan Appleman’s Visual Basic
Programmer’s Guide to the Windows API (для Win16, Win32, применительно
к разным версиям VB) с 1993 года неизменно входит в
число бестселлеров для VB-программистов. Книгу Dan
Appleman’s VB 5.0 Programmer’s Guide to the Win32 API, выпущенную в 1997
году, автору привез из США приятель, который
нашел ее в первом же книжном магазине небольшого
провинциального городка.

Эта книга объемом свыше 1500 страниц
включает описание общей методики
API-программирования в среде VB, а также более 900
функций. Прилагаемый компакт-диск содержит
полный текст книги и всех программных примеров, а
кроме того, несколько дополнительных глав, не
вошедших в печатный вариант. В 1999 году Дэн
Эпплман выпустил новую книгу Dan Appleman’s Win32 API Puzzle
Book and Tutorial for Visual Basic Programmers, которая включает
сведения о еще 7600 функциях (хотя и не столь
обстоятельные).

Подробнее о книге можно прочитать по адресу www.visual.2000.ru\develop\vb\books-vb\80531api.htm.

Win API и Dynamic Link Library (DLL)

Набор Win API реализован в виде
динамических DLL-библиотек. Далее речь фактически
пойдет о технологии использования DLL в среде VB на
примере библиотек, входящих в состав Win API. Однако,
говоря о DLL, необходимо сделать несколько важных
замечаний.

В данном случае под DLL мы подразумеваем
традиционный вариант двоичных динамических
библиотек, которые обеспечивают прямое
обращение приложений к нужным процедурам —
подпрограммам или функциям (примерно так же, как
это происходит при вызове процедур внутри
VB-проекта). Такие библиотеки могут создаваться с
помощью разных инструментов: VC++, Delphi, Fortran, кроме VB
(посмотрим, что появится в версии 7.0) —
последний может делать только ActiveX DLL, доступ к
которым выполняется через интерфейс OLE Automation.

Обычно файлы динамических библиотек
имеют расширение .DLL, но это совсем не обязательно
(для Win16 часто применялось расширение .EXE);
драйверы внешних устройств обозначаются с
помощью .DRV.

Как мы уже отмечали, определить точное
число API-функций Windows и содержащих их файлов
достаточно сложно, однако все они находятся в
системном каталоге. В этом плане лучше выделить
состав библиотек, входящих в ядро операционной
системы, и основных библиотек с ключевыми
дополнительными функциями.

А теперь несколько советов.

Совет 1. Следите за правильным оформлением объявления
DLL-процедур

Само обращение к DLL-процедурам в программе выглядит точно так же, как к «обычным»
процедурам Visual Basic, например:

Call DllName ([список аргументов])

Однако для использования внешних DLL-функций (в том числе и Win API) их нужно
обязательно объявить в программе с помощью оператора Declare, который имеет
следующий вид:

[Public | Private] Declare Sub ИмяПроцедуры Lib _
     “ИмяБиблиотеки” [Alias “Псевдоним”] _
     [([СписокАргументов])]

или

[Public | Private] Declare Function ИмяФункции _
     Lib “ИмяБиблиотеки” [Alias “Псевдоним”] _
     [([СписокАргументов])] [As type]

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

Объявления внешних функций должны
размещаться в секции General Declarations модуля. Если вы
размещаете его в модуле формы, то обязательно
нужно указать ключевое слово Private (это объявление
будет доступно только внутри данного
модуля) — таково ограничение для всех
процедур модуля формы.

Набор Win32 API реализован только в виде
функций (в Win16 API было много подпрограмм Sub). В
большинстве своем — это функции типа Long,
которые чаще всего возвращают код завершения
операции.

Оператор Declare появился в MS Basic еще во
времена DOS, причем он использовался и для
объявления внутренних процедур проекта. В Visual Basic
этого не требуется, так как объявлением
внутренних процедур автоматически является их
описание Sub или Function. По сравнению с Basic/DOS в новом
описании обязательно указывать имя
файла-библиотеки, где находится искомая
процедура. Библиотеки Wip API размещаются в
системном каталоге Windows, поэтому достаточно
привести только название файла. Если же вы
обращаетесь к DLL, которая находится в
произвольном месте, нужно записать полный путь к
данному файлу.

Описание оператора Declare обычно занимает довольно много места и не помещается
в одну строку в окне кода. Поэтому мы рекомендуем придерживаться при написании
приложений какой-либо определенной схемы переноса строк, например:

Declare Function GetTempPath _
    Lib “kernel32” Alias “GetTempPathA” _
    (ByVal nBufferLength As Long, _
    ByVal lpBuffer As String) As Long

В этом случае все основные элементы описания разнесены на разные строчки и
поэтому хорошо читаются.

Совет 2. Будьте особенно внимательны при работе с DLL-функциями

Использование Win API и разнообразных
DLL-функций существенно расширяет функциональные
возможности VB и зачастую позволяет повысить
производительность программ. Однако расплата за
это — риск снижения надежности работы
приложения, особенно в процессе его отладки.

Одним из самых важных достоинств среды
VB является надежность процесса разработки
программ: функционируя под управлением
интерпретатора, программный код теоретически не
может нарушить работу Windows и самого VB.
Программист может не очень внимательно следить
за правильностью передачи параметров в
вызываемые функции — подобные ошибки будут
легко обнаружены самим интерпретатором либо в
процессе трансляции кода, либо во время его
выполнения. В самом неприятном случае просто
произойдет прерывание режима обработки, причем с
указанием, где и почему произошла ошибка.

Использование напрямую функций Windows API
или других DLL-библиотек снимает такой контроль за
передачей данных и процессом выполнения кода вне
среды VB. Поэтому ошибка в обращении к внешним
функциям может привести к неработоспособности и
VB и операционной системы. Это особенно актуально
на этапе разработки программы, когда наличие
ошибок — дело вполне естественное. Таким
образом, применяя более широкие возможности
функций базового слоя системы, программист берет
на себя ответственность за правильность их
применения.

Проблема усугубляется еще и тем, что
разные языки программирования используют
различные способы передачи параметров между
процедурами. (Точнее, разные способы передачи
используются по умолчанию, так как многие языки
могут поддерживать несколько способов.) Win API
реализованы на C/C++ и применяют соглашения о
передаче параметров, принятые в этой системе,
которые отличаются от привычного для VB варианта.

В связи с этим следует отметить, что появление встроенных в VB аналогов API-функций
оправданно именно адаптацией последних к синтаксису VB и реализацией соответствующего
механизма контроля обмена данными. Обратим также внимание, что на этапе опытной
отладки приложения при создании исполняемого модуля лучше использовать вариант
компиляции P-code вместо Native Code (машинный код). В первом случае программа
будет работать под управлением интерпретатора — медленнее по сравнению
с машинным кодом, но более надежно с точки зрения возможного ошибочного воздействия
на операционную систему и обеспечивая более удобный режим выявления возможных
ошибок.

Совет 3. Десять рекомендаций Дэна Эпплмана по надежному
API-программированию в среде VB

Использование функции API требует более
внимательного программирования с
использованием некоторых не очень привычных
методов обращения к процедурам (по сравнению с VB).
Далее мы будем постоянно обращаться к этим
вопросам. А сейчас приведем изложение
сформулированных Дэном Эпплманом советов на эту
тему (их первый вариант появился еще в 1993 году) с
некоторыми нашими дополнениями и комментариями.

1. Помните о ByVal. Наиболее частая ошибка, совершаемая при обращении
к функциям API и DLL, заключается в некорректном использовании ключевого слова
ByVal: его или забывают ставить, или, наоборот, ставят, когда в нем нет необходимости.

 На этих примерах показано влияние оператора
ByVal на передачу параметров

Здесь следует напомнить, что передача параметров в любой системе программирования,
в том числе и VB, выполняется двумя основными путями: по ссылке (ByRef) или
по значению (ByVal). В первом случае передается адрес переменной (этот вариант
используется в VB по умолчанию), во втором — ее величина. Принципиальное
отличие заключается в том, что с помощью ссылки обеспечивается возврат в вызывающую
программу измененного значения передаваемого параметра.

Чтобы разобраться в этом, проведите эксперимент с помощью таких программ:

Dim v As Integer 
v = 2 
Call MyProc(v) 
MsgBox “v = “ & v

Sub MyProc (v As Integer) 
  v = v + 1 
End Sub

Запустив на выполнение этот пример, вы получите сообщение со значением переменной,
равным 3. Дело в том, что в данном случае в подпрограмму MyProc передается адрес
переменной v, физически созданной в вызывающей программе. Теперь измените описание
процедуры на

Sub MyProc (ByVal v As Integer)

В результате при выполнении теста вы получите v = 2, потому что в процедуру
передается лишь исходное значение переменной — результат выполненных с
ним операций не возвращается в вызывающую программу. Режим передачи по значению
можно поменять также с помощью оператора Call следующим образом:

Sub MyProc (v As Integer) 
... 
Call MyProc((v)) ‘ (v) — скобки указывают режим _ 
     передачи по значению.

Однако при обращении к внутренним
VB-процедурам использование в операторе Call
ключевого слова ByVal запрещено — вместо него
применяются круглые скобки. Этому есть свое
объяснение.

В классическом случае (С, Fortran, Pascal)
различие режимов ByRef и ByVal зависит от того, что
именно помещается в стек обмена данными —
адрес переменной или ее значение. В Basic
исторически используется вариант программной
эмуляции ByVal — в стеке всегда находится адрес,
но только при передаче по значению для этого
создается временная переменная. Чтобы отличить
два этих варианта (классический и Basic),
используются разные способы описания режима ByVal.
Отметим, что эмуляция режима ByVal в VB обеспечивает
более высокую надежность программы: перепутав
форму обращения, программист рискует лишь тем,
что в вызывающую программу вернется (или не
вернется) исправленное значение переменной. В
«классическом» же варианте такая путаница может
привести к фатальной ошибке при выполнении
процедуры (например, когда вместо адреса памяти
будет использоваться значение переменной,
равное, скажем, нулю).

DLL-функции реализованы по
«классическим» принципам и поэтому требуют
обязательного описания того, каким образом
происходит обмен данными с каждым из аргументов.
Именно этой цели служат объявления функций через
описание Declare (точнее, списка передаваемых
аргументов). Чаще всего передача параметров в
функцию Windows API или DLL выполняется с помощью
ключевого слова ByVal. Причем оно может быть задано
как в операторе Declare, так и непосредственно при
вызове функции.

Последствия неправильной передачи параметров легко предугадать. В случае получения
явно недопустимого адреса вам будет выдано сообщение GPF (General Protection
Fault — ошибка защиты памяти). Если же функция получит значение, совпадающее
с допустимым адресом, то функция API залезет в чужую область (например, в ядро
Windows) со всеми вытекающими отсюда катастрофическими последствиями.

2. Проверяйте тип передаваемых параметров. Не менее важны верное число
и тип передаваемых параметров. Необходимо, чтобы объявленные в Declare аргументы
соответствовали ожидаемым параметрам в функции API. Наиболее часто встречающийся
случай ошибки в передаче параметров связан с различием между NULL и строкой
нулевой длины — следует помнить, что это не одно и то же.

VB довольно терпимо относится к несовпадению типов возвращаемых функцией значений,
поскольку числовые значения обычно возвращаются через регистры, а не через стек.
Следующие правила помогут определить корректное значение, возвращаемое функцией
API:

• DLL-функция, не возвращающая значения (аналог void в ‘C’), должна быть
  объявлена как VB Sub.
• функция API, возвращающая целое значение (Integer или Long), может быть
  определена или как Sub, или как Function, возвращающая значение соответствующего
  типа.
• ни одна из функций API не возвращает числа с плавающей точкой, но некоторые
  DLL вполне могут возвращать такой тип данных.

4. С большой осторожностью используйте конструкцию «As Any». Множество
функций Windows API имеют возможность принимать параметры различных типов и
используют при этом обращение с применением конструкции As Any (интерпретация
типа выполняется в зависимости от значения других передаваемых параметров).

Хорошим решением в этом случае может быть использование нескольких псевдонимов
(Alias) функции с созданием двух и более объявлений для одной и той же функции,
причем в каждом из описаний указываются параметры определенного типа.

5. Не забывайте инициализировать строки. В Win API существует множество
функций, возвращающих информацию путем загрузки данных в передаваемые как параметр
строковые буферы. В своей программе вы можете вроде бы все сделать правильно:
не забыть о ByVal, верно передать параметры в функцию. Но Windows не может проверить,
насколько велик размер выделенного под строку участка памяти. Размер строки
должен быть достаточным для размещения всех данных, которые могут быть в него
помещены. Ответственность за резервирование буфера нужного размера лежит на
VB-программисте.

Следует отметить, что в 32-разрядных
Windows при использовании строк производится
преобразование из Unicode (двухбайтовая кодировка) в
ANSI (однобайтовая) и обратно, причем с учетом
национальных установок системы. Поэтому для
резервирования буферов порой удобнее
использовать байтовые массивы вместо строковых
переменных. (Подробнее об этом будет рассказано
ниже.)

Чаще всего функции Win API позволяют вам самим определить максимальный размер
блока. В частности, иногда для этого нужно вызвать другую функцию API, которая
«подскажет» размер блока. Например, GetWindowTextLength позволяет определить
размер строки, необходимый для размещения заголовка окна, получаемого функцией
GetWindowText. В этом случае Windows гарантирует, что вы не выйдете за границу.

7. Внимательно проверяйте значения параметров и возвращаемых величин. VB
обладает хорошими возможностями по проверке типов. Это означает, что, когда
вы пытаетесь передать неверный параметр в функцию VB, самое плохое, что может
случиться, — вы получите сообщение об ошибке от VB. Но данный механизм, к сожалению,
не работает при обращении к функциям Windows API.

Windows 9x обладает усовершенствованной
системой проверки параметров для большинства
функций API. Поэтому наличие ошибки в данных
обычно не вызывает фатальной ошибки, однако
определить, что же явилось ее причиной — не
так-то просто.

Здесь можно посоветовать использовать
несколько способов отладки ошибки данного типа:

• используйте пошаговый режим отладки или команду Debug.Print для проверки
  каждого подозрительного вызова функции API. Проверьте результаты этих вызовов,
  чтобы удостовериться, что все в пределах нормы и функция корректно завершилась;
• используйте Windows-отладчик типа CodeView и отладочную версию Windows
  (имеется в Windows SDK). Эти средства могут обнаружить ошибку параметров и
  по меньшей мере определить, какая функция API приводит к ошибке;
• используйте дополнительные средства третьих фирм для проверки типов параметров
  и допустимости их значений. Такие средства могут не только находить ошибки
  параметров, но даже указать на строку кода VB, где произошла ошибка.

Кроме того, нужно обязательно проверять результат выполнения API-функции.

8. Помните, что целые числа в VB и в Windows — не одно и то же. В
первую очередь следует иметь в виду, что под термином «Integer» в VB понимается
16-разрядное число, в документации Win 32 — 32-разрядное. Во-вторых, целые
числа (Integer и Long) в VB — это величины со знаком (то есть один разряд
используется как знак, остальные — как мантисса числа), в Windows —
используются только неотрицательные числа. Это обстоятельство нужно иметь в
виду, когда вы формируете передаваемый параметр с помощью арифметических операций
(например, вычисляете адрес с помощью суммирования некоторой базы и смещения).
Для этого стандартные арифметические функции VB не годятся. Как быть в этом
случае, мы поговорим отдельно.

9. Внимательно следите за именами функций. В отличие от Win16 имена
всех функций Win32 API являются чувствительными к точному использованию строчных
и прописных букв (в Win16 такого не было). Если вы где-то применяете строчную
букву вместо прописной или наоборот, то нужная функция не будет найдена. Следите
также за правильным использованием суффикса A или W в функциях, применяющих
строковые параметры. (Подробнее об этом – см. ниже.)

10. Чаще сохраняйте результаты работы. Ошибки, связанные с неверным
использованием DLL и Win API, могут приводить к аварийному завершению работы
VB-среды, а возможно — и всей операционной системы. Вы должны позаботиться о
том, чтобы написанный вами код перед тестовым запуском был сохранен. Самое простое —
это установить режим автоматической записи модулей проекта перед запуском проекта
в среде VB.

Совет 4. Не нужно бояться применять Win API

После прочтения предыдущего совета
может возникнуть мысль, что использование
функций Win API — дело рискованное. В какой-то
степени это так, но только в сравнении с
безопасным программированием, предоставляемым
самим VB. Но при умелом их применении и знании
возможных подводных камней этот риск минимален.
К тому же полностью отказаться от применения Win API
зачастую просто невозможно — они все равно
потребуются при сколь-нибудь серьезной
разработке.

К тому же ранее мы упоминали о
«подводных» камнях для широкого класса DLL. В
случае с Win API все обстоит гораздо проще, так как
здесь четко унифицирована форма обращения к этим
функциям. При этом следует иметь в виду следующие
основные моменты:

1. Функции Win32 API являются именно функциями, то есть процедурами типа Function
   (в Win16 API было много подпрограмм Sub). Все это функции типа Long, поэтому
   их описания записываются в следующем виде:

   Declare Function name ... As Long ‘ тип функции _
   определяется в явном виде

   или

   Declare Function name& ‘ тип функции _
   определяется с помощью суффикса

   Обращение к API-функции выглядит так:

Result& = ApiName& ([СписокАргументов]

1. Чаще всего возвращаемое значение функции является кодом завершения операции.
   Причем ненулевое значение означает в данном случае нормальное завершение,
   нулевое — ошибку. Обычно (но не всегда) уточнить характер ошибки можно
   с помощью обращения к функции GetLastError. Описание этой функции имеет такой
   вид:

   Declare Function GetLastError& Lib “kernel32” ()

   ВНИМАНИЕ! При работе в среде VB для получения значения уточненного
   кода ошибки лучше использовать свойство LastDLLError объекта Err, так как
   иногда VB обнуляет функцию GetLastError в промежутке между обращением к
   API и продолжением выполнения программы.

   Интерпретировать код, возвращаемый GelLastError, можно с помощью констант,
   записанных в файле API32.TXT, с именами, начинающимися с суффикса ERROR_.

   Наиболее типичные ошибки имеют следующие коды:

   • ERROR_INVALID_HANDLE = 6& — неверный описатель
   • ERROR_CALL_NOT_IMPLEMENTED = 120& — вызов в Windows 9x функции,
     доступной только для Windows NT
   • ERROR_INVALID_PARAMETER = 87& — неверное значение параметра

   Однако многие функции возвращают значение некоторого запрашиваемого параметра
   (например, OpenFile возвращает значение описателя файла). В таких случаях
   ошибка определяется каким-либо другим специальным значением Return&,
   чаще всего 0 или –1.

2. Win32 API используют строго фиксированные способы передачи самых простых
   типов данных.

   а) ByVal ... As Long

   С помощью переменных типа Long выполняется не менее 80% передачи аргументов.
   Обратите внимание, что аргумент всегда сопровождается ключевым словом
   ByVal, а это, кроме всего прочего, означает, что выполняется односторонняя
   передача данных — от VB-программы к API-функции.

   б) ByVal ... As String

   Этот тип передачи данных также встречается достаточно часто, причем с аргументом
   также всегда применяется ByVal. При вызове API-функции в стек записывается
   адрес строки, поэтому в данном случае возможен двусторонний обмен данными.
   При работе со строками нужно учитывать несколько опасностей.

   Первая — резервирование памяти под строку производится в вызывающей
   программе, поэтому если API-функция будет заполнять строки, то нужно перед
   ее вызовом создать строку необходимого размера. Например, функция GetWindowsDirectory
   возвращает путь к каталогу Windows, который по определению не должен занимать
   более 144 символов. Соответственно обращение к этой функции должно выглядеть
   примерно так:

   WinPath$ = Space$(144)   ‘ резервируем строку в _
    144 символа
   Result& = GetWindowsDirectory& (WinTath$, 144)  _
    ‘заполнение буфера 
   ‘ Result& — фактическое число символов в имени _
    каталога
   WinPath$ = Left$(WinPath, Result&)

   Вторая проблема заключается в том, что при обращении к API-функции производится
   преобразование исходной строки в ее некоторое внутреннее представление,
   а при выходе из функции — наоборот. Если во времена Win16 эта операция
   заключалась лишь в добавлении нулевого байта в конце строки, то с появлением
   Win32 к этому добавилась трансформация двухбайтной кодировки Unicode в ANSI
   и наоборот. (Об этом подробно говорилось в статье «Особенности работы со
   строковыми переменными в VB», КомпьютерПресс 10’99 и 01’2000). Сейчас же
   только отметим, что с помощью конструкции ByVal … As String можно обмениваться
   строками только с символьными данными.

   в) ... As Any

   Это означает, что в стек будет помещен некоторый адрес буфера памяти, интерпретация
   содержимого которого будет выполняться API-функцией, например, в зависимости
   от значения других аргументов. Однако As Any может использоваться только
   в операторе Declare — при конкретном обращении к функции в качестве
   аргумента должна быть определена конкретная переменная.

   г) ... As UserDefinedType 

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

   Форма структуры данных определяется конкретной API-функцией, и на программисте
   лежит ответственность правильным образом описать и зарезервировать ее в
   вызывающей программе. Такая конструкция всегда используется без
   слова ByVal, то есть в данном случае выполняется передача по ссылке —
   в стек записывается адрес переменной.

Пример обращения к API-функции

Проиллюстрируем сказанное выше на примере использования двух полезных функций
работы с файлами — lopen и lread, которые описываются следующим образом:

Declare Function lopen Lib “kernel32” _
     Alias “_lopen” (_
     ByVal lpFileName As String, _
     ByVal wReadWrite As Long) As Long

Declare Function lread Lib “kernel32” _
     Alias “_lread” (_
     ByVal hFile As Long, lpBuffer As Any, _
     ByVal wBytes As Long) As Long

В VB их аналогами — в данном случае
точными — являются операторы Open и Get (для
режима Binary). Обратим сразу внимание на
использование ключевого слова Alias в объявлении
функции — это как раз тот случай, когда без
него не обойтись. Настоящие названия функции в
библиотеке начинаются с символа подчеркивания
(типичный стиль для языка C), что не разрешается в
VB.

Операция открытия файла может выглядеть следующим образом:

Const INVALID_HANDLE_VALUE = -1 ‘ неверное _
     значение описателя
lpFileName$ = “D:\calc.bas”  ‘ имя файла
wReadWrite& = 2 ‘ режим “чтения-записи”
hFile& = lopen(lpFileName$, wReadWrite&) _
     ‘ определяем описатель файла
If hFile& = INVALID_HANDLE_VALUE Then _
     ‘ ошибка открытия файла
     ‘ уточняем код ошибки
CodeError& = Err.LastDllError
‘CodeError& = GetLastError _
     ‘ эта конструкция не работает
  End If

Здесь нужно обратить внимание на два
момента:

• в качестве значения функции мы получаем значение описателя файла. Ошибке
  соответствует значение –1;
• как раз в данном случае не срабатывает обращение к функции GetLastError —
  для получения уточненного значения ошибки мы обратились к объекту Err (о возможности
  такой ситуации мы говорили выше).

Далее можно читать содержимое файла, но это предполагает, что программист должен
иметь некоторое представление о его структуре (так же как это происходит при
работе с произвольными двоичными файлами). В этом случае обращение к функции
lread может выглядеть следующим образом:

Dim MyVar As Single
wBytes = lread (hFile&, MyVar, Len(MyVar)
‘ чтение вещественного числа, 4 байта
‘ wBytes  — число фактически прочитанных данных,
‘ -1 —  ошибка
...
Type MyStruct
   x As Single
   i As Integer
End Type
Dim MyVar As MyStruct
wBytes = lread (hFile&, MyVar, Len(MyVar))
‘ чтение  структуры данных, 6 байтов

Еще раз обратите внимание: второй
аргумент функции передается по ссылке,
остальные — по значению.

Однако если вы хотите прочитать символьные данные в строке переменной длины,
то вам нужно использовать иной вид обращения:

Dim MyVar As String
MyVar = Space$(10)
‘резервируем переменную для 10 символов
wBytes = lread (hFile&, ByVal MyVar, Len(MyVar))
‘ чтение  символьной строки, 10 символов

Здесь видно важное отличие от
приведенного ранее примера — строковая
переменная обязательно сопровождается ключевым
словом ByVal.

Чтение содержимого файла в массиве (для простоты будем использовать одномерный
байтовый массив) выполняется следующим образом:

Dim MyArray(1 To 10) As Byte
wBytes = lread (hFile&, MyArray(1), _
     Len(MyArray(1))* 10)
‘ чтение  10 элементов массива

Указывая первый элемент массива в качестве аргумента, мы передаем адрес начала
области памяти, зарезервированной под массив. Очевидно, что таким образом можно
заполнить любой фрагмент массива:

wBytes = lread (hFile&, MyArray(4), _
      Len(MyArray(1))* 5)
‘ чтение  элементов массива с 4-го по 8-й

Аналогичным образом можно прочитать фрагмент многомерного массива, но при
этом нужно знать алгоритм преобразования многомерной структуры в одномерную.

Совет 5. Используйте Alias для передачи параметров
As Any

Здесь на основе предыдущего примера мы
раскроем суть четвертого совета Дэна Эпплмана.

Работая с функцией lread, следует помнить, что при обращении к ней с использованием
строковой переменной необходимо использовать ключевое слово ByVal (иначе сообщения
о нелегальной операции не избежать). Чтобы обезопасить себя, можно сделать дополнительное
специальное описание этой же функции для работы только со строковыми переменными:

Declare Function lreadString Lib “kernel32” _
  Alias “_lread” (_
  ByVal hFile As Long, ByVal lpBuffer As String, _
  ByVal wBytes As Long) As Long

При работе с этим описанием указывать ByVal при обращении уже не нужно:

wBytes = lreadString (hFile&, MyVarString, _
  Len(MyVarString))  ‘

Казалось бы, синтаксис оператора Declare позволяет сделать подобное специальное
описание для массива:

Declare Function lreadString Lib “kernel32”
  Alias “_lread” (_
  ByVal hFile As Long,  lpBuffer() As Byte, _
  ByVal wBytes As Long) As Long

Однако обращение

wBytes = lreadArray (hFile&, MyArray(), 10)

неизбежно приводит к фатальной ошибке программы.

Совет 6. Внимание при работе со строковыми переменными

Это продолжение разговора об
особенностях обработки строковых переменных в
Visual Basic: VB использует двухбайтную кодировку Unicode,
Win API — однобайтную ANSI (причем с форматом,
принятым в С, — с нулевым байтом в конце).
Соответственно при использовании строковых
переменных в качестве аргумента всегда
автоматически производится преобразование из
Unicode в ANSI при вызове API-функции (точнее, DLL-функции)
и обратное преобразование при возврате.

Вывод из этого простой: с помощью
переменных String можно обмениваться символьными
данными, но нельзя использовать их для обмена
произвольной двоичной информацией (как это было
при работе с 16-разрядными версиями VB). В последнем
случае лучше использовать одномерный байтовый
массив.

Как известно, тип String можно
использовать для описания пользовательской
структуры. В связи с этим нужно помнить
следующее:

• Категорически нельзя использовать для обращения к Win API конструкцию следующего
  вида:

  Type MyStruct
     x As Single
     s As String   ‘ строка переменной длины
  End Type

  В случае строки переменной длины в составе структуры передается дескриптор
  строки со всеми вытекающими отсюда последствиями в виде ошибки выполнения
  программы.

• Можно использовать в качестве элемента структуры строку фиксированной длины:

  Type MyStruct
     x As Single
     s As String*8   ‘ строка фиксированной длины
  End Type

При этом производится соответствующее
преобразование кодировок.

И последнее замечание: применять массив строковых переменных (как фиксированной,
так и переменной длины) при обращении к API-функции нельзя ни в коем случае.
Иначе появление «нелегальной операции» будет гарантировано.

Совет 7. Как обращаться к DLL-функциям

Вполне вероятно, что у вас возникнет
ситуация, когда вам потребуется написать
собственную библиотеку DLL-функций. Потребность в
этом неизбежно появится, если вы будете
использовать технологию смешанного
программирования — использования двух или
более языков программирования для реализации
одного приложения.

Отметим в связи с этим, что смешанное
программирование — это вполне обычное
явление для реализации достаточно сложного
приложения. Действительно, каждый язык (точнее,
система программирования на базе языка) имеет
свои сильные и слабые стороны, поэтому вполне
логично использовать преимущества различных
инструментов для решения разных задач. Например,
VB — для создания пользовательского
интерфейса, С — для эффективного доступа к
системным ресурсам, Fortran — для реализации
численных алгоритмов.

Мнение автора таково: сколь-нибудь
серьезное занятие программированием требует от
разработчика владения по крайней мере двумя
инструментами. Разумеется, в современных
условиях четкого разделения труда очень сложно
быть отличным экспертом даже по двум системам,
поэтому более логичной является схема «основной
и вспомогательный языки». Идея здесь заключается
в том, что даже поверхностное знание
«вспомогательного» языка (написание довольно
простых процедур) может очень заметно повысить
эффективность применения «основного». Отметим,
что знание VB хотя бы в качестве вспомогательного
является сегодня практически обязательным
требованием для профессионального программиста.
Кстати, во времена DOS для любого программиста, в
том числе Basic, было крайне желательным знание
основ Ассемблера.

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

При изучении межпроцедурного
интерфейса следует обратить внимание на
следующие возможные «подводные камни»:

• Разные языки могут использовать различные соглашения о правилах написания
  идентификаторов. Например, часто используется знак подчеркивания в начале
  имени процедуры, что запрещено в VB. Эта проблема легко решается с помощью
  ключевого слова Alias в операторе Declare (см. пример совета 2.3).
• Может быть использована разная последовательность записи передаваемых аргументов
  в стек. Например, во времена DOS (честно признаюсь — не знаю, как это
  выглядит сейчас в среде Windows), C записывал аргументы с конца списка, другие
  языки (Fortran, Pascal, Basic) — с начала.
• По умолчанию используются разные принципы передачи параметров — по
  ссылке или по значению.
• Различные принципы хранения строковых переменных. Например, в C (так же
  как в Fortran и Pascal) длина строки определяется нулевым байтом в ее конце,
  а в Basic длина записывается в явном виде в дескрипторе строки. Разумеется,
  нужно иметь в виду возможность использования разных кодировок символов.
• При передаче многомерных массивов следует помнить, что возможны различные
  варианты преобразования многомерных структур в одномерные (начиная с первого
  индекса или с последнего, применительно к двухмерным массивам — «по строчкам»
  или «по столбцам»).

С учетом всего этого можно сформулировать следующие рекомендации:

• Используйте самые простые, проверенные способы передачи аргументов в DLL-функции.
  Стандарты, принятые для Win API, вполне годятся в качестве образца.
• Ни в коем случае не передавайте массивы строковых переменных.
• Очень внимательно используйте передачу простых строковых переменных и многомерных
  массивов.
• Обязательно специальным образом проверяйте работоспособность механизма
  передачи аргументов в вызываемую процедуру и обратно. Напишите специальный
  тест для проверки передачи данных. Отдельно проверьте правильность передачи
  каждого аргумента. Например, если у вас есть процедура с несколькими аргументами,
  проверьте сначала корректность передачи каждого параметра для варианта с одним
  аргументом, а уж потом — для всего списка.

А что делать, если DLL-функция уже
написана, например, на Фортране, но ее входной
интерфейс не очень хорошо вписывается в
приведенные выше стандарты VB? Здесь можно дать
два совета. Первый: напишите тестовую DLL-функцию и
с ее помощью постарайтесь методом проб и ошибок
подобрать нужное обращение из VB-программы.
Второй: напишите процедуру-переходник на том же
Фортране, который бы обеспечивал простой
интерфейс между VB и DLL-функцией с преобразованием
простых структур данных в сложные (например,
преобразовывал многомерный байтовый массив в
строковый массив).

Итак: используйте DLL-функции. Но сохраняйте бдительность…

КомпьютерПресс 9’2000