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

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

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

'Этот код следует вставить в класс Service1, содержащийся

'в файле "Service1.asmx.vb".

'"[WebMethod]" - это атрибут метаданных, который указывает механизму

'Web-службы на то, что данный метод должен быть доступным через Web

_

Public Function AddTwoNumbers(ByVal x As Integer, _

ByVal у As Integer) As Integer

Return x + у

End Function

Этот код представляет собой всего лишь последовательность вызовов функций. Программистам на VB будет несложно написать его, используя в качестве образца код на С#.

Этот код представляет собой всего лишь последовательность вызовов функций. Программистам на VB будет несложно написать его, используя в качестве образца код на С#.

Этот код представляет собой всего лишь последовательность вызовов функций. Программистам на VB будет несложно написать его, используя в качестве образца код на С#.

Этот код представляет собой всего лишь последовательность вызовов функций. Программистам на VB будет несложно написать его, используя в качестве образца код на С#.

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

'Осуществляет синхронную загрузку файла с 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

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