Объявление DLL

Оператор Declare Function сообщает Visual Basic, что к приложению необходимо подключить функцию sndPlaySound из файла winmm.dll Ключевое слово Alias указывает имя функции, которое используется внутри DLL. Оно обеспечивает совместимость между стандартной 16-разрядной и 32-разрядной версиями API.

48. Понятие Windows API.

В комплект Visual Basic входит вспомогательная программа API Viewer

Она содержит сведения о большинстве функций, типов переменных и констант

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

Работа с API Viewer происходит так:

1. Из меню Start запустите программу API Text Viewer из программной группы Visual Basic.

2. В API Viewer выполните команду File > Load Text File.

Рис. 19.1. API Viewer 3. Выберите файл Win32.api и нажмите кнопку Open.

4. Нажмите кнопку Yes, чтобы преобразовать файл в базу данных.

5. Когда преобразование будет закончено, выберите из списка API Type (в верхней части окна) строку Declares.

6. Найдите функцию sndPlaySound. Выделите ее и нажмите кнопку Add, чтобы включить объявление функции в список Selected Items (рис. 19.3)

7. Когда функция появится в списке, нажмите кнопку Сору. Объявление функции копируется в буфер обмена.

8. Закройте API Viewer. Использование функций API в приложениях

Мы узнали, как с помощью API Viewer получить объявление функции API для ваших программ. Давайте посмотрим, каким образом объявления интегрируются с приложениями. Продолжим с того момента, на котором закончился предыдущий пример:

1. Создайте новый проект в Visual Basic. Если откроется окно Project Wizard, вы-, берите в нем значок Standard EXE.

2. Дважды щелкните на форме Form1 в окне проекта — открывается окно программы.

3. Перейдите к секции (General)(Declarations) и выполните команду Edit > Paste

4, Вставьте перед Declare ключевое слово Private:

Private Declare Function sndPlaySound Lib "winmm.dll" _ Alias "sndPlaySoundA" (ByVal IpszSoundName As String, _ ByVal uFlags As Long) As Long

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

5. Добавьте следующий фрагмент в процедуру события Form_Load() формы Form1: Private sub Form_Load()

Dim filename As String Dim rc As Long

filename = "c:\windows\media\tada.wav" rc = sndPlaySound(filename, 1) End Sub

.

6. Если все идет нормально, сохраните проект и запустите его.

49. Технология Active X.

Технология ActiveX — средство, при помощи которой Internet Explorer (IE) использует другие приложения внутри себя. С помощью ActiveX IE загружает Windows Media Player, Flash, Quicktime и другие приложения, которые могут воспроизводить файлы, внедрённые в веб-страницы. Элементы управления ActiveX активизируются при щелчке по такому объекту на веб-странице, например,.WMV-файлу, чтобы загрузить его для отображения в окне браузера Internet Explorer.

· Являясь продуктом Microsoft, ActiveX была специально спроектирована для работы с системами Windows. ActiveX не поддерживается другими операционными системами, такими как Mac или Linux.

Firefox и другие кроссплатформенные браузеры используют систему Программный интерфейс подключаемых модулей Netscape (Netscape Plugin Application Programming Interface, NPAPI)). NPAPI выполняет функции, подобные таковым из ActiveX.

Поиск по сайту: