Здравствуйте,
столкнулся с проблемой, файл никак не хочется отправляться
php пишет что массив $_FILES пуст, если простой текст отправлять то все окей
наверно, проблема в интерпретации бинарного файла как текста
Помогите пжалста,
Спасибо
столкнулся с проблемой, файл никак не хочется отправляться
Код:
$filename = 'words3.rar';
$host = "хост";
$fileopen = FileOpen($filename,16)
$fileread = ""
While 1
$t = FileRead($fileopen, 1)
If @error Then ExitLoop
If $t <> 0x00 Then $fileread &= BinaryToString($t)
WEnd
FileClose($fileopen)
;~ MsgBox(64,"asdasd",$fileread)
;~ ConsoleWrite($fileread & @LF)
$boundary = "------"&Chr(Random(Asc("A"), Asc("Z"), 3))&Chr(Random(Asc("a"), Asc("z"), 3))&Chr(Random(Asc("A"), Asc("Z"), 3))&Chr(Random(Asc("a"), Asc("z"), 3))&Random(1, 9, 1)&Random(1, 9, 1)&Random(1, 9, 1)
$oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")
$oHTTP.Open("POST", "http://" & $host & "/do.php")
$oHTTP.setTimeouts(5000, 5000, 15000, 15000)
$oHTTP.SetRequestHeader("Accept", "application/msword, image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, */*")
$oHTTP.SetRequestHeader("Proxy-Connection", "Keep-alive")
$oHTTP.SetRequestHeader("Accept-Language", "ru")
$oHTTP.SetRequestHeader("Content-Type", "multipart/form-data; boundary="&$boundary)
$data="--"&$boundary& @CRLF & _
'Content-Disposition: form-data; name="file"; filename="'&$filename&'"'& @CRLF & _
'Content-Type: application/x-rar-compressed'&@CRLF&@CRLF& _
$fileread & @CRLF & _
"--"&$boundary&"--"
Dim $datasize = StringLen($data)
$oHTTP.SetRequestHeader("Host", $host)
$oHTTP.SetRequestHeader("Content-Length", $datasize)
$oHTTP.SetRequestHeader("Pragma", "no-cache")
ConsoleWrite($data & @LF)
$oHTTP.Send($data)
$oHTTP.WaitForResponse
If @error Then
ConsoleWrite('Error' & @LF)
Return 0
EndIf
$resp= $oHTTP.Responsetext
$head= $oHTTP.GetAllResponseHeaders
ConsoleWrite($head & @LF)
if StringInStr($resp,'Файл не закачался')then ConsoleWrite('NotUploaded'&@LF)
MsgBox(64,"asdasd",$resp)php пишет что массив $_FILES пуст, если простой текст отправлять то все окей
наверно, проблема в интерпретации бинарного файла как текста
Помогите пжалста,
Спасибо
)
