如何把大图片(1280*1024)首尾相连,连接10张,20张,30张都可以,只要代码相关文章,推荐也可以 谢谢代码很简单,但是连接20张后,我的代码就不好使了

解决方案 »

  1.   

    用TBitmap画的吧,把你的bmp的PixelFormat属性设为pf24bit
    30张也就100M左右内存,完全放得下
      

  2.   

    哎,痛苦啊 麻烦楼上的好心人 把代码能写一下吗? 
    我怀疑是canvas长度,宽度的限制
    要代码,谢谢! 
      

  3.   


    连接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;
      

  4.   

    楼上的,你这个太简单,事实上是肯定不行的,但是没有人回答问题,分数只好给你了 
    谢谢你!事实上bmp大到一定长度或者宽度的时候就狒狒了,貌似 GetCanvas里就会报错,所以最后我放弃了 bmp,用emf文件存储图形,连接emf文件,道理是一个道理,
    但是不好跟踪,最后还是在网上抄袭了一段代码,解决问题谢谢