Кратко о приложениях для сетей. Windows API

Кратко о приложениях для сетей

При разработке приложений для сетей могут использоваться сочетания кода языка гипертекста, документы ActiveX и т.д. Ограничимся написанием программы-Browser; для создания таких приложений разработан элемент управления WebBrowser, обладающий методами, обеспечивающими, например, навигацию; событиями, связанными с загрузкой файлов и т.д. После создания Browser'a его возможности могут интегрироваться в приложение и пользователь получает доступ в сеть из своей пользовательской Visual Basic-программы.

Практическая работа 47. Создание Browser

' описание переменной, предназначенной для хранения 
' стартового URL
Private start As String

' инициализация переменной, хранящей стартовый URL и
' передача параметра процедуре навигации 
' Web Browser1.Navigate start
Private Sub Form_Load() 
ErhaltAdr
makeNavig start
End Sub

' присвоить переменной значение - имя файла
Private Sub ErhaltAdr()
start = "file://A:\Running Birthday.htm"
End Sub

' навигация браузера. В результате навигации 
' устанавливается соединение с соответствующим узлом 
' и начинается загрузка файла, указанного в URL
Private Sub makeNavig(Adr As String) 
WebBrowser1.Navigate Adr
End Sub

' командной кнопкой можно остановить передачу и 
' загрузку файла
Private Sub WebBrowser1_DownloadBegin() 
Command2.Enabled = True
End Sub

Private Sub Command2_Click() 
WebBrowser1.Stop
End Sub

' заканчивается загрузка файла, указанного в URL, 
' останавливать нечего
Private Sub WebBrowser1_DownloadComplete() 
Command2.Enabled = False
' указать имя файла (URL) в статусной строке
StatusBar1.SimpleText = WebBrowser1.LocationName 
StatusBar1.SimpleText = "LOAD FROM: "  WebBrowser1.LocationName
With ComboBox1
' включить в список ComboBox имя файла 
' текущего URL и исключить 5-й элемент списка,
' если список полон
.AddItem WebBrowser1.LocationName
' .ListIndex = 0
If .ListCount > 5 Then
.RemoveItem 5
End If
End With
End Sub

' перемещения к ранее использованным страницам
Private Sub Command5_Click() 
WebBrowser1.GoBack
End Sub

Private Sub Command4_Click()
WebBrowser1.GoForward
End Sub

Private Sub Command3_Click()
makeNavig start
End Sub

' после ввода пути и имени файла в поле ComboBox (здесь 
' используется тип доступа "file:\\путь :") сделать щелчок
' на кнопке для реализации навигации
Private Sub Command1_Click() 
makeNavig ComboBox1.Text
End Sub

Windows API - набор DLL (библиотек динамической компоновки) с сотнями функций

API - это интерфейс прикладного программирования. DLL - это составная часть Windows и представляет собой откомпилированный код. При работе функции, объединeнные в файле, связываются с программмой; программа использует их во время выполнения . Win32 (версия API) состоит из 32-разрядных функций. Для обеспечения совместимости с предыдущими версиями сохранeн (ранний) 16-разрядный код API.

Перед тем, как воспользоваться функцией DLL, еe нужно объявить (объявление процедуры и типов еe параметров).

API Viewer

Программа API Viewer, рис. 7.2, входящая в комплект Visual Basic, содержит информацию о большинстве функций, типов данных и констант. Там содержатся готовые фрагменты, которые можно включить в приложение.

API Viewer можно вызвать следующим образом: меню Пуск $$\to$$ Программы $$\to$$ Microsoft Visual Basic $$\to$$ Microsoft Visual Basic Tools $$\to$$ API Text Viewer. API Viewer можно добавить в меню Добавления (подключить к IDE Visual Basic): меню Добавления $$\to$$ Менеджер Дополнений $$\to$$ VB API Viewer (список Доступные дополнния) $$\to$$ в нижнем правом углу окна окна Добавления пометить флажок Загрузка при запуске $$\to$$ ОК $$\to$$ закрыть Visual Basic, затем стартовать его ещe раз $$\to$$ в меню Добавления появился API Viewer $$\to$$ сделaть щелчок на его имени $$\to$$ выводится окно API Viewer, рис. 7.2. API Viewer нужно сконфигурирвать: File $$\to$$ Load text File $$\to$$ Win32API.txt $$\to$$ File $$\to$$ Convert to Database $$\to$$ сохранить под предложенным именем базу данных $$\to$$ использовать это окно для поиска объявлений (см. рис. 7.3) необходимой функции.

API Viewer предоставляет следующие возможности:

Объявление функций

В окне API Viewer, рис. 7.2 из списка API Type (верхняя часть окна) следует выбрать Declares. Далее нужно ввести в поле Type the first few letters : имя функции (например) CopyFile, после щелчка на еe имени в поле Available Items и на кнопке Add в нижнее поле окна выводится еe объявление. Далее следует выбрать выбрать тип (Public, Private), скопировать объявление в буфер обмена (кнопка Copy). Впоследствии нужно вставить объявление функции в область (General) (Declarations) проекта. При использовании в проекте модуля следует использовать тип объявления Public и поместить объявление функции в область модуля.

В данном случае (рассматривается функция CopyFile) объявление имеет вид:

Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA"_
(ByVal lpExistingFileName As String, ByVal lpNewFileName _
As String, ByVal bFailIfExists As Long) As Long

Возвращаемое значение (здесь) RetVal принимает значение 0, если копирование файла не произошло.

Практическая работа 48. Использование Windows АPI

Использовать функцию Windows АPI копирование файла; для этого выполнить следующее:

' объявление функции
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA"_
(ByVal lpExistingFileName As String, ByVal lpNewFileName _
As String, ByVal bFailIfExists As Long) As Long 
' описание переменной для хранения возвращаемого функцией значения
Dim RetVal As Long 

Private Sub Command1_Click() ' процедура копирования файла
' переменная описана как Static для обеспечения 
' многократного копирования файла последовательным
' нажатием командной кнопки
Static i As Integer 
RetVal = CopyFile(File1, "lpNewFileName", 1) ' копирование
Print File1 ' вывод имени копируемого файла на форме
' вывод имени файла и числа копирований
Label1 = File1  " Copy "  i + 1 
i = i + 1
End Sub

' синхронизация работы элементов управления Dir1 и Drive1; 
' обеспечение вывода содержимого каталога при его 
' маркировке и нажатии клавиши Enter
Private Sub Drive1_Change() 
Dir1.Path = Drive1.Drive
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Dir1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Dir1.Path = Dir1.List(Dir1.ListIndex)
End Sub

' вывод в поля меток имени дискового устройства, каталога, 
' пути и имени файла
Private Sub Command2_Click() 
Label2 = Drive1: Label3 = Dir1: Label4 = File1
End Sub