文件名称:GIf
介绍说明--下载内容均来自于网络,请自行研究使用
加载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