请问如何将gif（2色）图转换成BMP（2色）图，要源码？(100分)

L

lengbing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-13

• #1

因学习需要，请各位帮忙。

 

M

maming

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-13

• #2

使用，image1.pictrue.savetofile应该就可以了。

 

N

NeutronDelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-13

• #3

楼上那位开什么玩笑!
简单来说是一个格式转化问题问题的难点在于
Delphi中的Image不支持GIF,可通过第三方控件实现之
我有TGifImage控件,
要不我寄一份给你并给你几个例程如何?
NeutronBoy@sohu.com
如果方便的话,给张美女图片!

 

L

ldaan3

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-13

• #4

简单，这样就可以了，给分吧。：）

procedure TForm1.Button3Click(Sender: TObject);
var
path1:string;
begin
if opendialog1.Execute then
path1:=opendialog1.FileName; // 打开gif
copyfile(pchar(path1),'e:/1.bmp',false); // 保存为bmp文件，就是转换了。
end;

 

L

lengbing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-14

• #5

ldaan3,你好，非常感谢你的帮助，你的这个方法我以前用过，生成的图不能用。我的要求是用AcdSee转换完的结果那样。
如源文件270字节，用AcdSee转换后为230字节。希望能够得到你的再次帮助！谢谢

 

N

NeutronDelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-15

• #6

ldaan3真是...(给分吧)
你羞不羞啊?
那只能说明你根本就不懂这个问题,
不同什么图形图象
Lengbing真实不识抬举,
我下载的TImageGif功能多多,
免费奉献源代码还不要!

 

L

lengbing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-15

• #7

NeutronDelphi, 你好，非常抱歉，请别介意，我的邮箱是:c_ice@btamail.net.cn，希望能够收到你的邮件。

 

L

largefoot

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-28

• #8

uses RXGif;
...
var
G: TGifImage;
B: TBitMap;
begin
G := TGifImage.Create;
B := TBitMap.Create;
try
G.LoadFromFile('C:/1.gif');
B.Width := G.Width;
B.Height := G.Height;
B.PixelFormat := G.PixelFormat;
B.Palette := G.Palette;
B.Canvas.Draw(0,0,G);
B.SaveToFile('C:/1.bmp');
finally
B.Free;
G.Free;
end;
end;