Displaying 1 result from an estimated 1 matches for "edit1".
Did you mean:
edit
2010 Sep 02
1
XmlHttpObject
Hello!
Is there a reason why applications using xmlhttprequest don't work?
Simple Delphi code.
Uses comobj;
procedure TForm1.Button1Click(Sender: TObject);
var xmlhttp: variant;
begin
xmlhttp:=createoleobject('MSXML2.XMLHTTP.3.0');
xmlhttp.open('GET', edit1.text, true);
xmlhttp.send();
while (xmlhttp.readystate<>4) do application.processmessages;
memo1.lines.add(xmlhttp.responsetext);
end;
Screen cap: http://netikka.net/dev/ole.jpg
Here is zipped exe: http://netikka.net/dev/ole.zip
Click ok -> OLE error 800401F3 (Ubuntu 10.04, Wine...