Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
Ezicheck
#1

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

03.05.2011, 17:37. Просмотров 603. Ответов 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.


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

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

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

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

Как сделать так чтобы при выделении текста в memo включилась кнопка - Delphi
Привет всем: помогите пожалуйста как сделать так чтобы при выделении текста в memo включилась кнопка ??? n1.Enabled:=false; если...

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

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

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

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

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

Как сделать так чтобы при создании новой ветки создавался новый текстовый документ - Delphi
Как сделать так чтобы при создании новой ветки создавался новый текстовый документ и в него сохранялось содержимое из memo. И так же при...

Как сделать так, чтобы при нажатии на Worddocument1 открывалось в Word то, что написано в Memo? - Delphi
Есть Memo1, WordDocument1. Как сделать так, чтобы при нажатии на woddocument1 открывалось в Word, то что написано в Memo


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

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

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