获取swf文件的大小 ( 积分: 40 )

我用ShockwaveFlash显示swf文件,但想获取swf文件的大小,根据文件的大小设置ShockwaveFlash的大小,就像image的stretch属性一样.但是怎么获取swf文件的宽高呢?

1 用FindFirst函数：

var
SR: TSearchRec;
Size: Integer;
begin
FindFirst('filename.ext', faAnyFile, SR);
Size := SR.Size;
FindClose(SR);
end;

Size就是文件长度。

2
function GetFileSize(FileName:String);LongInt;
var
Stream:TFileStream;
begin
try
Stream:=TFileStream.Create(FileName,fmOpenRead);
Result:=Stream.Size;
Stream.Free;
except
Result:=-1;
end;
end;

http://www.delphibbs.com/keylife/iblog_show.asp?xid=26788

轻舞肥羊的那个很好，我原来找的一个方法得到的宽、高有时为负值