Kniga-Online.club
» » » » Иво Салмре - Программирование мобильных устройств на платформе .NET Compact Framework

Иво Салмре - Программирование мобильных устройств на платформе .NET Compact Framework

Читать бесплатно Иво Салмре - Программирование мобильных устройств на платформе .NET Compact Framework. Жанр: Программирование издательство -, год 2004. Так же читаем полные версии (весь текст) онлайн без регистрации и SMS на сайте kniga-online.club или прочесть краткое содержание, предисловие (аннотацию), описание и ознакомиться с отзывами (комментариями) о произведении.
Назад 1 ... 202 203 204 205 206 Вперед
Перейти на страницу:

 'В этом месте возможны два состояния:

 '#1: Мы получили соединение от передающего устройства IR

 '#2: IR-запрос был отменен (кто-то вызвал функцию STOP)

 ' (в этом случае приведенный ниже код сгенерирует исключение)

 'Проверить, не было ли отменено выполнение

 If (m_wasListenerStopped = True) Then

  GoTo exit_sub_with_abort

 End If

 '==========================================

 'ОБНОВЛЕНИЕ СОСТОЯНИЯ

 '==========================================

 setStatus(ReceiveStatus.NotDone_Receiving)

 '-------------------------

 'Открыть принимающий поток

 '-------------------------

 Try

  irStreamIn = irdaClient.GetStream()

 Catch exGetInputStream As System.Exception

  m_errorDuringTransfer = "Error getting input stream - " + _

   exGetInputStream.Message

  GoTo exit_sub_with_error

 End Try

 'Приготовиться к получению данных!

 Const BUFFER_SIZE As Integer = 1024

 Dim inBuffer() As Byte

 ReDim inBuffer(BUFFER_SIZE)

 Dim bytesRead As Integer

 Do

  'Считать байты из порта IR

  bytesRead = irStreamIn.Read(inBuffer, 0, BUFFER_SIZE)

  'Записать байты в наш выходной поток

  If (bytesRead > 0) Then

   outputStream.Write(inBuffer, 0, bytesRead)

  End If

 Loop While (bytesRead > 0)

 outputStream.Flush() 'Закончить запись любых выходных данных

 '==========================================

 'ОБНОВЛЕНИЕ СОСТОЯНИЯ: УСПЕШНО ВЫПОЛНЕНО

 '==========================================

 setStatus(ReceiveStatus.Done_Success)

 Return 'No errors

 '==========================================

 'ОШИБКА.

 '==========================================

exit_sub_with_abort:

 'ОБНОВЛЕНИЕ СОСТОЯНИЯ: Отменено (но не из-за ошибки)

 setStatus(ReceiveStatus.Done_Aborted)

 Return

exit_sub_with_error:

 'ОБНОВЛЕНИЕ СОСТОЯНИЯ: ОШИБКА!!!!

 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()

  myHTTPResponseStream = Nothing

  myWebResponse.Close()

  myWebResponse = Nothing

 Catch myException As Exception 'Сбой в процессе закрытия ресурса!

  'Что-то случилось. Освободить ресурс

  attemptCleanup_ThrowNoExceptions(myFileStream, _

   myHTTPResponseStream, myWebResponse)

  'Теперь, когда ресурс освобожден, повторно сгенерируем исключение,

  'чтобы сообщить приложению о том, что произошел сбой!

  Throw myException

 End Try

 'Успешное выполнение!

End Sub

'----------------------------------------------

'Пытается закрыть и освободить все объекты

'Перехватывает любое вырабатываемое исключение.

'----------------------------------------------

Sub attemptCleanup_ThrowNoExceptions( _

 ByVal myFileStream As System.10.FileStream, _

 ByVal myHTTPResponseStream As System.IO.Stream, _

 ByVal myWebResponse As System.Net.WebResponse)

 If Not (myFileStream Is Nothing) Then

  Try

   myFileStream.Сlose()

  Catch 'He выполнять никаких действий.

  End Try

 End If

 If Not (myHTTPResponseStream Is Nothing) Then

  Try

   myHTTPResponseStream.Close()

  Catch 'He выполнять никаких действий.

  End Try

 End If

 If Not (myWebResponse Is Nothing) Then

 Try

  myWebResponse.Close()

 Catch 'He выполнять никаких действий.

 End Try

End If

End Sub

Примечания

1

Caveat emptor (лат.) — пусть покупатель будет бдителен.

Назад 1 ... 202 203 204 205 206 Вперед
Перейти на страницу:

Иво Салмре читать все книги автора по порядку

Иво Салмре - все книги автора в одном месте читать по порядку полные версии на сайте онлайн библиотеки kniga-online.club.


Программирование мобильных устройств на платформе .NET Compact Framework отзывы

Отзывы читателей о книге Программирование мобильных устройств на платформе .NET Compact Framework, автор: Иво Салмре. Читайте комментарии и мнения людей о произведении.


Уважаемые читатели и просто посетители нашей библиотеки! Просим Вас придерживаться определенных правил при комментировании литературных произведений.

  • 1. Просьба отказаться от дискриминационных высказываний. Мы защищаем право наших читателей свободно выражать свою точку зрения. Вместе с тем мы не терпим агрессии. На сайте запрещено оставлять комментарий, который содержит унизительные высказывания или призывы к насилию по отношению к отдельным лицам или группам людей на основании их расы, этнического происхождения, вероисповедания, недееспособности, пола, возраста, статуса ветерана, касты или сексуальной ориентации.
  • 2. Просьба отказаться от оскорблений, угроз и запугиваний.
  • 3. Просьба отказаться от нецензурной лексики.
  • 4. Просьба вести себя максимально корректно как по отношению к авторам, так и по отношению к другим читателям и их комментариям.

Надеемся на Ваше понимание и благоразумие. С уважением, администратор kniga-online.


Прокомментировать
Подтвердите что вы не робот:*
Подтвердите что вы не робот:*