Hallo
ich möchte das Video nicht von Resource auf de Festplatte speichern. Ich möchte es direkt aus Resource abspielen
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
rStream: TResourceStream;
fStream: TFileStream;
fname: string;
begin
{this part extracts the avi from exe}
fname:=ExtractFileDir(Paramstr(0))+'Intro.avi'; // auf Festplatte speichern[/COLOR]
rStream := TResourceStream.Create
(hInstance, 'Intro', RT_RCDATA);
try
fStream := TFileStream.Create(fname, fmCreate);
try
fStream.CopyFrom(rStream, 0);
finally
fStream.Free;
end;
finally
rStream.Free;
end;
{this part plays the avi}
MediaPlayer1.Close;
MediaPlayer1.FileName:=fname;
MediaPlayer1.Open;
end;
Oder muss man unbedingt das Video zuerst auf die Festplatte speichern ?