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:

var
// Variablen etc...
URL,QText,DLUrl,Auth,ID:String; 
P1,P2:Integer;
begin
// VideoID heruasfiltern
P1 := Pos('video/',Edit1.Text); 
ID := Copy(Edit1.Text,p1+6,68);
// ID ausgeben
Memo1.Lines.Add('ID: '+ID);
// XML-Datei mit Daten auslesen
QText := idHTTP1.Get('http://www.putpat.tv/ws.xml?method=Asset.getClipForToken&partnerId=1&token='+ID+'&client=contentpartnerplayer');
// VideoURL auslesen
p1 := Pos('<medium>',QText);
p2 := Pos('</medium>',Qtext);
// DownloadURL auslesen
DLUrl := Copy(QText,p1+8,p2-p1-8);
DLUrl := StringReplace(DLUrl,'rtmp://tvrlfs.fplive.net/tvrl','',[rfReplaceAll]);
P1 := Pos('?token=',DLUrl);
p2 := PosEx('=',DLUrl,p1+7);
// Auth-Token extrahieren
Auth := Copy(DLUrl,p1,p2-p1);
DLUrl := StringReplace(DLUrl,Auth,'',[rfReplaceAll]);
DLUrl := Copy(trim(DLUrl),2,length(DLUrl));
// DownloadAdresse in "DLUrl" gespeichert

{ Beispielausgabe für rtmpdump-Kommando:
rtmpdump -r "rtmp://tvrlfs.fplive.net:1935/tvrl" -a "tvrl" -y "'+DLUrl+Auth+'="'
}
end;