文件名称:GIf
下载
别用迅雷、360浏览器下载。
如迅雷强制弹出，可右键点击选“另存为”。
失败请重下，重下不扣分。
如迅雷强制弹出，可右键点击选“另存为”。
失败请重下，重下不扣分。
介绍说明－－下载内容均来自于网络，请自行研究使用
加载GIF
TGIFImage *gif=new TGIFImage()
TBitmap *bmp=new TBitmap()
gif->LoadFromFile("Demo.gif")
Image1->Picture->Assign(gif)
TGIFImageList *list=gif->Images
int count=list->Count
for (int i = 0 i < count i++)
{
bmp->Assign(list->Items[i])
bmp->SaveToFile(ExtractFilePath(Application->ExeName)+IntToStr(i)+".bmp")
}-Load GIF
TGIFImage*gif=new TGIFImage()
TBitmap*bmp=new TBitmap()
gif->LoadFromFile("Demo.gif")
Image1->Picture->Assign(gif)
TGIFImageList*list=gif->Images
int count=list->Count
for (int i = 0 i < count i++)
{
bmp->Assign(list->Items[i])
bmp->SaveToFile(ExtractFilePath(Application->ExeName)+IntToStr(i)+".bmp")
}
TGIFImage *gif=new TGIFImage()
TBitmap *bmp=new TBitmap()
gif->LoadFromFile("Demo.gif")
Image1->Picture->Assign(gif)
TGIFImageList *list=gif->Images
int count=list->Count
for (int i = 0 i < count i++)
{
bmp->Assign(list->Items[i])
bmp->SaveToFile(ExtractFilePath(Application->ExeName)+IntToStr(i)+".bmp")
}-Load GIF
TGIFImage*gif=new TGIFImage()
TBitmap*bmp=new TBitmap()
gif->LoadFromFile("Demo.gif")
Image1->Picture->Assign(gif)
TGIFImageList*list=gif->Images
int count=list->Count
for (int i = 0 i < count i++)
{
bmp->Assign(list->Items[i])
bmp->SaveToFile(ExtractFilePath(Application->ExeName)+IntToStr(i)+".bmp")
}
(系统自动生成,下载前可以参看下载内容)
下载文件列表
GIf.txt