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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 3.778 из 5
Похожие ответы