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

Салмре Иво

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