video abspielen ohne es vorher zu speichern

[thomas2009]

hallo
mein Video auf die Festplatte ist verschlüsselt
Mein Programm entschlüsselt es und speichert es in Windows temp ordner und dann von dort das Video laden und abspielen mit mediaplayer-Komponent in mein Panel

Ich möchte aber lieber das Video direkt abspiel ohne es in auf die festplatte (temp) zu speichern. ist es möglich ?

[Teekeks]

Wenn das was du entschlüsselst in einen Stream anstatt in eine Datei speicherst, sollte das gehen...

[DeddyH]

Wenn der benutzte Player Streams unterstützt ;)

[thomas2009]

kann jemand mir zeigen, wie man die Datei in einem Steam enschlüsselt ?

Ich verwende diese Funktionen :
http://www.swissdelphicenter.ch/en/showcode.php?id=1629

[mkinzler]

Wie ist sie den verschlüsselt?

[thomas2009]

so zum Beispiel :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  schrott:TWordTriple;

begin
  schrott[0]:=1111;
  schrott[1]:=2222;
  schrott[2]:=3333;

FileEncrypt('film1.avi','film1x.avi',schrott);
end;

[mkinzler]

Dann bräuchtest du ja etwas wie StreamEncrypt/StreamDecrypt

[Teekeks]

Delphi-Quellcode:

function StreamCrypt(InFile: String; Key: TWordTriple; Encrypt: Boolean; out outstream:TMemoryStream): boolean;
var
  MIn: TMemoryStream;
begin
  MIn := TMemoryStream.Create;
  Try
    MIn.LoadFromFile(InFile);
    outstream.SetSize(MIn.Size);
    if Encrypt then
      result:=MemoryEncrypt(MIn.Memory, MIn.Size, outstream.Memory, outstream.Size, Key)
    else
      result:=MemoryDecrypt(MIn.Memory, MIn.Size, outstream.Memory, outstream.Size, Key);
    
  finally
    MIn.Free;
  end;
end;

Bitte.
Nicht getestet und es muss noch ein bissl Fehlerbehandlung dazu, aber ansonsten sollte das so gehen...

[thomas2009]

Ich weiß aber nicht, wie man die Datei als stream convertiert
Das 2. Problem, ich weiß auch nicht ob die Delphi-Mediaplayer-Component steam unterstützt !

[Teekeks]

Guck dir das doch mal an: du gibst den dateinamen an und gibst bei outstream einen vorher schon erzeugten Stream mit an.
Nach dieser Funktion hast du in outStream die Datei als entschlüsselten Stream drin.