1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:

unit Unit1   // Heise Tickertext;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Label1: TLabel;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
    TickerText: String;
    function CopyFileFromURL(const URL: string; MS: TMemoryStream): integer;
    procedure ParseStrings(Memo: TMemo);
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

uses
  WinINet;

{$R *.dfm}

const
  urlHeiseNews = 'http://www.heise.de/newsticker/heise.rdf';

function TForm1.CopyFileFromURL(const URL: string; MS: TMemoryStream): Integer;
const
  BufferSize = 1024;
var
  hSession, hURL: HInternet;
  Buffer: array[0..BufferSize - 1] of Char;
  BufferLength: DWORD;
  ByteCount: DWORD;
begin
  Result := -1;
  ByteCount := 0;

  if Assigned(ms) then
  begin
    hSession := InternetOpen(PChar(Application.Title),
      INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
    try
      if Assigned(hSession) then
      begin
        hURL := InternetOpenURL(hSession, PChar(URL), nil, 0, 0, 0);
        try
          if Assigned(hURL) then
          begin
            MS.Position := 0;
            repeat
              InternetReadFile(hURL, @Buffer, BufferSize, BufferLength);
              MS.WriteBuffer(Buffer, BufferLength);
              Inc(ByteCount, BufferLength);
              Application.ProcessMessages;
            until BufferLength = 0;
            Result := ByteCount;
          end;
        finally
          InternetCloseHandle(hURL);
        end;
      end;
    finally
      InternetCloseHandle(hSession);
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  ms: TMemoryStream;
  s: string;
  c: char;
  i,n: integer;
begin
  memo1.Enabled := FALSE;

  ms := TMemoryStream.Create;
  try
    memo1.Clear;
    s := '';
    i := CopyFileFromURL(urlHeiseNews, ms);
    if  i > 0 then
    begin
      ms.Seek(0, soBeginning);
      for n := 0 to ms.Size-1 do
      begin
        ms.ReadBuffer(c, 1);
        if c in [#10,#13] then
        begin
          memo1.Lines.Add( Utf8ToAnsi(s));
          s := '';
        end else
        begin
          if c in [#9] then c := #32;
          s := s + c;
        end;
      end;
    end;
  finally
    ms.Free;
  end;

  if Memo1.lines.Count > 0 then
  begin
    ParseStrings(Memo1);
    memo1.Enabled := TRUE;
  end;
end;

procedure TForm1.ParseStrings(Memo: TMemo);
var
  sl: TStringList;
  n: integer;
  s: string;
  xItem, xTitle: boolean;
begin
  TickerText := '';

  sl := TStringList.Create;
  try
    sl.Assign(Memo.Lines);
    Memo.Clear;
    for n := 0 to sl.Count - 1 do
    begin
      if pos('<item>', sl.Strings[n])<>0 then xItem := TRUE;
      if pos('</item>', sl.Strings[n])<>0 then xItem := FALSE;
      if pos('<title>', sl.Strings[n])<>0 then xTitle := TRUE;

      if xItem and xTitle then
      begin
        s := sl.Strings[n];
        s := copy(s, pos('<title>',s)+7, pos('</title>',s)-10);
        TickerText := TickerText  + ' - ' + s;
        Memo.Lines.Add(s);
      end;

      if pos('</title>', sl.Strings[n])<>0 then xTitle := FALSE; 
    end;
  finally
    sl.Free;
  end;

  Label1.Caption := TickerText;
end;

procedure TForm1.Timer1Timer(Sender: TObject);

  function TextScroller(Text: String): String;
  begin
    Result := Copy (Text,2,length(Text)-1) + Text[1];
  end;

begin
  Label1.Caption := TextScroller(Label1.Caption);
end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

<?xml version="1.0" encoding="utf-8"?>
<rdf:RDF xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns="http://my.netscape.com/rdf/simple/0.9/">

<channel>
  <title>heise online News</title>
  <link>http://www.heise.de/newsticker/</link>
  <description>Nachrichten nicht nur aus der Welt der Computer</description>
</channel>


<item>
  <title>Ver.di protestiert gegen Verkauf ostdeutscher Telekom-Callcenter</title>
  <link>http://www.heise.de/newsticker/Ver-di-protestiert-gegen-Verkauf-ostdeutscher-Telekom-Callcenter--/meldung/117979/from/rss09</link>
</item>

</rdf:RDF>