AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Delphi Avi aus Resource laden und abspielen
Thema durchsuchen
Ansicht
Themen-Optionen

Avi aus Resource laden und abspielen

Ein Thema von City Light · begonnen am 2. Feb 2003 · letzter Beitrag vom 4. Feb 2003
Antwort Antwort
Seite 1 von 3  1 23      
Benutzerbild von City Light
City Light

Registriert seit: 17. Sep 2002
314 Beiträge
 
#1

Avi aus Resource laden und abspielen

  Alt 2. Feb 2003, 20:14
Hallo ich habe mal ein bisschen was gebastelt

meine frage bezieht sich auf diesem Code.
Kann mir einer sagen wie ich eine loop oder Replay funktion für die Avi bekomme so das ,daß Video immer als schleife abspielt.

das in die RC Datei schreiben
A1 AVI Film.avi

Datei speichern als Film.rc und so kompilieren
brcc32 Film.rc

Film.Res in Programm einbinden mit
{$R Film.res}


Delphi-Quellcode:
uses
    MMSystem;

  public
    { public-Deklarationen }
    procedure MMNotify(var message: TMessage); message MM_MCINOTIFY;
  end;


implementation
const Filename='~temp.avi';

{$R *.dfm}
{$R Film.res}

procedure TForm1.MMNotify(var message: TMessage);
begin
  MCISendString('close film', nil, 0, 0);
end;

{$WARNINGS OFF}
procedure Temp;
var
  rs: TCustomMemoryStream;
  s : string;
begin
  s := 'A1'; {Name der Resource}
  try
    rs := TResourceStream.Create(hInstance, s, 'AVI');
    rs.SavetoFile(Filename);
  finally
    rs.Free;
  end;
end;
{$WARNINGS ON}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Temp();
  MCISendString(PChar('Play '+ filename), nil, 0, 0);
  {
  Oder auch im Vollbild:
  MCISendString(PChar('open '+ filename +' alias film'), nil, 0, 0);
  MCISendString('window film handle 0', nil, 0, 0);
  MCISendString('window film state show maximized', nil, 0, 0);
  MCISendString('play film notify', nil, 0, Form1.Handle);
  }

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if fileexists(filename) then
  deletefile(filename); // ~temp.avi' löschen;
end;

end.
Bis bald man liest sich
Tino
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#2
  Alt 2. Feb 2003, 21:03
Eine Antwort auf deine Frage weiß ich auch nicht, aber wo landet deine AVI-Datei?
const Filename='~temp.avi'; das sie von deinem Programm gefunden wird, wenn es sie braucht dürfte Zufall sein.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von City Light
City Light

Registriert seit: 17. Sep 2002
314 Beiträge
 
#3
  Alt 2. Feb 2003, 21:16
Sie landet im dem Verzeichnis wo sich deine exe befindet
Bis bald man liest sich
Tino
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#4
  Alt 2. Feb 2003, 21:21
Wo steht das? Sie wird in das aktuelle Verzeichnis entpackt. Das muß aber nicht das Exe-Verzeichnis sein. Gib bei einer Verknüpfung ein anderes Arbeitsverzeichnis an und Peng. Genauso sieht es aus, wenn man innerhalb der Anwendung das Verzeichnis gewechselt wird.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von City Light
City Light

Registriert seit: 17. Sep 2002
314 Beiträge
 
#5
  Alt 2. Feb 2003, 21:41
danke!

vielleicht kannst du mir ein beispiel zeigen

so ?
extractfilepath(application.exename)
Bis bald man liest sich
Tino
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#6
  Alt 2. Feb 2003, 21:44
Zum Beispiel und dann hängst du noch deinen Dateinamen dran.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.117 Beiträge
 
Delphi 11 Alexandria
 
#7
  Alt 2. Feb 2003, 21:45
Moin Tino,

grundsätzlich: Ja.

Ich persönlich ziehe folgende Variante vor:

ExtractFilePath(paramstr(0))

Da paramstr(0) und Application.Exename den gleichen Wert zurückliefern, würde zwar das gleiche dabei herauskommen, aber dafür funktioniert paramstr(0) auch ohne unit Forms, was sich bei Konsolenanwendungen als recht hilfreich erweisen kann (@Luckie: und natürlich auch bei nonVCL )
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat
Benutzerbild von nailor
nailor

Registriert seit: 12. Dez 2002
Ort: Karlsruhe
1.989 Beiträge
 
#8
  Alt 2. Feb 2003, 21:48
Wenn mich nicht alles täuscht, ist '.\' doch das .exe-Verzeichnis, und nicht der aktuelle Ordner. d.h. mach aus

'~temp.avi' -> '.\~temp.avi'

und es ist eindeutig, oder nicht?
Michael N.
http://nailor.devzero.de/code/sharpmath/testing/ --- Tests, Feedback, Anregungen, ... aller Art sehr willkommen!
::: don't try so hard - it'll happen for a reason :::
  Mit Zitat antworten Zitat
Benutzerbild von City Light
City Light

Registriert seit: 17. Sep 2002
314 Beiträge
 
#9
  Alt 2. Feb 2003, 21:48
danke Christian
ich hab mal das so gemacht

Delphi-Quellcode:
{$WARNINGS OFF}
procedure TForm1.Temp;
var
  rs: TCustomMemoryStream;
  s : string;
begin
  s := 'A1'; {Name der Resource}
  try
    rs := TResourceStream.Create(hInstance, s, 'AVI');
    rs.SavetoFile(ExtractFilePath(paramstr(0))+Filename);
  Finally
    rs.Free;
  end;
end;
{$WARNINGS ON}
Bis bald man liest sich
Tino
  Mit Zitat antworten Zitat
Benutzerbild von City Light
City Light

Registriert seit: 17. Sep 2002
314 Beiträge
 
#10
  Alt 2. Feb 2003, 21:52
Zitat von Nailor:
Wenn mich nicht alles täuscht, ist '.\' doch das .exe-Verzeichnis, und nicht der aktuelle Ordner. d.h. mach aus

'~temp.avi' -> '.\~temp.avi'

und es ist eindeutig, oder nicht?
hmmm...denke ich auch Nailor!!!
Bis bald man liest sich
Tino
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 3  1 23      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:19 Uhr.
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