以内存流的方式播放FLASH

来源：互联网发布：java 解压缩文件夹编辑：程序博客网时间：2024/04/27 14:45

以前想在程序中嵌入FLASH，flash文件不能以资源的方式嵌入到文件中，也就是flash要以单独的文件一起发布，有点不爽，也有方法通过管道技术实现内存流的方式播放，但随着flash的升级，这种方法也不行了。搜索google,一些商业性的控件实现了以流的方式来播放，要钱的，下载DEMO，反汇编跟踪，功力有限，半途而废，再搜，哈哈找到TFlashPlayerControl源码，贴出其中关键的代码

procedure TFlashPlayerControl.LoadMovieFromStream(Layer:Integer;Src: TStream);
var
   unCompress: TStream;
   Mem, Mem2: TMemoryStream;
   SRCSize: longint;
   PersistStream: IPersistStreamInit;
   SAdapt: TStreamAdapter;
   ISize: int64;
   B: byte;
   ASign: array [0..2] of char;
   isCompress: boolean;
   ZStream: TDeCompressionStream;
   rc:TRect;
   hdcScreen,hdcMem:HDC;
begin
rc := ClientRect;
hdcScreen := CreateDC('DISPLAY', nil, nil, nil);
hdcMem:=CreateCompatibleDC(hdcScreen);
{$IFDEF DEMO_VERSION}
    DrawText(hdcMem, PChar('DEMO VERSION'), -1, rc, DT_CENTER or DT_VCENTER or DT_SINGLELINE);
{$ENDIF}
Src.Read(ASign, 3);
isCompress := ASign = 'CWS';
if isCompress then
    begin
      unCompress := TMemoryStream.Create;
      ASign := 'FWS';
      unCompress.Write(ASign, 3);
      unCompress.CopyFrom(Src, 1);
      SRC.Read(SRCSize, 4);
      unCompress.Write(SRCSize, 4);
      ZStream := TDeCompressionStream.Create(Src);
      try
        unCompress.CopyFrom(ZStream, SRCSize - 8);
      finally
        ZStream.free;
      end;
      unCompress.Position := 0;
    end else
    begin
      Src.Position := Src.Position - 3;
      SRCSize := Src.Size - Src.Position;
      unCompress := Src;
    end;

EmbedMovie := false;
FOleObject.QueryInterface(IPersistStreamInit, PersistStream);
PersistStream.GetSizeMax(ISize);
Mem := TMemoryStream.Create;
Mem.SetSize(ISize);
SAdapt := TStreamAdapter.Create(Mem);
PersistStream.Save(SAdapt, true);
SAdapt.Free;

Mem.Position := 1;
Mem2 := TMemoryStream.Create;
B := $66;
Mem2.Write(B, 1);
Mem2.CopyFrom(Mem, 3);
Mem2.Write(SRCSize, 4);
Mem2.CopyFrom(unCompress, SRCSize);
Mem2.CopyFrom(Mem, Mem.Size - Mem.Position);

Mem2.Position := 0;
SAdapt := TStreamAdapter.Create(Mem2);
PersistStream.Load(SAdapt);
SAdapt.Free;

Mem2.Free;
Mem.Free;
PersistStream := nil;
if isCompress then unCompress.Free;
end;

看到 {$IFDEF DEMO_VERSION} 了吗？以后TFlashPlayerControl发布新版本就可以很轻松的破解了，哈哈

------------------

added 2008.5.21

今天看 Delphi SWF SDK 时候看到他的控件 TShockwaveFlashEx，而且是源码是公开的，里面就有

汗一个。

看来在内存中播放flash早就公开了，国内研究这个不多。付上源码

procedure TShockwaveFlashEx.LoadMovieFromStream(Src: TStream);

var

unCompress: TStream;

Mem, Mem2: TMemoryStream;

SRCSize: longint;

PersistStream: IPersistStreamInit;

SAdapt: TStreamAdapter;

ISize: int64;

B: byte;

ASign: array [0..2] of char;

isCompress: boolean;

ZStream: TDeCompressionStream;

begin

// prepare src movie

Src.Read(ASign, 3);

isCompress := ASign = 'CWS';

if isCompress then

begin

unCompress := TMemoryStream.Create;

ASign := 'FWS';

unCompress.Write(ASign, 3);

unCompress.CopyFrom(Src, 1); // version

SRC.Read(SRCSize, 4);

unCompress.Write(SRCSize, 4);

ZStream := TDeCompressionStream.Create(Src);

try

unCompress.CopyFrom(ZStream, SRCSize - 8);

finally

ZStream.free;

end;

unCompress.Position := 0;

end else

begin

Src.Position := Src.Position - 3;

SRCSize := Src.Size - Src.Position;

unCompress := Src;

end;

// store "template"

EmbedMovie := false;

FOleObject.QueryInterface(IPersistStreamInit, PersistStream);

PersistStream.GetSizeMax(ISize);

Mem := TMemoryStream.Create;

Mem.SetSize(ISize);

SAdapt := TStreamAdapter.Create(Mem);

PersistStream.Save(SAdapt, true);

SAdapt.Free;

// insetr movie to "template"

Mem.Position := 1;

Mem2 := TMemoryStream.Create;

B := $66; // magic flag: "f" - embed swf; "g" - without swf;

Mem2.Write(B, 1);

Mem2.CopyFrom(Mem, 3);

Mem2.Write(SRCSize, 4);

Mem2.CopyFrom(unCompress, SRCSize);

Mem2.CopyFrom(Mem, Mem.Size - Mem.Position);

// load activeX data

Mem2.Position := 0;

SAdapt := TStreamAdapter.Create(Mem2);

PersistStream.Load(SAdapt);

SAdapt.Free;

// free all

Mem2.Free;

Mem.Free;

PersistStream := nil;

if isCompress then unCompress.Free;

end;