Кто может подсказать по Internet Transfer Control, как его заставить слать файлы по HTTP? - VB

Узнай цену своей работы

Формулировка задачи:

Какой у него синтаксис после Execute , и если можно пример использования (сэмпл). Заранее спасибо.

Решение задачи: «Кто может подсказать по Internet Transfer Control, как его заставить слать файлы по HTTP?»

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

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


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

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

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