winhttprequest posting byte() and string in multipart message. Howto

Hi,

I am near to desperation as I have a million things to get a solution
for my problem. I have to post a multipart message to a url that
consists of a xml file and an binary file (pdf). Seperately the
posting words fine but when I want to create one multipart message
with both then things go wrong.

The binary file is converted and of datatype byte()
The xml file is just a string.

I don't know how to merge these two into the multipart message. I have
tried converting the binary to string and then concatenate but that
doesn't work as it seems to leave off the last part of the file and
the boundary.

Any help or pointer would be greatly appreciated.
I am using classic asp.

Thanks.

Fnoppie

Re: winhttprequest posting byte() and string in multipart message. Howto

fnoppie@gmail.com wrote:
> Hi,
>
> I am near to desperation as I have a million things to get a solution
> for my problem. I have to post a multipart message to a url that
> consists of a xml file and an binary file (pdf).

Huh? The url consists of a "xml file ..."?
Oh wait. I get it. The multipart message contains those things.
Carry on.

> Seperately the
> posting words fine but when I want to create one multipart message
> with both then things go wrong.
>
> The binary file is converted and of datatype byte()
> The xml file is just a string.
>
> I don't know how to merge these two into the multipart message. I have
> tried converting the binary to string and then concatenate but that
> doesn't work as it seems to leave off the last part of the file and
> the boundary.
>
Show us what you tried so we can see where you went wrong.


--
Microsoft MVP - ASP/ASP.NET
Please reply to the newsgroup. This email account is my spam trap so I
don't check it very often. If you must reply off-line, then remove the
"NO SPAM"

Re: winhttprequest posting byte() and string in multipart message. Howto

Hello Bob,

Below is a condensed version of the source code.

Posting 'FormDataCv' as the send parameter works fine. Posting
'FormDataXml' as send parameter works fine as well. The problem is
pasting them together. Running the code below will generates a 'data
stream is interrupted unexpectedly' because of the Word file not
getting the completely with boundary and all.

Thanks for your time in advance.

Fnoppie


<%
Dim baseUrl
Dim loginUrl
Dim userName
Dim passWord
Dim account
Dim processUrl

Const WinHttpRequestOption_EnableRedirects = 6
account = "account"
userName = "username"
passWord = "password"
baseUrl = "some/url"
loginUrl = "some/url"
processUrl = "some/url"

Function BinaryToString(Binary)
'Antonin Foller, http://www.motobit.com
'Optimized version of a simple BinaryToString algorithm.

Dim cl1, cl2, cl3, pl1, pl2, pl3
Dim L
cl1 = 1
cl2 = 1
cl3 = 1
L = LenB(Binary)

Do While cl1<=L
pl3 = pl3 & Chr(AscB(MidB(Binary,cl1,1)))
cl1 = cl1 + 1
cl3 = cl3 + 1
If cl3>300 Then
pl2 = pl2 & pl3
pl3 = ""
cl3 = 1
cl2 = cl2 + 1
If cl2>200 Then
pl1 = pl1 & pl2
pl2 = ""
cl2 = 1
End If
End If
Loop
BinaryToString = pl1 & pl2 & pl3
End Function

'----------------------------------------------------------- ----------

Function CreateTrxml()
strXml = ""
strXml = strXml & ""
strXml = strXml & ""
strXml = strXml & ""
strXml = strXml & ""
strXml = strXml & ""
strXml = strXml & ""
strXml = strXml & "opberg"
strXml = strXml & ""
strXml = strXml & ""
strXml = strXml & ""
strXml = strXml & ""
strXml = strXml & ""
CreateTrxml = strXml
End Function

'----------------------------------------------------------- ----------------


Sub do_vbsUpload(FileName)
DestURL= processUrl
FieldName = "uplfile"

UploadFile DestURL, FileName, FieldName
End Sub

'Upload file using input type=file
Sub UploadFile(DestURL, FileName, FieldName)
'Boundary of fields.
'Be sure this string is Not In the source file
Const Boundary = "0123456789012"

Dim FileContents, FormData
'Get source file As a binary data.
FileContents = GetFile(FileName)

'Build multipart/form-data document
FormDataCv = BuildFormData(FileContents, Boundary, FileName,
FieldName)
FormDataXml = BuildFormDataXml(CreateTrxml(), Boundary,
"trxml.xml", "trxml")
FormData = FormDataXml + cstr(FormDataCv)
'Post the data To the destination URL
IEPostBinaryRequest DestURL, FormData, Boundary
End Sub

'Build multipart/form-data document with file contents And header
info
Function BuildFormData(FileContents, Boundary, FileName, FieldName)
Dim FormData, Pre, Po
Const ContentType = "application/msword"

'The two parts around file contents In the multipart-form data.
'Pre = "--" + Boundary + vbCrLf + mpFields(FieldName, FileName,
ContentType)
Pre = mpFields(FieldName, FileName, ContentType)
Po = vbCrLf + "--" + Boundary + "--" + vbCrLf

'Build form data using recordset binary field
Const adLongVarBinary = 205
Dim RS: Set RS = CreateObject("ADODB.Recordset")
RS.Fields.Append "b", adLongVarBinary, Len(Pre) + LenB(FileContents)
+ Len(Po)
RS.Open
RS.AddNew
Dim LenData
'Convert Pre string value To a binary data
LenData = Len(Pre)
RS("b").AppendChunk (StringToMB(Pre) & ChrB(0))
Pre = RS("b").GetChunk(LenData)
RS("b") = ""

'Convert Po string value To a binary data
LenData = Len(Po)
RS("b").AppendChunk (StringToMB(Po) & ChrB(0))
Po = RS("b").GetChunk(LenData)
RS("b") = ""

'Join Pre + FileContents + Po binary data
RS("b").AppendChunk (Pre)
RS("b").AppendChunk (FileContents)
RS("b").AppendChunk (Po)
RS.Update
FormData = RS("b")
RS.Close
BuildFormData = FormData
End Function

Function BuildFormDataxml(FileContents, Boundary, FileName,
FieldName)
'response.write filecontents
Dim FormData, Pre, Po
Const ContentType = "text/xml"

'The two parts around file contents In the multipart-form data.
Pre = "--" + Boundary + vbCrLf + mpFields(FieldName, FileName,
ContentType)
Po = vbCrLf + "--" + Boundary + vbCrLf

FormData = Pre & FileContents & Po

BuildFormDataxml = FormData
End Function

'sends multipart/form-data To the URL
Function IEPostBinaryRequest(URL, FormData, Boundary)
set req = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
req.option(WinHttpRequestOption_EnableRedirects) = False
response.write "

url: " & URL & "

req.getAllResponseHeaders: " &
req.getAllResponseHeaders() & "

status: " & req.status & "

statustext: " & req.statusText & "

Re: winhttprequest posting byte() and string in multipart message. Howto

Anyone, please? Any minor tip would be greatly appreciated.

Thanks a lot.

Fnoppie.

Re: winhttprequest posting byte() and string in multipart message. Howto

wrote in message
news:1181415221.268105.275070@h2g2000hsg.googlegroups.com...
> Anyone, please? Any minor tip would be greatly appreciated.
>
> Thanks a lot.
>
> Fnoppie.
>

The boundaries don't look right to me. Since each BuildFormDataXXX
functions adds the boundary twice. There should only be one boundary per
part with a final boundary having the suffix --

In cases such as this I find the fiddler tool invaluable.
www.fiddlertool.com (its free). Its a debugging proxy which allows you to
see the HTTP traffic.

It seems you are trying to emulate what happens when a HTML Form is posted
when that form contains two file inputs.

Build such a HTML form then with fiddler capturing use it in IE to post an
XML and a PDF file.

You can then use fiddler on the machine where your ASP is running (not a
production machine mind you). Now compare the headers and encoding used by
the IE post with what you code is producing and tweak you code accordingly.

Note for fiddler to trap WinHTTP traffic you will need the command

proxycfg -u

after fiddler is capturing and before you terminate capture in fiddler use:-

proxycfg. -d

Re: winhttprequest posting byte() and string in multipart message. Howto

Hello Anthony,

Thanks for your response. I have tried fiddler and it works like a
charm.

However, I see that when I try to send the xml and binary file at the
same time, that the xml file is put in the multipart file just fine.
The binary file however is truncated when I convert it to a string
with the binarytostring function. That is why the binary file is never
posted to the remote url.

This is part of the fiddler log. As you can see that the binary file
only consists of a question mark. If I send the binary file alone in
the send paramater than I see the complete binary file with boundaries
and all.

-----------------------------------------------------

Content-Disposition: form-data; name=3D"xml"; filename=3D"xml.xml"
Content-Type: text/xml

xmlns=3D'someurl'> count=3D"1" key=3D"lastname"> key=3D"lastname">lastname ItemGroup> key=3D"givenname">Firstname DocumentStructure>
--0123456789012
Content-Disposition: form-data; name=3D"uploaded_file"; filename=3D"f:\data
\cv\textkernel\sa753.tmp"
Content-Type: application/msword

 

-------------------------------------

Can anybody help me out with this problem?

Thanks a lot.

Pascal

Re: winhttprequest posting byte() and string in multipart message. Howto

>>>>>>>>>>>>>>
wrote in message
news:1181543440.376183.239390@q75g2000hsh.googlegroups.com.. .
Hello Anthony,

Thanks for your response. I have tried fiddler and it works like a
charm.

However, I see that when I try to send the xml and binary file at the
same time, that the xml file is put in the multipart file just fine.
The binary file however is truncated when I convert it to a string
with the binarytostring function. That is why the binary file is never
posted to the remote url.

This is part of the fiddler log. As you can see that the binary file
only consists of a question mark. If I send the binary file alone in
the send paramater than I see the complete binary file with boundaries
and all.

-----------------------------------------------------

Content-Disposition: form-data; name="xml"; filename="xml.xml"
Content-Type: text/xml

xmlns='someurl'> count="1" key="lastname"> key="lastname">lastname ItemGroup> key="givenname">Firstname DocumentStructure>
--0123456789012
Content-Disposition: form-data; name="uploaded_file"; filename="f:\data
\cv\textkernel\sa753.tmp"
Content-Type: application/msword

 

-------------------------------------

Can anybody help me out with this problem?

Thanks a lot.

Pascal
<<<<<<<<<<<<<<<<

Fiddler doesn't show binary content well in Raw view. Did you try Hex view?
I think you will find the content is probably there.

Is the above the complete Raw request? If not can you post it but cut the
actual content itself (just leave a small place marker for it)?