Beeting Head Against a wall

Discussion in 'Questions (Windows Mobile)' started by bish0p, Sep 11, 2008.

  1. bish0p

    bish0p Member Licensed User

    I have been fighting with uploading a file via multipart/form-data encoding.. with no Success.

    I have sniffed IE, and firefox, and can't figure out what my code is sending that gets the post upload completely ignored
    Code:
    Sub gc_upload_file()
       boundary=
    "---------------------------7d822f2017079e"

       wwwreq.New1(
    "http://www.geocaching.com/my/uploadfieldnotes.aspx")
       wwwreq.AddHeader(
    "Cookie","ASP.NET_SessionId="&Session_ID)
       wwwres.Value = wwwreq.GetResponse

       tmp=wwwres.GetString
       
    regex.New1("id="&Chr(34)&"__VIEWSTATE"&Chr(34)&" value="&Chr(34)&".*"&Chr(34))
       match.Value=
    regex.Match(tmp)
       Viewstate=match.String
       
    'Viewstate=SubString(tmp,StrIndexOf(tmp,"id="&Chr(34)&"__VIEWSTATE"&Chr(34)&" value="&Chr(34),0)+24,4096)
       Viewstate=SubString(Viewstate,24,StrLength(Viewstate)-25)
       
       wwwreq.New1(
    "http://www.geocaching.com/my/uploadfieldnotes.aspx")
       wwwreq.Method=
    "POST"
       wwwreq.UserAgent=
    "Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10.5; en-US; rv:1.9.0.1) Gecko/2008070206 Firefox/3.0.1"
       wwwreq.AddHeader(
    "Cookie","ASP.NET_SessionId="&Session_ID)
       wwwreq.Accept=
    "image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*"
       wwwreq.AddHeader(
    "Accept-Encoding","gzip, deflate")
       
        obj.New1(
    false)
        obj.FromLibrary(
    "wwwreq","req",B4PObject(2))
          obj.SetProperty(
    "Referer","http://www.geocaching.com/my/uploadfieldnotes.aspx")
       wwwreq.KeepAlive=
    TRUE
       wwwreq.ContentType = 
    "multipart/form-data; boundary="&boundary
       
       
       s=boundary&
    crlf&"Content-Disposition: form-data; name="&Chr(34)&"__VIEWSTATE"&Chr(34)&crlf&crlf
       s=s&Viewstate&
    crlf
       s=s&boundary&
    crlf
       s=s&
    "Content-Disposition: form-data; name="&Chr(34)&"fileUpload"&Chr(34)&"; filename="&Chr(34)&"c:\geocache_visits.txt"&Chr(34)&crlf
       s=s&
    "Content-Type: text/plain"&crlf&crlf
       
       totalfilesize = FileSize(AppPath&
    "\geocache_visits.txt")
       FileOpen (c1,AppPath&
    "\geocache_visits.txt",cRandom)
       r=FileGet(c1,
    0,totalfilesize)
       
    'reader.New1(c1,false)
       'count=reader.ReadBytes(buffer2(),totalfilesize)
       
       s=s&r&boundary&
    crlf
       s=s&
    "Content-Disposition: form-data; name="&Chr(34)&"btnUpload"&Chr(34)&crlf&crlf
       s=s&
    "Upload"&crlf
       s=s&boundary&
    "--"&crlf

       buffer() = 
    bit.StringToBytes(s,0,StrLength(s))    
       wwwreq.ContentLength = ArrayLen(buffer())
       
       writer.New1(wwwreq.GetStream,
    false)
            writer.WriteBytes(buffer())
       wwwres.Value = wwwreq.GetResponse

    End Sub
    Any Help would be great.
     
Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice