unit main;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Xml.xmldom, Xml.XMLIntf, Xml.XMLDoc, Vcl.StdCtrls,
  Vcl.ComCtrls, Winapi.ShellApi;

type
  TForm1 = class(TForm)
    lwXML: TListView;
    XMLDocument1: TXMLDocument;
    btnRefresh: TButton;
    procedure btnRefreshClick(Sender: TObject);
    procedure lwXMLDblClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    /// <summary> ListView'i XML verileri ile doldurur </summary>
    procedure FillList;

    /// <summary> ListView içinde tutulan veri hafızasını serbest bırakır </summary>
    procedure ClearListItems;

    /// <summary> String olarak verilen URL'yi varsayılan browser ile açar </summary>
    procedure OpenUrl(Url: String);

    /// <summary> XML ile gelen tarih bilgisini dd/mm/yyyy hh:nn:ss formatına çevirir </summary>
    /// <remarks> XML tarih formatına örnek: Tue, 12 Dec 2017 16:51:48 +0300 </remarks>
    function ChangeXmlDate(const xmlDate: String): String;
  public
    { Public declarations }
  end;

  TWebData = record
    title: String;
    date_: String;
    link: String;
  end;
  PWebData = ^TWebData;

var
  Form1: TForm1;

implementation

uses DateUtils;

{$R *.dfm}

procedure TForm1.btnRefreshClick(Sender: TObject);
begin
  FillList;
end;

procedure TForm1.FillList;
var
  cur: TCursor;
  aNode: IXMLNode;
  NodeData: PWebData;
begin
  cur := Screen.Cursor;
  Screen.Cursor := crHourGlass;
  ClearListItems;
  lwXML.Clear;
  lwXML.Items.BeginUpdate;
  try
    XMLDocument1.Active := False;
    XMLDocument1.FileName := 'http://www.delphican.com/syndication.php';
    XMLDocument1.Active := True;
    aNode := XMLDocument1.DocumentElement.ChildNodes.First.ChildNodes.FindNode('item');
    repeat
      New(NodeData);
      NodeData.title := aNode.ChildNodes['title'].Text;
      NodeData.date_ := ChangeXmlDate(aNode.ChildNodes['pubDate'].Text);
      NodeData.link := aNode.ChildNodes['link'].Text;

      with lwXML.Items.Add do
      begin
        Caption := NodeData.title;
        SubItems.Add(NodeData.date_);
        Data := Pointer(NodeData);
      end;

      aNode := aNode.NextSibling;
    until (aNode = nil);
  finally
    lwXML.Items.EndUpdate;
    Screen.Cursor := cur;
  end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ClearListItems;
end;

procedure TForm1.lwXMLDblClick(Sender: TObject);
var
  NodeData: TWebData;
begin
  if lwXML.Selected <> nil then
  begin
    NodeData := PWebData(lwXML.Selected.Data)^;
    OpenUrl(NodeData.link);
  end;
end;

procedure TForm1.OpenUrl(Url: String);
var
  SEInfo: TShellExecuteInfo;
begin
  FillChar(SEInfo, SizeOf(SEInfo), 0);
  SEInfo.cbSize := SizeOf(TShellExecuteInfo);
  SEInfo.Wnd := 0;
  SEInfo.lpFile := PChar(Url);
  SEInfo.lpParameters := nil;
  SEInfo.nShow := SW_SHOWDEFAULT;
  SEInfo.lpVerb := 'open';
  SEInfo.lpDirectory := nil;
  ShellExecuteEx(@SEInfo);
end;

function TForm1.ChangeXmlDate(const xmlDate: String): String;
var
  strDate: String;
  FS: TFormatSettings;
  I: Integer;
begin
  strDate := Copy(xmlDate, 6, 20);
  FS := TFormatSettings.Create('en-US');
  for I := 1 to 12 do
  begin
    Result := StringReplace(strDate, ' '+FS.ShortMonthNames[I]+' ', '/'+IntToStr(I)+'/', []);
    if Result <> strDate then
      Break;
  end;
end;

procedure TForm1.ClearListItems;
var
  aItem: TListItem;
begin
  for aItem in lwXML.Items do
    Dispose(PWebData(aItem.Data));
end;

end.

(14-12-2017, Saat: 13:30)SimaWB Adlı Kullanıcıdan Alıntı: Ben aslında bu projeyi IDE Eklentisi Yapmak konusunun ikinci bölümü için hazırladım
Delphi IDE'sinde açılan, sürükle bırak mantığyla çalışan bir form içerisinde RSS bilgileri gözükecek.

---

Fakat RSS'de okundu/okunmadı bilgisi yok (kullanıcı login'e gerek olmadığı için). Bu sebeple HTML Parse ve Login Olma şeklinde kullanımı tercih etmek durumunda kalabilirim.

(14-12-2017, Saat: 13:30)SimaWB Adlı Kullanıcıdan Alıntı: Ben aslında bu projeyi IDE Eklentisi Yapmak konusunun ikinci bölümü için hazırladım
Delphi IDE'sinde açılan, sürükle bırak mantığyla çalışan bir form içerisinde RSS bilgileri gözükecek.