[Bug 27891] New: Winhttprequest POST doesn't work
wine-bugs at winehq.org
wine-bugs at winehq.org
Mon Jul 25 00:52:27 CDT 2011
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.
More information about the wine-bugs
mailing list