Отправка POST запроса средствами VB
Загрузить файл с локального компьютера на сервер посредством
VB (activex) -> PHP используя POST запрос.
Результат:
Пытался, пытаюсь .... но пока что не получается.
Использую компонент Inet.
Функция выглядит следующим образом:
Public Function Send_File(ByVal file_local_path, name_on_server As String) As Boolean
Dim output, txtURL As String
Dim data As String, headers As String
data = "<input name=userfile type=file value=" & file_local_path & ">"
headers = "POST http://www.ownsite.ru/activex/file_upload.php HTTP/1.1\r\n" & _
"Host: http://www.ownsite.ru\r\n" & _
"Content-type: application/x-www-form-urlencoded\r\n" & _
"Content-Length: " & Len(data) & "\r\n\r\n"
' Send file names and local path
' to the server, server script upload them.
With Inet1
.URL = "http://www.ownsite.ru/"
.Document = "activex/file_upload.php"
.Protocol = icHTTP
.Execute , "POST", headers & data
output = Inet1.GetChunk(1024, icString)
End With
MsgBox (output)
End Function
Если кто-нибудь сталкивался с такой задачей, будьте столь любезны, черкните свою рецензию.