Wednesday, October 21, 2009

Function IsAnimatedGIF(ByVal szFilename As String)

 

My implementation:

   1:      Public Function IsAnimatedGif(ByVal szFilename As String) As Boolean
   2:   
   3:          Dim fi As New System.IO.FileInfo(szFilename)
   4:   
   5:          Dim nFrameCount As Integer = 0
   6:   
   7:          If fi.Extension.ToLowerInvariant() = ".gif" Then
   8:   
   9:              Try
  10:                  Using _img As Image = New Bitmap(szFilename)
  11:                      Dim fd As System.Drawing.Imaging.FrameDimension = New System.Drawing.Imaging.FrameDimension(_img.FrameDimensionsList(0))
  12:                      nFrameCount = _img.GetFrameCount(fd)
  13:                  End Using
  14:              Catch ex As Exception
  15:                  'Failed to load image, bad file?
  16:              End Try
  17:   
  18:          End If
  19:   
  20:          Return (nFrameCount > 1)
  21:   
  22:      End Function

See

CodeProject: Add GIF-animation to your MFC and ATL projects with the help of CPictureEx and CPictureExWnd. Free source code and programming help

and

Coding4Fun : That's Totally Disco

No comments: