아녕하세요 하얀까마귀입니다.



이건 제가 테스트 한거니까 될겁니다.

그럼 수고하세요



procedure TForm1.BitBtn1Click(Sender: TObject);

var

iGifImage : TGIFImage;

iBitMap : TBitmap;

i : Integer;

begin

iBitMap := TBitmap.Create;

iGifImage := Tgifimage.Create;



//먼저 읽어 들이고

iGifImage.LoadFromFile('c:down3008.gif');

for i := 0 to igifImage.Images.Count - 1 do

begin

// 비트맵형으로 변환시켜요

iBitMap.Assign(iGifImage.Images[i]);

//그리고 저장..

iBitMap.SaveToFile('c:down3008[' + intToStr(i) + '].bmp');

end;

iGifImage.Free;

iBitMap.FreeImage; // <- 이건 안해도 되는데 이게 더 안전행요

iBitMap.Destroy;

end;

..