var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
s: string;
begin
RSS2HTMLScout1.AddFeed('http://feeds.feedburner.com/gizmodo/full',30);
// update every 30 minutes
if NOT RSS2HTMLScout1.Execute
then MessageDlg(Format('Error:
%s',[RSS2HTMLScout1.ErrorMessage]), mtError, [mbOK], 0);
s:= ExtractFilePath(Application.ExeName)+'testOutput.html';
RSS2HTMLScout1.SaveOutputToFile(s);
ShellExecute(GetDesktopWindow, 'open', PChar(s), nil, nil, SW_SHOWNORMAL);
end.
Press F9 to
compile and run the project. The Project1 will
be compiled and executed and here is a screenshot of TestOutput.html:
