Шрифт:
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