West Wind Internet Protocols
Re: oHTTP.HTTPGet post file to FreeASPUpload page?
Messages
Reply
Edit
Delete
Nov. 30, 2012
04:18 pm
3NN0YYDQF![Show this entire thread in new window]()
04:18 pm
3NN0YYDQF
| From: | Rick Strahl |
| To: | Michael Hogan |
Where is this failing and what is the error?
You may not have rights to write the file into that folder...
this works for me:
DO wwHttp loHttp = CREATEOBJECT("wwHttp") loHttp.nHttpPostMode = 2 loHttp.AddPostKey("MyFile","c:\sailbig.jpg",.T.) lcHtml = loHttp.HttpGet("http://localhost/wconnect/UploadTest.aspx") ? lcHtml
To this ASPX.cs page:
using
using System;using System.Collections.Generic;using System.Web;using System.Web.UI;using System.Web.UI.WebControls;publicpartialclass UploadTest : System.Web.UI.Page {protectedvoid Page_Load(object sender, EventArgs e) { Response.Write(Request.Files.Count);foreach (string file in Request.Files.AllKeys) { HttpPostedFile upload = Request.Files[file]; Response.Write(" Length: " + upload.ContentLength.ToString()); Response.Write(" FileName: " + upload.FileName); }foreach (string formKey in Request.Form.AllKeys) { Response.Write(formKey + ": " + Request.Form[formKey] + "<hr/>"); } Response.End(); } }
This spits out 1 file and the filename.
+++ Rick ---
I now have a simplified ASP.NET form... The form works interactively but I'm still not getting the VFP HTTPGet to post the file:
<%@ 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 /><<span class="keywords">input type="file" id="File1" runat="Server"><p><<span class="keywords">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...
Rick Strahl
West Wind Technologies
Making waves on the Web
West Wind Technologies
from Maui, Hawaii
Making waves on the Web
