Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi TMediaPlayer - AVI aus Resource abspielen (https://www.delphipraxis.net/72824-tmediaplayer-avi-aus-resource-abspielen.html)

Balu der Bär 7. Jul 2006 14:35


TMediaPlayer - AVI aus Resource abspielen
 
Moin,

ich möchte ein avi-Video welches in einer Resource steckt mit dem TMediaPlayer abspielen. Leider unterstützt der MediaPlayer von Haus aus nicht das laden von Resourcen, also hab ich das Video in einen Stream geladen, die Datei abgespeichert und dann mit TMediaPlayer geladen, nach Programmende die temporäre Videodatei wieder gelöscht. Bis jetzt ging alles gut, nur leider habe ich das Problem dann wenn man keine Schreibrechte hat man die Datei nicht erstellen kann.

Deshalb meine Frage, gibt es vielleicht doch eine Möglichkeit ein AVI direkt aus einer Resource in den TMediaPlayer zu laden ohne temporär die Datei zwischenzuspeichern?

Danke euch

DP-Maintenance 7. Jul 2006 14:42

DP-Maintenance
 
Dieses Thema wurde von "Christian Seehase" von "VCL / WinForms / Controls" nach "Multimedia" verschoben.
Falsche Sparte

turboPASCAL 8. Jul 2006 08:00

Re: TMediaPlayer - AVI aus Resource abspielen
 
Einfach das Temp.-Verzeichnis nutzen, auf dieses Verz. hat (sollte) jeder User zugriff haben.

Delphi-Quellcode:
MyPathAndDateiname := IncludeTrailingBackslash(GetEnvironmentVariable('TEMP')) + MyAviName;
bzw:

Delphi-Quellcode:
function GetTempAVIFilename: String;
type
  TCharAr = Array [0..MAX_PATH] of Char;
var
  TempPath, TempFileName: TCharAr;
begin
  GetTempPath(SizeOf(TempPath), TempPath);

  GetTempFileName(TempPath, 'TSC', 0, TempFileName);
  StrPCopy(TempFileName, ChangeFileExt(TempFileName, '.AVI'));

  Result := StrPas(TempFileName);
end;


Alle Zeitangaben in WEZ +1. Es ist jetzt 22:31 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