Comments on: How to get a width and a height from an SWF http://f-in-box.com/blog/how-to-get-a-width-and-a-height-from-an-swf/ F-IN-BOX News, Tips and Tricks Fri, 21 Nov 2008 12:50:31 +0000 http://wordpress.org/?v=2.5.1 By: selee http://f-in-box.com/blog/how-to-get-a-width-and-a-height-from-an-swf/#comment-7004 selee Fri, 26 Sep 2008 01:38:42 +0000 http://f-in-box.com/blog/how-to-get-a-width-and-a-height-from-an-swf/#comment-7004 Thank you so much.. It would be very helpfull to me. Thank you so much..
It would be very helpfull to me.

]]> By: admin http://f-in-box.com/blog/how-to-get-a-width-and-a-height-from-an-swf/#comment-2159 admin Wed, 26 Dec 2007 13:32:12 +0000 http://f-in-box.com/blog/how-to-get-a-width-and-a-height-from-an-swf/#comment-2159 Unfortunaly, I haven't version for Perl... Unfortunaly, I haven’t version for Perl…

]]> By: Vyacheslav http://f-in-box.com/blog/how-to-get-a-width-and-a-height-from-an-swf/#comment-2142 Vyacheslav Wed, 26 Dec 2007 02:24:21 +0000 http://f-in-box.com/blog/how-to-get-a-width-and-a-height-from-an-swf/#comment-2142 What about Perl version? What about Perl version?

]]> By: admin http://f-in-box.com/blog/how-to-get-a-width-and-a-height-from-an-swf/#comment-256 admin Sun, 12 Aug 2007 22:49:29 +0000 http://f-in-box.com/blog/how-to-get-a-width-and-a-height-from-an-swf/#comment-256 PHP version [source:php] function b2i($d,$o,$l) { $s=(ord($d[$o/8])>>(7-$o%8))&1; $r=0; for ($i=$o+1;$i>(7-$i%8))&1; $r=($r"; $s=unpack("V",substr($d,4,4)); echo "FileSize : ".$s[1]." bytes"; if (substr($d,0,3)=="CWS") $d=substr($d,0,8).gzinflate(substr($d,8)); $nb=ord($d[8])>>3; // bytes needed echo "Bytes required : ".$nb.""; echo "width=".(($this->b2i($d,8*8+5+$nb,$nb)-$this->b2i($d,8*8+5,$nb))/20).""; echo "height=".(($this->b2i($d,8*8+5+3*$nb,$nb)-$this->b2i($d,8*8+5+2*$nb,$nb))/20).""; echo ""; [/source] --- Thanks to TCK PHP version

[source:php]
function b2i($d,$o,$l) {
$s=(ord($d[$o/8])>>(7-$o%8))&1; $r=0;
for ($i=$o+1;$i>(7-$i%8))&1;
$r=($r”;
$s=unpack(”V”,substr($d,4,4)); echo “FileSize : “.$s[1].” bytes”;

if (substr($d,0,3)==”CWS”) $d=substr($d,0,8).gzinflate(substr($d,8));

$nb=ord($d[8])>>3; // bytes needed
echo “Bytes required : “.$nb.”";

echo “width=”.(($this->b2i($d,8*8+5+$nb,$nb)-$this->b2i($d,8*8+5,$nb))/20).”";
echo “height=”.(($this->b2i($d,8*8+5+3*$nb,$nb)-$this->b2i($d,8*8+5+2*$nb,$nb))/20).”";
echo “”;
[/source]

—

Thanks to TCK

]]>