Добрый день жители форума.
Хотелось бы сделать проверку на то, существует ли xml-лента по URL-адресу(переменная host), до того как программа выпадет в ошибку.
Помогите с реализацией. Код ниже работает, но проверки нет.
Код:
var
host:string;
XMLHTTP: Variant;
xmldomdocument: IXMLDOMDocument;
xmldomnodelist: IXMLDOMNodeList;
code:
XMLHTTP:=CreateOleObject('Microsoft .XMLHTTP');
XMLHTTP.open('GET',host, False);
XMLHTTP.send('');
if XMLHTTP.status=200 then
begin
xmldomdocument:=(IUnknown(XMLHTTP.r esponseXML) as IXMLDOMDocument);
xmldomnodelist:=xmldomdocument.getE lementsByTagName('title');
for i:=0 to 11 do
if xmldomnodelist[i].parentNode.nodeName='item'
then Listbox2.Items.Add(xmldomnodelist.i tem[i].text);
end;
Админ: Пользуемся тегами для оформления кода!