GIF编码和解码

一个可以实现GIF编码的动态链接库DLL文件GIFINFO.dll。 引用GIFINFO.dll文件后。 在程序中定义GIFINFO类实例，如GIFEncode，然后调用实例的GIFCode方法，就可以实现图像信息的GIF编码。 它的格式如下： Function GIFCode(PicInfo() As Long,FileName As String) 参数PicInfo是长整型数组，它存放你的图片像素颜色信息，每个数组元素都对应一个RGB()类型长整型值。 如6*6的图像， RGB(0,255,0) RGB(0,255,0) RGB(0,255,0) RGB(0,255,0) RGB(0,255,0) RGB(0,255,0) RGB(0,255,0) RGB(0,255,0) RGB(0,255,0) RGB(0,255,0) RGB(0,255,0) RGB(0,255,0) RGB(0,255,0) RGB(0,255,0) RGB(0,255,0) RGB(0,255,0) RGB(0,255,0) RGB(0,255,0) RGB(255,0,0) RGB(255,0,0) RGB(255,0,0) RGB(255,0,0) RGB(255,0,0) RGB(255,0,0) RGB(255,0,0) RGB(255,0,0) RGB(255,0,0) RGB(255,0,0) RGB(255,0,0) RGB(255,0,0) RGB(255,0,0) RGB(255,0,0) RGB(255,0,0) RGB(255,0,0) RGB(255,0,0) RGB(255,0,0) FileName是你要保存的图像文件名信息，要求是以.GIF结尾的，如App.Path & "abc.gif" 这个函数执行之后，你就可以在你指定的位置找到你压缩的GIF图像了。 当然你可以要求压缩带透明区域的GIF图像，方法是将透明区域的数组元素值设置为-1。 如6*6大小的图像用的PicInfo()数组中的一些值是-1 -1 -1 -1 RGB(0,255,0) RGB(0,255,0) RGB(0,255,0) -1 -1 -1 RGB(0,255,0) RGB(0,255,0) RGB(0,255,0) -1 -1 -1 RGB(0,255,0) RGB(0,255,0) RGB(0,255,0) RGB(255,0,0) RGB(255,0,0) RGB(255,0,0) RGB(255,0,0) RGB(255,0,0) RGB(255,0,0) RGB(255,0,0) RGB(255,0,0) RGB(255,0,0) RGB(255,0,0) RGB(255,0,0) RGB(255,0,0) RGB(255,0,0) RGB(255,0,0) RGB(255,0,0) RGB(255,0,0) RGB(255,0,0) RGB(255,0,0)