是否有替代 GifBitmapEncoder 来创建 GIF 文件？

Question

我正在编写一个程序来查看来自实时摄像机的 web 图像。 我的 UI 允许对相机进行采样间隔，以便我可以每 XX 分钟挑选一张图像。 当我要求它停止时，它应该将所有收集到的样本保存到一个 GIF 文件中。 我正在使用 GifBitmapEncoder 来执行此操作并且它可以工作，但我无法设置帧延迟。 结果是 animation 过快，什么都看不到。 我看到的与此控件有关的唯一帖子说我不能使用 GifBitmapEncoder 来执行此操作。

GifBitmapEncoder 有更新的替代品吗？ 这是我到目前为止使用此控件的内容。

Imports System.IO
Imports System.Windows
Imports System.Windows.Media.Imaging
Imports IOI = System.Windows.Interop.Imaging

Public Class frmGiffer
    Dim myGIF As New GifBitmapEncoder
    Dim picArray As Bitmap()

    ' Load images from URL into Picturebox.image
    Private Sub LoadNext()
        Try
            picURL.Load(lblURL.Text)
            ReDim Preserve picArray(Frame)
            picArray(Frame) = New Bitmap(picURL.Image)

        Catch ex As Exception
            MsgBox("Error loading image from URL" + vbCrLf + ex.ToString)
        End Try
    End Sub

    ' Create GIF file from global picArray (Array of bitmaps saved from Webcam)
    Private Sub GIF_Saver()
        If Frame > 0 Then
            For Each bmp As Bitmap In picArray
                Try
                    Dim myBMPF As BitmapFrame = BMP2BMPFrame(bmp) ' Converts Bitmap to BitmapFrame
                    myGIF.Frames.Add(myBMPF)
                Catch ex As Exception
                    MsgBox("ERROR in GIF Saver" + vbCrLf + vbCrLf + ex.ToString)
                End Try
            Next
            Try
                Dim myGIFName As String = Environment.GetFolderPath(Environment.SpecialFolder.MyPictures) + "\GIFTest.gif"
                Dim myGIFFile As New FileStream(myGIFName, FileMode.Create)
                myGIF.Save(myGIFFile)
            Catch ex As Exception
                MsgBox("ERROR in GIF Saver" + vbCrLf + vbCrLf + ex.ToString)
            End Try
        End If
    End Sub
End Class