Liste von Winamp Radio Streams

[Wishmaster]

Hi

Sorry das ich nicht auf deine Letzte PN geantwortet habe, ich hatte kaum zeit. Aber wie ich sehe has du es selbst geschafft. Das (p1, p2) kannst du eigentlich weglassen. Ich habe deinen Code einwenig umgeschrieben. Das Ergebnis wird in eine Stringlist geschrieben siehe meine PlayListClass.

Du solltest dir feileicht en TThread erstellen. Ich meine wegen der Auslastung

Delphi-Quellcode:

Procedure TPlaylist.ParseWebPLS(wPLS : String);
var i, a : integer;
    temp, t : String;
    str : string;
begin
    FileList.Clear;
    t := GetHTML(wPLS);
  try
    temp := Copy(t, pos('=', t) + 1, length(t)) ;
    temp := Copy(temp, 1, pos(#10, Temp)-1);
    a := strtoint(temp);
  finally
   for i := 1 to a do
    begin
     {Get Server/FileName}
       temp := t;
       str  := Format('File%d=', [i]);
       temp := Copy(temp, Pos(Str, temp) + Length(str), length(temp));
       FileList.Add(Copy(temp, 1, pos(#10, temp)-1));

     {Get Title}
       temp := t;
       str := Format('Title%d=', [i]);
       temp := Copy(temp, Pos(Str, temp) + Length(str), length(temp));
       FileTitle.Add(Copy(temp, 1, pos(#10, temp)-1));
     end;
  end;
end;

Delphi-Quellcode:

   Playlist.ParseWebPLS(‘URL’);

  for I := 0 to Playlist.Count - 1 do
  begin
    Memo1.Lines.Add(Playlist.GetFileName(i));
    Memo1.Lines.Add(Playlist.GetText(i))
  end;