一个可以实现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)