video abspielen ohne es vorher zu speichern

[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...