使用IInternetProtocol替换flash(100分)

不知道为什么替换不了 flash ，其它图片是可以替换成功的
我怀疑是不是 flash 接受不到下载完成的指令？
function TNSHandler.Read(pv: Pointer; cb: ULONG; out cbRead: ULONG): HResult;
begin
if Copy(Url,Length(Url)-3,4)='.swf' then
begin
Move(FlashHold, pv^, sizeof(FlashHold));
cbread := sizeof(FlashHold);
end else
begin
Move(PlaceHold, pv^, sizeof(PlaceHOld));
cbread := sizeof(PlaceHold);
end;
Result := S_FALSE;
end;

用delphi自带的flash****播放控件重新加载！~~