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
'Получить поток для ответа
