Animation als Ressource in TFlashplayer

Novo · Verfasst: Mi 04.04.07 22:37

Ich habe die ActiveX Componente FlashPlayer installiert und damit eine KeyFM.swf vom Laufwerk C:\ zum laufen gebracht.
Nun liegt diese Datei nicht immer auf Laufwerk C:\ z.B. wenn ich sie weiterverteile!
Auch das Uploaden ist net so toll, da manche Leute ja kein Inet haben bzw nicht imemr verbunden sind.

Da diese Flashanimation nur ein Paar kb groß ist, möchte ich die als Ressource in die .exe integrieren und von da aufrufen.
Bitte schritt für Schritt erklären, ich habe schon die SUFU benutzt, aber nix gefunden, was funktioniert hat.

ich habe das bisher so gelöst:

markieren

Delphi-Quelltext

1:	shockwaveflash1.Movie:='C:\KeyFM.swf';

Wie das jetzt als Ressource?
Von mir aus kann das Programm die Ressource als .swf abspeichern, dann aufrufen, danach wieder löschen!

greez Novo

Novo · Verfasst: Do 05.04.07 17:26

Nun hilft mir doch mal!
Ich habe immernoch nix gefunden!

greez Novo

Novo · Verfasst: Do 05.04.07 20:00

Kann oder will mir keiner Helfen?
Oder sind soo wenig User im Board unterwegs?

greez Novo

Novo · Verfasst: Fr 06.04.07 15:24

ich bekomms ohne eure Hilfe nicht hin! Ich muss mit dem Project aber fertig werden! :bawling:

Karlson · Beiträge: 2088

Muss das ne Resource sein? Legs doch einfach in den Programmordner mit rein und lads dann mit loadfromfile(extractfilepath(paramstr(0))+'flash.swf');

ich1506 · Verfasst: Fr 06.04.07 18:33

Soweit ich weiß, kann man den Pfad auch relativ angeben, d.h. wenn du die Datei im gleichen Ordner hast einfach Datei.swf oder wenn du einen Unterordner hast, dann Unterordner/Datei.swf

Novo · Verfasst: Fr 06.04.07 23:53

bis jetzt habe ich es von einer URL geladen, das ist aber doof. z.B. wenn man gar kein Inet hat...
Eine Ressource sollte es schon sein.

greez Novo

cuejo · Beiträge: 142 Win XP Delphi 7 Personal und 2005 PE

Wenn Du eine Ressource willst, dann musst Du zunächst eine Textdatei mit dem Inhalt

markieren

Quelltext

1:	FlashAni RCDATA C:\KeyFM.swf

erstellen. Die nennst Du dann *.rc (zum Beispiel "FlashData.rc") und speicherst sie ab. Danach fügst du sie nur noch zu deinem Projekt hinzu und schreibst am besten direkt unter implementation dies hier: {$R FlashData.res}. Dann kannst du mit TResourceStream.Create(HInstance, 'FlashAni', RT_RCDATA) als Stream darauf zugreifen.

_________________
Computer sind dumm, aber fleißig. Deshalb arbeite ich so gerne damit.

Novo · Verfasst: Di 10.04.07 01:05

DANKE !!!
vielen dank!
Funktioiert prima!

greez Novo

JayEff · Beiträge: 2971 Windows Vista Ultimate D7 Enterprise

ich1506 hat folgendes geschrieben:

Soweit ich weiß, kann man den Pfad auch relativ angeben, d.h. wenn du die Datei im gleichen Ordner hast einfach Datei.swf oder wenn du einen Unterordner hast, dann Unterordner/Datei.swf

Nein!

Das funktioniert nur in wenigen Zufällen.

PS: Ich weiß, das ist alt, aber kann man ja nicht so stehen lassen :mahn:

_________________
>+++[>+++[>++++++++<-]<-]<++++[>++++[>>>+++++++<<<-]<-]<<++
[>++[>++[>>++++<<-]<-]<-]>>>>>++++++++++++++++++.+++++++.>++.-.<<.>>--.<+++++..<+.

Taktaky · Beiträge: 25

Hi

was ist dann falsh in meinem Code

markieren

Delphi-Quelltext

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

implementation

{$R *.dfm}

{$R flash.res}

procedure TForm1.FormCreate(Sender: TObject);
var
ResourceStream: TResourceStream;
begin
ResourceStream:=TResourceStream.Create(HInstance, 'Flash', 'RCDATA');
//ResourceStream:=TResourceStream.Create(HInstance, 'Flash', RC_RCDATA;
shockwaveflash1.Movie:='ResourceStream';

end;

Calculon · Verfasst: Mo 15.10.07 13:02

Probier's mal so (ungetestet):

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure TForm1.FormCreate(Sender: TObject);
var
 rStream: TResourceStream;
 fStream: TFileStream;
 fname: string;
begin
  fname := 'C\temp.swf'; // <-- Schreibrechte vorausgesetzt!
  rStream := TResourceStream.Create(hInstance, 'Flash', RT_RCDATA) ;
    try
      fStream := TFileStream.Create(fname, fmCreate) ;
        try
          fStream.CopyFrom(rStream, 0);
        finally
          fStream.Free;
        end;
    finally
      rStream.Free;
    end;
  Application.ProcessMessages;
  Shockwaveflash1.Movie := fname;
end;

Gruß

Calculon
--

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme