Кто может подсказать по 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д