如何获取TGA的尺寸

sxd

网上找了一圈 一直一些常用的格式的 getinfo 的UDF

请问如何获取TGA的尺寸

[ 本帖最后由 sxd 于 2009-3-4 03:13 编辑 ]

xayle

好像目前微软未提供tag格式的读取, 需要其他程序的支持, 如acdsee之类的看图软件

http://www.autoitscript.com/forum/index.php?showtopic=79112

sxd

能否能和jpg信息那种 都文件信息 取一段来看大小的?

就像那个 读 png gif jpg 的UDF一样

xayle

原帖由 sxd 于 2009-3-3 07:20 发表
能否能和jpg信息那种 都文件信息 取一段来看大小的?

就像那个 读 png gif jpg 的UDF一样

那个是基于微软的dll支持,而tga则没有

xrbenbeba

关注一下

sxd

第一个UDF.....

Func _TgaSize($sFile)
        Local $hFileHandle, $sFileRead, $sTgaInfo, $aTgaSize[2]
        $hFileHandle = FileOpen($sFile, 16)
        $sFileRead = FileRead($hFileHandle, 16)
        $sTgaInfo = StringRight($sFileRead, 8)
        $aTgaSize[0] = Dec(StringMid($sTgaInfo, 3, 2) & StringMid($sTgaInfo, 1, 2))
        $aTgaSize[1] = Dec(StringMid($sTgaInfo, 7, 2) & StringMid($sTgaInfo, 5, 2))
FileClose($hFileHandle)
        Return $aTgaSize
EndFunc   ;==>_TgaSize

[ 本帖最后由 sxd 于 2009-3-4 08:32 编辑 ]

xayle

一直没注意在网上搜索tga的格式说明...
偏移2 是tga的图像类型

sxd

呵呵 对文件编码很不懂 昨天正好用winhex打开来 就发现了