Flash von einer Website downloaden

[NicNacMan]

probier mal das:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j: Integer;
  s   : String;
begin
  // alle zeilen löschen, in denen kein '.swf' vorkommt:
  for i := Pred(Memo1.Lines.Count) downto 0 do
    if (Pos('.swf', Memo1.Lines.Strings[i]) = 0) then
      Memo1.Lines.Delete(i);
  // url extrahieren:
  for i := 0 to Pred(Memo1.Lines.Count) do
    begin
      s := Memo1.Lines.Strings[i];
      // alles nach '.swf' löschen
      Delete(s, Pos('.swf', s) + 4, Length(s));
      for j := Length(s) downto 0 do
        if (s[j] = '"') then
          Break;
      // alles vor dem letzten '"' löschen (voraussetzung: url steht in '"')
      Delete(s, 1, j);
      Memo1.Lines.Strings[i] := s;
    end;
end;