如何把大图片(1280*1024)首尾相连,连接10张,20张,30张都可以,只要代码相关文章,推荐也可以 谢谢代码很简单,但是连接20张后,我的代码就不好使了
解决方案 »
- DBGridEh为什么不能跟进到单元代码里?
- delphi 想跳出一个函数的执行用什么语句?
- Delphi如何实现类型于工具箱的树形结构
- hongqi162(失踪的月亮)
- 用tidtcpserver向客户端发送数据,如何知道客户端是否收到?
- 高手研判:BPL中增加事务后,报访问地址违例,是什么原因?如何解决?只能给100,解决后重开新贴再送100分
- 问天下谁是英雄?一个月余未有人解决的问题
- QuickReport控制問題?
- 如何在delphi中调用Access的导入导出功能
- 我的BDE損壞,用BDE連接的程序在設計狀態下不能運行。編譯成EXE后OK!怎么解決?
- dbgrid
- 纪念逝去的同胞,为震区的人们收集10000句祝福,是中国人的顶起
30张也就100M左右内存,完全放得下
我怀疑是canvas长度,宽度的限制
要代码,谢谢!
连接10张,供参考
var
abmp,bbmp:TBitmap;
i,w:Integer;
begin
abmp := TBitmap.Create;
bbmp := TBitmap.Create;
abmp.PixelFormat := pf24bit;
bbmp.LoadFromFile('c:\3.bmp');
abmp.Height := bbmp.Height;
w := bbmp.Width;
for i := 0 to 9 do
begin
abmp.Width := (i+1)*w;
abmp.Canvas.Draw(i*w,0,bbmp);
end;
abmp.SaveToFile('c:\my.bmp');
end;
谢谢你!事实上bmp大到一定长度或者宽度的时候就狒狒了,貌似 GetCanvas里就会报错,所以最后我放弃了 bmp,用emf文件存储图形,连接emf文件,道理是一个道理,
但是不好跟踪,最后还是在网上抄袭了一段代码,解决问题谢谢