Отрезать двоичный заголовок у пришедшего файла.

[ALX_2002]

Челы. Я получаю файл в таком виде

-----------------------------7d52fd35901a8
Content-Disposition: form-data; name="attach1"; filename="C:\1.zip"
Content-Type: application/x-zip-compressed

Двоичное тело файла

-----------------------------7d52fd35901a8--

Приходит вся эта бадяга в BINARY. В том числе и сам заголовок.

Посоветуйте пожалуйста - как написать код, чтобы разобрать эти заголовки, и вычленить тело самого файла. Запарился.

Split заюзать не смог. Оказалось он только с текстом работает.

[GSerg]

Хм.
Ышшо один

В чём, хотелось бы узнать, принципиальное отличие строки от... эээ... бинарных данных?

[ALX_2002]

Дык понятное дело, что в String могут быть любые данные, но SPLIT почему то неправильно принимает в себя строку. Он двоичные данные конвертит как то. Короче у него в строке идёт - "Я идиот! Убейте меня, кто-нибудь!??"



В результате не получается порубить строку на массив.

[GSerg]

А, собственно, почему там должно отображаться что-то читаемое?
Там тело файла. Непечатаемыми символами.
К примеру.

Как рубим?

[ALX_2002]

Если не сложно - стукни мне в аську 252505765. Буду ооочень благодарен.

Рубил так

Код: Выделить всё

ARR=Split(REQUESTDATA,chrB(13))

и так

Код: Выделить всё

ARR=Split(REQUESTDATA,chrB(13),-1,0)

----------------------------------------------------------------------------
До этого почитал в MSDN. Там нашёл на счёт параметра Compare

Описание

Возвращает одномерныймассив, основанный на нуле, содержащий указанное число подстрок.

Синтаксис

Split(expression[, delimiter[, count[, compare]]])

Синтаксис функции Split содержит следующие элементы:

Часть Описание
expression Обязательный.Строковое выражение, содержащее подстроки и разделители. Если параметр expression является строкой нулевой длины (""), функция Split возвращает пустой массив, не содержащий ни элементов, ни данных.
delimiter Необязательный. Строковый символ, используемый для задания границ подстрок. Если параметр опущен, в качестве разделителя применяется символ пробела (" "). В том случае, когда параметр delimiter является пустой строкой, возвращается массив с единственным элементом, содержащим полную строку expression.
coun Необязательный. Число возвращаемых подстрок; значение –1 указывает на то, что возвращаются все подстроки.
compare Необязательный. Числовое значение, задающее тип сравнения, применяемый при оценке подстрок. См. значения в разделе «Установки».


Установки

Параметр compare может иметь следующие значения:

Константа Значение Описание
vbUseCompareOption –1 Сравнение выполняется с применением установки, задаваемой оператором Option Compare.
vbBinaryCompare 0 Выполняется побитовое сравнение.
vbTextCompare 1 Выполняется текстовое сравнение.
vbDatabaseCompare 2 Только для Microsoft Access. Сравнение выполняется на основе информации, хранящейся в базе данных пользователя.
[/b]

[ALX_2002]

З а д о л б а л с я..... Весь код через ( )( )
| || |

[Antonariy]

Сбрось в файл то, что получаешь и выложи сюда вместе с методом получения.

[ALX_2002]

2 Antonariy: Я же в первом посте всё написал ???

Получаю через Request.BinaryRead(Request.TotalBytes)

[GSerg]

Вот все эти тоталбайтс сюда выложи.

[Antonariy]

Вот именно.

[ALX_2002]

Без проблем. Буду рад, если потестите.

Вот ссылка на скрипт

http://b.domaindlx.com/Xameleon/upload.asp

Вот исходный код скрипта

Код: Выделить всё

<form name="frmSend" method="POST" enctype="multipart/form-data">
File : <input name=attach1 type=file size=35><br>
<input style="margin-top:4" type=submit value="Upload">
</form>
<%

Dim TotalBytes

TotalBytes=Request.TotalBytes

If TotalBytes > 0 then
If Not Response.IsClientConnected Then Response.End
Response.BinaryWrite Request.BinaryRead(TotalBytes)
Response.Flush
End if


%>


Вот что получаю, когда отправляю картинку на ASP


-----------------------------7d52b81a50550 Content-Disposition: form-data; name="attach1"; filename="C:\Documents and Settings\market01x\Мои документы\Мои рисунки\flowers_015.jpg" Content-Type: image/pjpeg яШяа

[GSerg]

Где то, что ты получаешь?

[ALX_2002]

2 Gserg:

В предыдущем посте я написал, что

Вот что получаю, когда отправляю картинку на ASP

-----------------------------7d52b81a50550 Content-Disposition: form-data; name="attach1"; filename="C:\Documents and Settings\market01x\Мои документы\Мои рисунки\flowers_015.jpg" Content-Type: image/pjpeg яШяа

Видишь на хвосте - "яШяа" это те даннные которые пришли. Отстальны символы нечитабельны.... Поэтому пришедшие данные такие короткие.


P.S Плииииз. Спасай. Я до сих пор с этой хренью парюсь. Я так понял в ASP нет GetRequestHeader. А жаль

[Antonariy]

Значит так. Создаешь рекордсет с полем типа binary, загоняешь в него Request.BinaryRead(Request.TotalBytes), где можешь делать с массивом что угодно, он никуда не денется. Находить начало тела файла (2й пробел после "Content-Type:" + 1), создаешь ADODB.Stream, загоняешь в него (st.write) этот массив, становишься на позицию которую вычислил (st.Position) и делаешь Response.BinaryWrite st.Read

[Antonariy]

Значит так. Создаешь рекордсет с полем типа binary, загоняешь в него Request.BinaryRead(Request.TotalBytes), где можешь делать с массивом что угодно, он никуда не денется. Находить начало тела файла (2й пробел после "Content-Type:" + 1), создаешь ADODB.Stream, загоняешь в него (st.write) этот массив, становишься на позицию которую вычислил (st.Position) и делаешь Response.BinaryWrite st.Read