ReadyGo!技术成就梦想 网络搜索 efish 2008-1-13 11:11:54

TBitmap问题！

楼主babyboy（榆木疙瘩）2002-01-04 17:52:55 在 Delphi / VCL组件开发及应用 提问

各位大虾好啊，我在写程序过程中遇到一个问题，  
  我在Timage的画布上画图，用API函数：SetDibitstodevice和StretchDibits,  
  其中位图数据是自己填充，现在的问题是要把位图导出，想利用TBitmap的成员函数，但我怎么把自己生成的位图转为TBitmap对象？  
  问题点数：20、回复次数：8Top

1 楼kevin_gao（困了！累了！睡觉了！）回复于 2002-01-04 17:57:25 得分 15

image1.Picture.Bitmap   Top

2 楼babyboy（榆木疙瘩）回复于 2002-01-04 18:04:35 得分 0

也就是说Image.Picture.Bitmap此时对象是空的，还是自动将我的图象生成了Tbitmap并赋给了Image.Picture.Bitmap？Top

3 楼kevin_gao（困了！累了！睡觉了！）回复于 2002-01-04 18:05:42 得分 0

后者Top

4 楼jianping0（ljp）回复于 2002-01-04 18:05:43 得分 5

var  
      btm:   TBitmap;  
  begin  
      btm.assign(image1.Picture.Bitmap);  
  end;Top

5 楼babyboy（榆木疙瘩）回复于 2002-01-04 18:07:37 得分 0

或着需要我自己把位图句柄赋给Image.picture.Bitmap.handle?我试了好像不行，  
  我的位图是DIB的Top

6 楼kevin_gao（困了！累了！睡觉了！）回复于 2002-01-04 18:09:07 得分 0

你到底是要导出还是导入？Top

7 楼halfdream（哈欠）回复于 2002-01-04 23:07:53 得分 0

干嘛不直接在image1.Picture.Bitmap.Canvas   上画图?  
   
  Top

8 楼babyboy（榆木疙瘩）回复于 2002-01-05 08:18:12 得分 0

要既能导出还要能导入，而且还能保存为流文件，并要能存为.tiff格式的文件，  
  如果只要保存为.bmp我就自己写函数了！谢谢各位！  
  在bimap.canvas上画图我试试看！Top