Есть функция:
но она не работает для формата GIF87a
Может кто знает, как ее сделать универсальной?
Код:
Func FrameGIF($sFile)
If FileExists($sFile) = 0 Then Return -1
Local $read = FileRead($sFile), $a
Local $_ani_Separator = Chr(0x21) & Chr(0xF9) & Chr(0x04)
Switch StringLeft($read, 6)
Case 'GIF89a'
$a = StringSplit($read, $_ani_Separator, 1)
If IsArray($a) And $a[0]>1 Then
If $a[0]>1 Then
Return $a[0]-1
Else
Return 1
EndIf
EndIf
Case 'GIF87a'
Case Else
Return -1
EndSwitch
EndFunc
но она не работает для формата GIF87a
Может кто знает, как ее сделать универсальной?