Программирование мобильных устройств на платформе .NET Compact Framework
Шрифт:
setStatus(ReceiveStatus.Done_ErrorOccured)
End Sub
End Class
Листинг 15.6. Простая Web-служба
'Этот код следует вставить в класс Service1, содержащийся
'в файле "Service1.asmx.vb".
'"[WebMethod]" - это атрибут метаданных, который указывает механизму
'Web-службы на то, что данный метод должен быть доступным через Web
<WebMethod> _
Public Function AddTwoNumbers(ByVal x As Integer, _
ByVal у As Integer) As Integer
Return x + у
End Function
Листинг 15.7. Вызовы Web-служб с передачей параметров только явным образом
Этот код представляет собой всего лишь последовательность вызовов функций. Программистам на VB будет несложно написать его, используя в качестве образца код на С#.
Листинг 15.8. Вызов Web-служб путем неявной передачи параметров посредством cookie-файлов
Этот код представляет собой всего лишь последовательность вызовов функций. Программистам на VB будет несложно написать его, используя в качестве образца код на С#.
Листинг 15.9. Неэффективная организация диалога с Web-службой, в которой используется множество вызовов
Этот код представляет собой всего лишь последовательность вызовов функций. Программистам на VB будет несложно написать его, используя в качестве образца код на С#.
Листинг 15.10. Группирование запросов в одном вызове Web-службы
Этот код представляет собой всего лишь последовательность вызовов функций. Программистам на VB будет несложно написать его, используя в качестве образца код на С#.
Листинг 15.11. Код для загрузки файла с Web-сервера
'----------------------------------------------------------
'Осуществляет синхронную загрузку файла с Web-сервера
'и сохраняет его в локальной файловой системе
'[in] httpWhereFrom: URL-адрес файла
' (например, "http://someserver/somefile.jpg")
'[in] filenameWhereTo: Место, куда необходимо записать файл
' (например, "\\localfile.jpg")
'----------------------------------------------------------
Public Sub downloadFileToLocalStore(ByVal httpWhereFrom As _
String, ByVal filenameWhereTo As String)
Dim myFileStream As System.IO.FileStream = Nothing
Dim myHTTPResponseStream As System.IO.Stream = Nothing
Dim myWebRequest As System.Net.WebRequest = Nothing
Dim myWebResponse As System.Net.WebResponse = Nothing
'Если файл, который мы хотим записать, уже существует, удалить его
If (System.IO.File.Exists(filenameWhereTo) = True) Then
System.IO.File.Delete(filenameWhereTo)
End If
Try
'Создать Web-запрос
myWebRequest = _
System.Net.HttpWebRequest.Create(httpWhereFrom)
'Получить ответ
myWebResponse = myWebRequest.GetResponse
'Получить поток для ответа
myHTTPResponseStream = myWebResponse.GetResponseStream
'Создать локальный файл, в который необходимо направить поток ответа
myFileStream = System.IO.File.OpenWrite(filenameWhereTo)
'Этот размер буфера является настраиваемым
Const buffer_length As Integer = 4000
Dim byteBuffer As Byte
ReDim byteBuffer(buffer_length)
Dim bytesIn As Integer
'Считать файл и направить поток данных в локальный файл
Do
'Считать данные
bytesIn = myHTTPResponseStream.Read(byteBuffer, _
0, buffer_length)
'Записать данные
If (bytesIn <> 0) Then
myFileStream.Write(byteBuffer, 0, bytesIn)
End If
Loop While (bytesIn <> 0)
Catch myException As Exception 'Сбой при загрузке!
'Что-то случилось. Освободить ресурс
attemptCleanup ThrowNoExceptions(myFileStream, _
myHTTPResponseStream, myWebResponse)
'Теперь, когда ресурс освобожден, повторно сгенерируем исключение,
'чтобы сообщить приложению о том, что произошел сбой!
Throw myException
End Try
'Загрузка прошла успешно!
'Закрыть все ресурсы.
Try
'Стандартная процедура закрытия ресурсов.
myFileStream.Close
myFileStream = Nothing
myHTTPResponseStream.Close
Поделиться:
Популярные книги
Я до сих пор не князь. Книга XVI
16. Дорогой барон!
Фантастика:
юмористическое фэнтези
попаданцы
аниме
5.00
рейтинг книги
Мы друг друга не выбирали
1. Мы выбираем...
Любовные романы:
остросюжетные любовные романы
прочие любовные романы
современные любовные романы
5.00
рейтинг книги
Конец детства (сборник)
Фантастика:
научная фантастика
7.00
рейтинг книги
На границе империй. Том 7. Часть 3
9. Фортуна дама переменчивая
Фантастика:
космическая фантастика
попаданцы
5.40
рейтинг книги
Казань
2. Русский бунт
Фантастика:
альтернативная история
4.50
рейтинг книги
Практик
5. Ушедший Род
Фантастика:
аниме
фэнтези
попаданцы
5.00
рейтинг книги
Кодекс Охотника. Книга XIX
19. Кодекс Охотника
Фантастика:
фэнтези
5.00
рейтинг книги
Последний Паладин. Том 9
9. Путь Паладина
Фантастика:
попаданцы
аниме
фэнтези
5.00
рейтинг книги
Геном хищника. Книга третья
3. Я - Легенда!
Фантастика:
боевая фантастика
рпг
попаданцы
5.00
рейтинг книги
Стеллар. Трибут
2. Стеллар
Фантастика:
боевая фантастика
рпг
8.75
рейтинг книги
Лекарь Империи 7
7. Лекарь Империи
Фантастика:
городское фэнтези
аниме
боевая фантастика
попаданцы
5.00
рейтинг книги
Ефрейтор. Назад в СССР. Книга 2
2. Второй шанс
Фантастика:
попаданцы
альтернативная история
7.00
рейтинг книги
Убивать чтобы жить 5
5. УЧЖ
Фантастика:
боевая фантастика
космическая фантастика
рпг
5.00
рейтинг книги
Эммануэль
1. Эммануэль
Любовные романы:
эро литература
7.38