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

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: [e-mail]
        ReportedBy: [e-mail]

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;