West Wind Internet Protocols
Re: oHTTP.HTTPGet post file to FreeASPUpload page?
Messages
Reply
Edit
Delete
Nov. 30, 2012
01:23 pm
3NN0SPQ5V![Show this entire thread in new window]()
01:23 pm
3NN0SPQ5V
| From: | Michael Hogan |
| To: | Michael Hogan |
<%@ Page Language="VB" %><script runat="server">Sub SubmitButton_Click(Source AsObject, e As EventArgs)IfNot (File1.PostedFile IsNothing) ThenTry File1.PostedFile.SaveAs("D:\Web\Chamberware\Www\Uploads\uploadedfile.txt") Span1.InnerHtml = "Upload Successful!"Catch ex As Exception Span1.InnerHtml = "Error saving file <b>C:\\"& _ File1.Value & "</b><br>"& ex.ToString()EndTryEndIfEndSub</script><html><head></head><body><form runat="server" enctype="multipart/form-data">Select a fileto upload:<br /><input type="file" id="File1" runat="Server"><p><input type="submit" id="Submit1" runat="Server" value="Upload File" OnServerClick="SubmitButton_Click"><p><span id="Span1" runat="Server" /></form></body></html>
I'm trying to automate posting a file to an FreeASPUpload page, but it's returning result: "Error in parsing uploaded binary request."
I'm using very simple code:
oHTTP = createObject("wwHTTP") oHTTP.nHttpPostMode = 2 && Multipart form encoding oHTTP.AddPostKey() && Clear existing POST buffer*** Post a file and a regular form variable oHttp.AddPostKey("attach1","c:\install.log",.T.) lcHTML = oHTTP.HTTPGet("http://www.chamberware.com/uploadTester.asp")STRTOFILE(lcHTML,"ReturnedHTML.HTM",0)
Looking at the ASP source code, it appears to be triggered by this ASP VB InstrB function:
PrivateFunction SkipToken(sToken, nStart) SkipToken = InstrB(nStart, VarArrayBinRequest, sToken)If SkipToken = 0 then...
Now... this particular upload tool requires some FORM elements are set for the code to work, but I don't know how to duplicate that in my HTTPGet call:
<code>
The following attributes of the FORM element are required and must have these exact values:
method="POST"
enctype="multipart/form-data"
accept-charset="utf-8"<</CODE>>
Any suggestions would be gratefully accepted...
