Аплоад через XMLHTTP

@ERge · Регистрация: 29.10.2007

Студворк — интернет-сервис помощи студентам

пишу на eVB для PocketPC аплоад файлов с посылом на PHP скрипт
в принципе у меня проблема только с аплоадом бинарных файлов

если sFileData - текст, то аплоадится без проблем
sData = '----AaB03x' & _
vbCrLf & _
'Content-Disposition: form-data; name=files; filename=file1.gif' & _
vbCrLf & _
'Content-Type: application/octet-stream' & _
vbCrLf & vbCrLf & _
sFileData & _
vbCrLf & vbCrLf & _
'----AaB03x--'
Dim oHTTP As Microsoft.XMLHTTP
Set oHTTP = CreateObject('Microsoft.XMLHTTP')
oHTTP.Open 'POST', 'http://somehost/somescript.php', False
oHTTP.setRequestHeader 'Content-Type', 'multipart/form-data; boundary=--AaB03x'
oHTTP.send sData

а вот как с бинарным не пойму...
пробовал по всякому, не получается

в принимающем скрипте показывается что файл всегда размером 7 байт, либо вообще ни чего нет.

сейчас отсылаемый файл читаю так:
File1.Open sPath, 32, fsAccessRead
sFileData = File1.Input(nFileLen)
File1.Close

длина sData получается соответсвующая всем заголовкам и данным, но в скрипте почему-то только 7 байт.

пробовал читать через File1.InputB и делать StrToBin или наоборот файл BinToStr
либо тоже самое, либо несовпадение типов :-? хотя и привожу к одному, либо вообще ни чего скрипт не отображает.

помогите плз. разобраться, может кто знает где косяк, а то запутался уже :-?
может заголовки как-то по другому выставлять, а sFileData читать бинарно и посылать только его oHTTP.Send sFileData
подумываю может не POST'ом слать а PUT'ом
PHP вроде могет так файлы принимать, но все же хотелось бы решить проблему для посыла POST'ом

PS: это конечно не классический VB, но проблемы с обектом XMLHTTP там имхо такие же, надеюсь модератор не удалит

@ERge · 28.03.2011, 16:45 **[ТС]**

если читать файл в байтах (File1.InputB) и потом посылать как есть, безо всяких заголовков эмуляции поста формы, то по исходящему трафу видно что все уходит нормально.
но в PHP из Request'a его не достать...

Dim bData As Byte
Dim sPath As String
Dim nFileLen As Integer
sPath = 'My Documentsfile1.gif'
nFileLen = FileSystem1.FileLen(sPath)
File1.Open sPath, 32, fsAccessRead
bData = File1.InputB(nFileLen)
File1.Close

Dim oHTTP As Microsoft.XMLHTTP
Set oHTTP = CreateObject('Microsoft.XMLHTTP')
oHTTP.Open 'POST', 'http://somehost/somescript.php', False
oHTTP.setRequestHeader 'Content-Type', 'image/gif'
oHTTP.setRequestHeader 'Content-Length', nFileLen
oHTTP.send bData

Новые блоги и статьи Все статьи Все блоги /
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .

@ERge 0 / 0 / 0 Регистрация: 29.10.2007 Сообщений: 86

	Аплоад через XMLHTTP 28.03.2011, 11:54. Показов 2349. Ответов 1 Метки нет (Все метки) пишу на eVB для PocketPC аплоад файлов с посылом на PHP скрипт в принципе у меня проблема только с аплоадом бинарных файлов если sFileData - текст, то аплоадится без проблем sData = '----AaB03x' & _ vbCrLf & _ 'Content-Disposition: form-data; name=files; filename=file1.gif' & _ vbCrLf & _ 'Content-Type: application/octet-stream' & _ vbCrLf & vbCrLf & _ sFileData & _ vbCrLf & vbCrLf & _ '----AaB03x--' Dim oHTTP As Microsoft.XMLHTTP Set oHTTP = CreateObject('Microsoft.XMLHTTP') oHTTP.Open 'POST', 'http://somehost/somescript.php', False oHTTP.setRequestHeader 'Content-Type', 'multipart/form-data; boundary=--AaB03x' oHTTP.send sData а вот как с бинарным не пойму... пробовал по всякому, не получается в принимающем скрипте показывается что файл всегда размером 7 байт, либо вообще ни чего нет. сейчас отсылаемый файл читаю так: File1.Open sPath, 32, fsAccessRead sFileData = File1.Input(nFileLen) File1.Close длина sData получается соответсвующая всем заголовкам и данным, но в скрипте почему-то только 7 байт. пробовал читать через File1.InputB и делать StrToBin или наоборот файл BinToStr либо тоже самое, либо несовпадение типов :-? хотя и привожу к одному, либо вообще ни чего скрипт не отображает. помогите плз. разобраться, может кто знает где косяк, а то запутался уже :-? может заголовки как-то по другому выставлять, а sFileData читать бинарно и посылать только его oHTTP.Send sFileData подумываю может не POST'ом слать а PUT'ом PHP вроде могет так файлы принимать, но все же хотелось бы решить проблему для посыла POST'ом PS: это конечно не классический VB, но проблемы с обектом XMLHTTP там имхо такие же, надеюсь модератор не удалит 0

@ERge 0 / 0 / 0 Регистрация: 29.10.2007 Сообщений: 86
	28.03.2011, 16:45 [ТС]
	если читать файл в байтах (File1.InputB) и потом посылать как есть, безо всяких заголовков эмуляции поста формы, то по исходящему трафу видно что все уходит нормально. но в PHP из Request'a его не достать... Dim bData As Byte Dim sPath As String Dim nFileLen As Integer sPath = 'My Documentsfile1.gif' nFileLen = FileSystem1.FileLen(sPath) File1.Open sPath, 32, fsAccessRead bData = File1.InputB(nFileLen) File1.Close Dim oHTTP As Microsoft.XMLHTTP Set oHTTP = CreateObject('Microsoft.XMLHTTP') oHTTP.Open 'POST', 'http://somehost/somescript.php', False oHTTP.setRequestHeader 'Content-Type', 'image/gif' oHTTP.setRequestHeader 'Content-Length', nFileLen oHTTP.send bData 0