
17.12.2012, 19:31
|
 |
Let Me Show You
|
|
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
|
|
Код:
FXMLHttpRequest: IXMLHttpRequest;
XMLDOMDocument: IXMLDOMDocument;
uid: String;
...
FXMLHttpRequest:=CreateComObject(CLASS_XMLHTTPRequest) as IXMLHttpRequest;
FXMLHttpRequest.open('GET', 'http://server/xml', False, '', '');
FXMLHttpRequest.send('');
if FXMLHttpRequest.status<>200 then raise ...
XMLDOMDocument:=XMLHttpRequest.responseXML as IXMLDOMDocument;
if XMLDOMDocument.parseError.errorCode<>0 then raise ...
uid:=XMLDOMDocument.getElementsByTagName('uid').item[0].text;
__________________
Пишу программы за еду.
__________________
|