如何将FastBMP组件里的位图写入到TPicture里

Question

如题，同时不使用临时文件，谢谢

Answer 1

没用过FastBMP这个东东，给你参考一下：procedure TForm1.Button1Click(Sender: TObject);
var
  Pic: TPicture;
begin
  Pic:=TPicture.Create;
  Pic.Assign(Image1.Picture.Bitmap);
  Canvas.Draw(0, 0, Pic.Graphic);
  Pic.Free;
end;

Answer 2

呵呵，我也没用过那个控件，不过一般来说有以下几种方法
一个是直接向Picture的Canvas上画
二，如果是BMP的话，可以BMP间赋值，abmp.assign(bbmp)
三、用TmemoryStream做中转。
其实说白了，只要你能从那个fastbmp中得到tbitmap就直接绘制或者复制都可以。如果有Canvas的话，就直接绘制，如果都没有，能存到流里，就中转。