怎样使256色位图用delphi的image控件调入后变成24位位图哪?给出怎么转换256位图到24位的方法也可!

Question

怎样使256色位图用delphi的image控件调入后变成24位位图哪?给出怎么转换256位图到24位的方法也可!

Answer 1

分离每点的颜色,但是现在对256色位图不好用,有知道解决256色的请给点意见!
procedure TForm1.Button1Click(Sender: TObject);
var
  prgb:PRGBArraye;
  IM : TImage;
  tmp:string;
begin
 im:=TImage.Create(self);
 im.Picture.Bitmap.LoadFromFile('C:\My Documents\r256.bmp');
  IF im.Picture.Bitmap.PixelFormat <> pf24bit
    THEN showmessage('GetImageSpace:  ' +
               'Bitmap must be 24-bit color.');  prgb:=im.Picture.Bitmap.ScanLine[10];  edit2.text:inttostr(prgb[1].rgbtGreen);
  edit2.Text:=inttostr(prgb[1].rgbtGreen);
  edit3.Text:=inttostr(prgb[1].rgbtRed);  case im.picture.bitmap.pixelformat of
    pf8bit : tmp:='8位';
    pf24bit: tmp:='24位';
    pfCustom : tmp:='自定义';
   end;  edit4.text := tmp;
   im.free;end;
怎样使256色位图用delphi的image控件调入后变成24位位图哪?给出怎么转换256位图到24位的方法也可!

Answer 2

载入图象到Image,指定Image的Bitmap.PixelFormat:=pf24bit；
然后保存看看。

Answer 3

im.Picture.Bitmap.PixelFormat:=pf24bit;  //问题解决了,载入256色文件后,设定这项就可以了!!
能给自己加分?????????????????????????????????????????????????????
能给自己加分?????????????????????????????????????????????????????