多张BMP图片转成一个gif 如何能用代码实现??

Question

   请给点Delphi 的代码   谢谢

Answer 1

uses Jpegprocedure BMPToJPG(BmpFileName:string);
var
  Jpeg : TJPEGImage;
  Bmp : TBitmap;
begin
  Bmp := TBitmap.Create;
  try
    Bmp.LoadFromFile(BmpFileName);
    Jpeg := TJPEGImage.Create;
    try
      Jpeg.Assign(Bmp);
      Jpeg.Compress;
      Jpeg.SaveToFile(Form4.SavePictureDialog1.FileName);
    finally
      Jpeg.Free;
    end;
  finally
     Bmp.Free;
  end;
end;

Answer 2

谢谢你的 回帖. 我要的是 bmp 转gif的呀?bmp 转 jpg我已经实现了.

Answer 3

procedure BMPToGIF(BmpFileName:string);  
  var   
      Bitmap :   TBitmap;   
      GIF :   TGIFImage;   
  begin      
          Bitmap   :=   TBitmap.Create;   
          try   
              //   Load   the   bitmap   that   will   be   converted   
              Bitmap.LoadFromFile(BmpFileName);   
              //   Display   the   bitmap   
              ImageBMP.Picture.Assign(Bitmap);   
              //   Clear   previous   GIF   view   
              ImageGIF.Picture.Assign(nil);   
    
   
              GIF   :=   TGIFImage.Create;   
              try   
                  GIF.OnProgress   :=   OnProgress;   
                  //   Convert   the   bitmap   to   a   GIF   
                  GIF.Assign(Bitmap);   
                  //   Save   the   GIF   
                  GIF.SaveToFile('test.gif');   
                  //   Display   the   GIF   
                  ImageGIF.Picture.Assign(GIF);   
              finally   
                  GIF.Free;   
              end;   
          finally   
              Bitmap.Free;   
          end;   
  end;

Answer 4

用过bmp&jpg转avi的aviwriter控件，网上有下还有demo

Answer 5

偶认得楼主的真正目的，其实你是想作 GIF 动画吧？？这个比较麻烦。我也只认得如何解析出GIF 里的各帧图片，可认不得如何合成！ 继续关注！！

Answer 6

是的我是想让自己的bmp动起来 做成GIF 的，但是现在是如何将多张BMP合成一个GIF，还等高人指点。

Answer 7

如果是C++Builder 6，先下载第三方的TGifImage组件并安装： 
http://www.ccrun.com/view.asp?id=158 然后： 
C/C++ code// 将N个位图合并成一个GIF图像
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    TGIFImage *gif = new TGIFImage();
    Graphics::TBitmap *bmp = new Graphics::TBitmap;
    try
    {
        bmp->LoadFromFile(ExtractFilePath(ParamStr(0)) + "Images\\1.bmp");
        gif->Add(bmp);        bmp->LoadFromFile(ExtractFilePath(ParamStr(0)) + "Images\\2.bmp");
        gif->Add(bmp);        bmp->LoadFromFile(ExtractFilePath(ParamStr(0)) + "Images\\3.bmp");
        gif->Add(bmp);        gif->SaveToFile("C:\\ccrun\\234.gif");
        Image1->Picture->Assign(gif);
    }
    __finally
    {
        delete bmp;
        delete gif;
    }
}

Answer 8

已经 用过了，生成的GIF 根本就打 不开 ，谢谢楼上的朋友

Answer 9

首先这方面的第三方组件是有的,你可以去找一下
另外,如果想自己处理的话,就先要了解gif的数据结构,清楚了这个,操作gif还不容易吗TGifImage组件应该是可以的,你打不开,不知是什么意思,是用image打不开,还是在windows本身就无法浏览呢

Answer 10

http://www.jpzl.net/DB/sjkyl/200806/393141.html
GIF文件格式

Answer 11

procedure TMain.Button2Click(Sender: TObject);
var
  gif:TGIFImage;
  bmp:TBitmap;
begin
  try
    bmp:=TBitmap.Create();
    gif:=TGIFImage.Create();
    bmp.LoadFromFile(ExtractFilePath(ParamStr(0))+'db\1.bmp');
    gif.Add(bmp);
    bmp.LoadFromFile(ExtractFilePath(ParamStr(0))+'db\2.bmp');
    gif.Add(bmp);
    bmp.LoadFromFile(ExtractFilePath(ParamStr(0))+'db\3.bmp');
    gif.Add(bmp);
//    gif.SaveToFile(ExtractFilePath(ParamStr(0))+'123.gif');{加上系统路径报错，奇怪了}
    gif.SaveToFile('123.gif');
    Image1.Picture.LoadFromFile('123.gif');{加上系统路径报错，奇怪了}
  finally
    bmp.Free;
    gif.Free;
  end;
end;这个不能控制帧的显示速度，如果lz想要写的更详细，请参考11#的介绍。

Answer 12

我测试了,合成的gif 是打不开的

Answer 13

这只是简单的一个bmp合成gif代码，只能在Delphi里面预览而且是一次性，如果要能在windows下预览，lz还要花点时间去学习学习有关delphi的图像处理技术了，还有gif文件格式。

Answer 14

你可以用看图工具查看效果，比如acd

Answer 15

在delphi程序里面能不能看到动画效果？

Answer 16

我只是想用delphi 实现 图象合并  生成的gif是动画就可以了

Answer 17

采用了一个DLL文件实现了,测试中，看看如何