'Непрерывное выполнение цикла, пока не удастся отправить сообщение
'-----------------------------------------------------------------
While (True)
'Значения всех этих переменных должны быть нулевыми до и после
'вызова sendStream(...), если не было сгенерировано исключение!
irDASender = Nothing
streamOutToIrDA = Nothing
streamInFromFile = Nothing
'Попытаться передать поток
Dim bSuccess As Boolean
Try
bSuccess = sendStream(mjdescriptionOfLastSendAttempt, _
streamOutToIrDA, irDASender, streamInFromFile)
Catch eUnexpected As System.Exception 'Неожиданная ошибка!!!
setStatus(SendStatus.Finished_Error) 'Уведомить о сбое
m_descriptionOfLastSendAttempt = _
"Unexpected error in IR send loop. " + eUnexpected.Message
'------------------------------------------------
'Освободить все распределенные нами ранее ресурсы
'------------------------------------------------
If Not (streamOutToIrDA Is Nothing) Then
Try
streamOutToIrDA.Close()
Catch
'Поглотить любую ошибку
End Try
streamOutToIrDA = Nothing
End If
If Not (streamInFromFile Is Nothing) Then
Try
streamInFromFile.Close()
Catch
'Поглотить любую ошибку
End Try
streamInFromFile = Nothing
End If
If Not (irDASender Is Nothing) Then
Try
irDASender.Close()
Catch
'Поглотить любую ошибку
End Try
irDASender = Nothing
End If
Return 'Выход
End Try
'Проверить успешность выполнения
If (bSuccess = True) Then
m_descriptionOfLastSendAttempt = "Success!"
setStatus(SendStatus.Finished Successfully)
Return
End If
'Проверить, не была ли операция отменена пользователем
If (m_wasSenderStopped = True) Then
m_descriptionOfLastSendAttempt = "User Aborted."
setStatus(SendStatus.Finished_Aborted)
Return
End If
'В противном случае... Нам пока не удалось обнаружить сервер IrDA,
'имя которого совпадает с именем службы. Мы продолжим выполнение цикла
'и попытаемся найти сервер.
End While
'Мы никогда не попадем в это место программы при выполнении
End Sub
'----------------------------------------------------------------------
'Попытаться передать поток ввода-вывода (например, файл) посредством IR
'[возвращаемое значение]:
' true: успешная передача файла
' false: файл не был успешно передан
'----------------------------------------------------------------------
Private Function sendStream(ByRef errorDescription As String, _
ByRef streamOutToIrDA As System.IO.Stream, _
ByRef irDASender As System.Net.Sockets.IrDAClient, _
ByRef streamInFromFile As System.IO.Stream) As Boolean
errorDescription = ""
'----------------------------
'Создание нового клиента IRDA
'----------------------------
Try
'-------------------------------------------------------
'Возврат произойдет довольно быстро. Клиент будет выбран
'и возвращен, если прослушивающие клиенты отсутствуют.
'-------------------------------------------------------
irDASender = _
New System.Net.Sockets.IrDAClient(m_IrDAServiceName)
Catch eCreateClient As System.Exception
'В данном случае могли возникнуть несколько ситуаций:
'#1: отсутствуют прослушивающие устройства
'#2: прослушивающее устройство существует, но не реагирует
' (может отказаться от разговора)
errorDescription = eCreateClient.Message
Return False
End Try
'В данном случае могли возникнуть несколько ситуаций:
'#1: Мы получили соединение от приемного устройства IR
'#2: IR-запрос был отменен (кто-то вызвал функцию STOP).
If (m_wasSenderStopped = True) Then
irDASender.Close()
irDASender = Nothing
Return False
End If
'==========================================
'ПЕРЕДАТЬ ДАННЫЕ!
'==========================================
'Открыть файл, который мы хотим передать
streamInFromFile = System.IO.File.OpenRead(m_fileToSend)
'Открыть сокет IrDA, которому мы хотим передать данные
streamOutToIrDA = irDASender.GetStream()
Const BUFFER_SIZE As Integer = 1024
Dim inBuffer() As Byte
ReDim inBuffer(BUFFER_SIZE)
Dim bytesRead As Integer
Dim iTestAll As Integer
Dim iTestWrite As Integer
' Цикл...
Do
'Считать байты из файла
bytesRead = streamInFromFile.Read(inBuffer, 0, BUFFER_SIZE)
iTestAll = iTestAll + 1
'Записать байты в наш выходной поток
If (bytesRead > 0) Then
streamOutToIrDA.Write(inBuffer, 0, bytesRead)
iTestWrite = iTestWrite + 1
End If
Loop While (bytesRead > 0)
'Сбросить выходной поток
streamOutToIrDA.Flush() 'Закончить запись любых данных
streamOutToIrDA.Close() 'Закрыть поток
streamOutToIrDA = Nothing
'Освободить локальный файл
streamInFromFile.Close()
streamOutToIrDA = Nothing
'Освободить порт IrDA
irDASender.Close()
irDASender = Nothing
'Успешное завершение!!!
Return True
End Function
End Class
Листинг 15.5. Класс IrDAFileReceive