TMediaPlayer - AVI aus Resource abspielen

[Balu der Bär]

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

[turboPASCAL]

Einfach das Temp.-Verzeichnis nutzen, auf dieses Verz. hat (sollte) jeder User zugriff haben.

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;