Здравствуйте товарищи. Слёзно прошу вас помочь мне написать компонент, наследник TStringGrid. Этот компонент должен уметь читать RSS ленту новостей, используя парсер от Microsoft. Когда мы ставим компонент на форму, мы указываем в свойстве адрес ленты и при активации свойства Active например, он нам читает нововсти и заполняет их в свои ячейки. У меня получилось сделать обыкновенное приложение, не компонент, в этом приложении все делается с TMemo. А вот как это всё реализовать в компоненте, да тем более наследнике TStringGrid не представляю.
Вот код моего приложения:
Код:
procedure TForm1.Button1Click(Sender: TObject);
Var rss_doc: IXMLDOMDocument;
node1: IXMLDOMNode;
i:Integer;
begin
If not (OpenDialog1.Execute) then Exit;
rss_doc:=CoDOMDocument.Create;
rss_doc.async:=False;
rss_doc.load(OpenDialog1.FileName);
if rss_doc.parseError.errorCode<>0 then
begin
ShowMessage('При загрузке файл произошла ошибка!'+#13#10+
'Код ошибки: '+IntToStr(rss_doc.parseError.errorCode)+#13#10+
'Текст ошибки: '+rss_doc.parseError.reason+#13#10+
'Строка с ошибкой: '+IntToStr(rss_doc.parseError.line)+#13#10+
'Символ в строке с ошибкой: '+IntToStr(rss_doc.parseError.linepos));
CoUnInitialize;
Exit;
end;
node1:= rss_doc.selectSingleNode('//rss');
For i:=0 to node1.selectNodes('//item').length-1 do
begin
Memo1.Lines.Add('Заголовок');
Memo1.Lines.Add(node1.selectnodes('//item').item[i].selectSingleNode('title').Text);
Memo1.Lines.Add('Ссылка');
Memo1.Lines.Add(node1.selectnodes('//item').item[i].selectSingleNode('link').Text);
Memo1.Lines.Add('Описание');
Memo1.Lines.Add(node1.selectnodes('//item').item[i].selectSingleNode('description').Text);
If not (node1.selectnodes('//item').item[i].selectSingleNode('PubDate') = nil) then
begin
Memo1.Lines.Add('Дата публикации');
Memo1.Lines.Add(node1.selectnodes('//item').item[i].selectSingleNode('PubDate').Text)
end;
If not (node1.selectnodes('//item').item[i].selectSingleNode('Author') = nil) then
begin
Memo1.Lines.Add('Автор');
Memo1.Lines.Add(node1.selectnodes('//item').item[i].selectSingleNode('Author').Text);
end;
If not (node1.selectnodes('//item').item[i].selectSingleNode('lastBuildDate') = nil) then
begin
Memo1.Lines.Add('lastBuildDate');
Memo1.Lines.Add(node1.selectnodes('//item').item[i].selectSingleNode('lastBuildDate').Text);
end;
end;
end;
end.