先要把该资源释放出来,产生真正的123.SWF文件,再播放. Function GetFileFromResData(const ResName,ResType:String): String; var Res: TResourceStream; // 得到一个临时文件名称 function GetTempFileName(FileName,Ext:String): String; begin Result := GetTempPathEx + FileName + '.' + IntToStr(GetTickCount) + '.' + Ext; end; begin Result := GetTempFileName(ResName,ResType); Res := TResourceStream.Create(Hinstance,ResName,PChar(ResType)); try try Res.SaveToFile(Result); finally Res.Free; end; except On Exception do Result := ''; end; end;如下调用: Flash.Movie := GetFileFromResData('123','SWF');
Function GetFileFromResData(const ResName,ResType:String): String;
var
Res: TResourceStream;
// 得到一个临时文件名称
function GetTempFileName(FileName,Ext:String): String;
begin
Result := GetTempPathEx + FileName + '.' + IntToStr(GetTickCount) + '.' + Ext;
end;
begin
Result := GetTempFileName(ResName,ResType);
Res := TResourceStream.Create(Hinstance,ResName,PChar(ResType));
try
try
Res.SaveToFile(Result);
finally
Res.Free;
end;
except
On Exception do Result := '';
end;
end;如下调用:
Flash.Movie := GetFileFromResData('123','SWF');