如何拼接超大图?

[awaker]

我想用20*20个800*600的图片拼成一个大图?
请详细说明,最好附源码.

[hzhxxx]

关注，大图象问题！

[gfh21cn]

可以呀
你用ScrollBox来做容器

把Image->Parent=ScrollBox
再设置image的Left,Top

[awaker]

我现在用的是Image->Canvas->CopyRect()方法将图片一个一个拷进一个大图片框中,但发现有限制,Canvas最大只能到7000多,再大就提示内存不足,请问谁有其它方法实现?

[kingcaiyao]

用BitBlt吧：
跟你写一个简单的代码：
void __fastcall TForm1::Button1Click(TObject *Sender)
{
BITMAP BStruct;
HDC DC,MemDC;
HBITMAP Bitmap,OldBitmap;
Bitmap=::LoadBitmap(HInstance,"ABIAN");
::GetObject(Bitmap,sizeof(BITMAP),&BStruct);
DC=::GetDC(Form1->Handle);
MemDC=::CreateCompatibleDC(DC);
OldBitmap=::SelectObject(MemDC,Bitmap);
while(!MyQuery->Eof)
{

if(i>=50)
{

i=0;
j++;
}
::BitBlt(DC,i*8,450+j*8,8,8,MemDC,MyQuery->FieldByName("X")->AsInteger+100,MyQuery->FieldByName("Y")->AsInteger+100,SRCCOPY);
MyQuery->Next();
i++;
}
::SelectObject(MemDC,OldBitmap);
::DeleteObject(MemDC);
}
//

[我不懂电脑]

用多个Image拼接

[Awaker00]

关注

[awaker]

kingcaiyao(AKing):
你把Form换成Image试试看,我试过10000*10000是失败的.
不知可有其它方法?