inQueryFile = "F:\wwww\111.gif"
Handle = FreeFile
Open inQueryFile For Binary Access Read Lock Read As #Handle
ToPostData$ = Input(FileLen(inQueryFile), #Handle)
Close #Handle
With oStr 'пробую 2-метод используя ADODB.STREAM
.Open
.Position = 0
.Type = adTypeBinary
.LoadFromFile (inQueryFile)
'ToPostData$ = .Read
.Close
End With
Dim objHTTP As New MSXML2.xmlhttp
PostString = "--f89awenrh8f8" & vbCrLf & _
"Content-disposition: form-data; name=" & Chr(34) & "urlImg" & Chr(34) & "; filename=" & Chr(34) & _
inQueryFile & Chr(34) & vbCrLf & "Content-Type: image/gif" & _
vbCrLf & vbCrLf & ToPostData$ & vbCrLf & "--f89awenrh8f8--"
objHTTP.Open "POST", "http://localhost/b4b/loadgraf.asp", False
objHTTP.setRequestHeader "Content-Type", "multipart/form-data; boundary=f89awenrh8f8"
'objHTTP.setRequestHeader "Content-Type", "charset=utf-8"
On Error GoTo ErrHandler
objHTTP.Send PostString
Загрузка файла на хостинг из под приложения
Нужно срочно дополнить свою программу функцией, которая при передаче ей абсолютного пути к файлу загрузит этот файл на сервер. Передача идет по одному файлу, асинхронный метод не требуется, графический интерфейс тоже не нужен (работает по нажатию одной кнопки). Путь на хостинге к папке,в которую следует загрузить, всегда одинаков.
Как это сделать? (ссылки на статьи в Инете прошу не кидать, я Google пока еще могу пользоваться). НУЖНА МАКСИМАЛЬНАЯ МИНИМИЗАЦИЯ КОДА и его МАКСИМАЛЬНОЕ УПРОЩЕНИЕ.
Очень жду советов, а еще лучше Ваших идей в source-варианте!
Как это сделать? (ссылки на статьи в Инете прошу не кидать, я Google пока еще могу пользоваться). НУЖНА МАКСИМАЛЬНАЯ МИНИМИЗАЦИЯ КОДА и его МАКСИМАЛЬНОЕ УПРОЩЕНИЕ.
Очень жду советов, а еще лучше Ваших идей в source-варианте!
А сами-то что сделали уже? Предлагаю вам запостить кусок кода, где у вас что-то не получается.
На стороне сервера пробую двумя РАБОЧИМИ способами: freeASPUpload и clsUpload из lewismoten.com (прекрасное решение, которое позволяет вытягивать все свойства файла)
Вот как пытаюсь энто дело сделать:
На стороне сервера, скрипт выдает ошибку чтения бинарных данных. Как правильно передать бинарные данные?
Вот как пытаюсь энто дело сделать:
Код:
На стороне сервера, скрипт выдает ошибку чтения бинарных данных. Как правильно передать бинарные данные?