Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Ezicheck
0 / 0 / 0
Регистрация: 12.07.2015
#1

RSS-клиент: как сделать так чтобы приложение выдавало при отключении сети сообщение нет сети? - Delphi

03.05.2011, 17:37. Просмотров 617. Ответов 0
Метки нет (Все метки)

[I]unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
StdCtrls,MSXML;

type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
ComboBox1: TComboBox;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
URL: string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
CityID: string;
CoDoc: CoDOMDocument;
XMLD: DOMDocument;
r: IXMLDOMElement; // îáúÿâëåíèå îáúåêòîâ DOMElement
FNode: IXMLDOMNode;
i,y: integer;
begin
XMLD:=CoDoc.Create ;
XMLD.async:=false; // åñëè true òî âðîäå äèíàìè÷åñêè áóäåò ïîäãðóæàòü XML ñ ñàéòà
URL:=ComboBox1.Text;
XMLD.load(URL); // äëÿ òåñòèðîâàíèÿ åñëè íåò èíåòà XMLD.load('test.txt');
// ÷òîáû ñîõðàíèòü òî ÷òî çàãðóçèëîñü ñ ñåðâåðà
// XMLD.save('FindCityXML.txt');
// ShowMessage ('íåò ñåòè');
memo1.Clear;
// ïîëó÷àåì èíôîðìàöèþ èç çàãðóæåííîãî ñ ñàéòà XML'ÿ
r:=XMLD.documentElement;
FNode:= r.SelectSingleNode('//rss');
if FNode.attributes.getNamedItem('version').text<>'2.0'
then
begin
Memo1.Lines.Add('Îøèáêà - ýòà âåðñèÿ ïðîãðàììû ïîääåðæèâàåò RSS âåðñèè ÒÎËÜÊÎ 2.0');
Exit;
end;
FNode:= FNode.SelectSingleNode('//channel');
Memo1.Lines.Add('Info: ');
Memo1.Lines.Add('Çàãîëîâîê - ' + FNode.selectSingleNode('//title').text);
Memo1.Lines.Add('Äàòà îáíîâëåíèÿ íîâîñòåé - '+FNode.selectSingleNode('//lastBuildDate').text);
Memo1.Lines.Add('');
Memo1.Lines.Add('News: ');
for i:=0 to FNode.selectNodes('//item').length-1 do
begin
Memo1.Lines.Add('Íîâîñòü - ' + FNode.selectNodes('//item').item[i].childNodes.item[0].text);
Memo1.Lines.Add('Ññûëêà - ' + FNode.selectNodes('//item').item.childNodes.item[1].text);
Memo1.Lines.Add('');
end;
end;

end.


Как сделать так чтобы приложение выдавало при отключении сети сообщение нет сети?
http://www.cyberforum.ru/delphi-beginners/thread2239055.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.05.2011, 17:37
Я подобрал для вас темы с готовыми решениями и ответами на вопрос RSS-клиент: как сделать так чтобы приложение выдавало при отключении сети сообщение нет сети? (Delphi):

Как сделать так, чтобы при нажатии в checkbox очистилось поле в БД
Здравствуйте уважаемые программисты! У меня на checkbox написан такой вот...

Как сделать так чтобы при нажатии на кнопку прибавлялось +0.1 к тексту
Ребята, нужна помощь. Создаю форму, на ней текст и кнопка, в тексте написано...

Как сделать так, чтобы определенные свойства при нажатии кнопки
Как сделать так, чтобы определенные свойства при нажатии кнопки № 2 происходили...

Как сделать так чтобы при выделении текста в memo включилась кнопка
Привет всем: помогите пожалуйста как сделать так чтобы при выделении текста в...

Как сделать так, чтобы 2 окна двигались синхронно при перетягивании главного?
Есть два окошка, Form1 и Form2. Мне нужно, чтобы при перемещении первого...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.05.2011, 17:37
Привет! Вот еще темы с решениями:

Как сделать так,чтобы при выборе строки в TreeView загружался текст?
Где я ошибся собственно? Судя по всему это строка с TreeView1, так как я не...

Как сделать так чтобы при закрытии окна сохранялся текстовый файл
]Здраствуйте, я решил создать свой текстовый редактор. Создал меню и написал...

Как сделать так,чтобы при открытии проекта на несколько секунд появлялась картинка?
Интересует 1 вопрос. Как сделать так,чтобы при открытии проекта на несколько...

Как сделать так, чтобы при нажатии на кнопку в StringGrid создавалась еще 1 строка снизу
Есть StringGrid и с 1 строкой, вводятся данные в стандартные компоненты и после...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru