Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi Flash von einer Website downloaden (https://www.delphipraxis.net/23588-flash-von-einer-website-downloaden.html)

alanblack 5. Jun 2004 18:10


Flash von einer Website downloaden
 
Hallo,

Also ich spiele im Internet unwahrscheinlich gerne flash spiele. Da ich aber nicht immer online sein möchte um diese Spiele zu spielen möchte ich sie mir downloaden.

Das bekomm ich auch hin nur muss ich immer im QT nachgucken. Daher möchte ich ein kleines Tool schreiben das mit Indy http.get() alle flash erkennt (*.swf) und sie automatisch downloadet. Also ohne zu wissen wie jezt die flash datei heißt. Das prog sollte auf der site einfach die *.swf auslesen und wenn vorhanden downloaden.

Wie bekomm ich das hin?

mfg alan

Ratte 5. Jun 2004 18:16

Re: Flash von einer Website downloaden
 
Hi,

1. QT runterladen
2. String '.swf' suchen (matchesmask)
3. Pfad extrahieren (entwerder bis zum letzten leerzeichen oder ") (matchesmask)
4. evt. aus reativem Pfad "echten" machen
5. 'runterladen

Ratte

alanblack 5. Jun 2004 18:32

Re: Flash von einer Website downloaden
 
Hi,

danke für die Antwort. Also ich lasse nun den HTML code in einem memo laden.

Aber Punkt 2 - 3 verstehe ich nicht soganz (bzw weiß nich wie ich das verwirklichen sollte)

:( kannst du mir da ein bisschen helfen?

mfg alan

NicNacMan 6. Jun 2004 11:48

Re: Flash von einer Website downloaden
 
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;

Tortus 6. Jun 2004 12:11

Re: Flash von einer Website downloaden
 
Lass das Spiel doch einfach einmal im Browser laden und zieh dir dann einmal alle *.swf's aus den Temporary Internet Files

Die Muhkuh 6. Jun 2004 12:49

Re: Flash von einer Website downloaden
 
Ist das nicht ein bisschen illegal die Dinger downloaden? Kein Copyright oder so drauf?

NicNacMan 6. Jun 2004 12:58

Re: Flash von einer Website downloaden
 
ich glaub es ist nur illegal, sie danch auf die eigene hp zu packen, oder :gruebel:

man kann ja den quelltext auch nach email adressen durchsuchen,
und dann automatisch ne email mit "danke für das game" an den autor senden :zwinker:

MrKnogge 6. Jun 2004 13:19

Re: Flash von einer Website downloaden
 
Er hat ja nicht geschrieben, dass er sie auf seine HP packen möchte, aber den Author sollte man eventuell doch fragen.

Es könnt ja sein, dass er als "gegenleistung" für seine Spiele möglichst viele klicks auf seiner Hompage haben möchte. (wegen Werbung z.B.)

Wobei dies dann aber schon wieder etwas vom Thema abgeht :roll:

Ratte 6. Jun 2004 16:46

Re: Flash von einer Website downloaden
 
Hi,

bei dem beispiel von NicNacMan könntest du auch nach einem '=' suchen und wenn dahinter ein '"' steht, dieses löschen.

Ratte

alanblack 7. Jun 2004 09:13

Re: Flash von einer Website downloaden
 
Hi,

Danke für die vielen Antworten. Also um dies mal klarzustellen: Ich möchte die Flash Games NICHT auf meiner Homepage oder jegliche Art öffentlich weiterzuverbreiten, Nein ich möchte die Spiele einfach lokal spielen ..

mfg alan


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:03 Uhr.
Seite 1 von 2  1 2      

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz