Upload инарного файла через компонент Inet - VB
Формулировка задачи:
Как реализовать загрузку файла на сервер через компонент Inet?
Не секрет, что можно грузить не только текстовые файлы но и бинарные.
Но как загрузить на сервер? Сам сервер готов их принять (по крайней мере ВЭБ интерфейс это позволяет сделать) - так как имеется поле для указания локального файла и кнопа для аплоада. Как инициировать соединение на аплоад и...
Какова сама технология. Уж как выдрать из Хтмл кода что и куда именно отсылать - разберусь...
Решение задачи: «Upload инарного файла через компонент Inet»
textual
Листинг программы
Private Function InetExchange(inQueryFile$) As String Dim ToPostData$ Open inQueryFile For Input As #2 ToPostData$ = Input(FileLen(inQueryFile), #2) Close #2 Dim objHTTP As XMLHTTP30 Set objHTTP = New XMLHTTP30 PostString = '--f89awenrh8f8--' & vbCrLf & 'Content-disposition: form-data; name=xmlfile; filename=' & inQueryFile & vbCrLf & 'Content-Type: text/html; charset=windows-1251' & vbCrLf & vbCrLf & ToPostData$ & vbCrLf & ' - -f89awenrh8f8 - -''' objHTTP.Open 'POST', 'http://127.0.0.1/site/up.php', True objHTTP.setRequestHeader 'Content-Type', 'multipart/form-data, boundary=f89awenrh8f8' objHTTP.setRequestHeader 'Content-Type', 'charset=windows-1251' On Error GoTo ErrHandler objHTTP.send PostString Do While objHTTP.readyState <> 4 DoEvents Loop InetExchange = objHTTP.responseText GoTo NormHandler ErrHandler: MsgBox 'Windows is not online' NormHandler: End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д