13.03.2011, 14:52
|
|
Let Me Show You
|
|
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
|
|
Код:
unit Unit1;
interface
uses
msxml,
ComObj,
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
XMLHTTP: Variant;
xmldomdocument: IXMLDOMDocument;
xmldomnodelist: IXMLDOMNodeList;
i: Integer;
begin
XMLHTTP:=CreateOleObject('Microsoft.XMLHTTP');
XMLHTTP.open('GET', 'http://mobile-review.com.feedsportal.com/c/33244/f/557683/index.rss', False);
XMLHTTP.send('');
if XMLHTTP.status=200 then
begin
xmldomdocument:=(IUnknown(XMLHTTP.responseXML) as IXMLDOMDocument);
xmldomnodelist:=xmldomdocument.getElementsByTagName('title');
for i:=0 to xmldomnodelist.length-1 do
if xmldomnodelist[i].parentNode.nodeName='item' then
Memo1.Lines.Add(xmldomnodelist.item[i].text);
end;
end;
end.
http://data.cod.ru/93233
__________________
Пишу программы за еду.
__________________
|