[Bug 27891] New: Winhttprequest POST doesn't work

[wine-bugs at winehq.org]

http://bugs.winehq.org/show_bug.cgi?id=27891

           Summary: Winhttprequest POST doesn't work
           Product: Wine
           Version: 1.3.25
          Platform: x86
               URL: http://netikka.net/dev/posttest.exe
        OS/Version: Linux
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: winhttp
        AssignedTo: wine-bugs at winehq.org
        ReportedBy: ocean04 at suomi24.fi


http://netikka.net/dev/posttest.exe


SetRequestHeader implementation is needed first. Maybe not enough to make this
work, interesting to see. I use this kind of code to send formdata/photographs
to server.


procedure TForm1.Button1Click(Sender: TObject);

var fhttp, postdata: variant;

    i: integer;

    s: string;

begin

 s:='test=12345';

 postData := VarArrayCreate([0, Length(s) - 1], varByte);

 for i := 1 to Length(s) do postData[i-1] := Ord(s[i]);
 fhttp:=createoleobject('WinHttp.WinHttpRequest.5.1');

 fhttp.open('POST', 'http://netikka.net/dev/posttest.php', true);
 fhttp.setRequestHeader('Content-Type','application/x-www-form-urlencoded');
 fhttp.send(postdata);

 if Not fhttp.WaitForResponse(30) then

 begin

  fhttp.Abort;

  fhttp:=unassigned;

  showmessage('Timeout!');

  exit;
 end;

 if fhttp.responsetext='12345' then

   showmessage('Success!') else showmessage('Failed!');

 fhttp:=unassigned;

end;

-- 
Configure bugmail: http://bugs.winehq.org/userprefs.cgi?tab=email
Do not reply to this email, post in Bugzilla using the
above URL to reply.
------- You are receiving this mail because: -------
You are watching all bug changes.