Displaying 1 result from an estimated 1 matches for "memo1".
Did you mean:
memop
2010 Sep 02
1
XmlHttpObject
...elphi 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 1.31)
Works fine with any Windows.