|
' visit http://bytescout.com/rss2htmlscout_example_delphi.html for full version of this example
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;
' visit http://bytescout.com/rss2htmlscout_example_delphi.html for full version of this example
Copyright 2005-2006
|