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

Автор книги: Иво Салмре

сообщить о нарушении

Текущая страница: 69 (всего у книги 69 страниц)

   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