image组件画图，当长宽太大就提示存储空间不足，怎么解决？

Question

image组件画图，当长宽太大就提示存储空间不足，怎么解决？我在image的canvas上画线。一旦设置长宽太大，差不多4000左右就提示存储空间不足。查了一下百度发现跟内存大小有关……然后有人说要用分块显示。不知道怎么分块？既然要分块显示，那么总需要一个东西来预先存放这个大图吧？我试着用tbitmap来，也照样，一旦我设置bitmap.heigth和width超过了一定大小就提示存储空间不足……那应该用什么来存储呢？最好哪位高手能够给出一个可用的demo……，实在郁闷~~~分不够再加~~~

Answer 1

delphi7+sql2000 我很熟,
mapx5.02 没有用过,请介绍以下你的GPS模块的主要功能和规模.

Answer 2

屏幕上显示的是一部分，其他在硬盘上．
TCAD
http://www.codeidea.com/cn/

Answer 3

楼主也叫“妖哥”，C++Builder里有一个大牛也叫“妖哥”，你就是他吗？

Answer 4

降低一下像素。
BitMap.PixelFormat：=pf4bit;

Answer 5

分成N个Bitmap不就可以了。也可以自己读文件显示BMP.
给你个读取并显示24位位图的代码，其他格式的自己写：// 输入： sFile   -- 位图文件
//       hFormDC -- 绘制到那个ＤＣ上
// 输出： Boolean 
//       True  -- Success
//       False -- Fail.
function ReadBMP(sFile: String; hFormDC: HDC): boolean;
var
  smFile: TFileStream;  bmpHead: BITMAPFILEHEADER;
  bmpInfo: BITMAPINFO;  dwSize : Integer;
  nWidth : Integer;
  nHeight: Integer;
  pBuffer: Pointer;  nPitch : Integer;
  nTmp   : Integer;
  
  nRow, nCol: Integer;
begin
  Result:= false;  if (not FileExists(sFile)) or (sFile = '') then exit;  smFile:= TFileStream.Create(sFile, fmOpenRead);
  smFile.Seek(0, 0);  if (smFile.Read(bmpHead, SizeOf(bmpHead)) > 0) then
  begin
    if (bmpHead.bfType <> $4D42) then
    begin
      ShowMessage('Not a bitmap file!');
      FreeAndNil(smFile);
      exit;
    end;
  end
  else begin
    FreeAndNil(smFile);
    exit;
  end;  if (smFile.Read(bmpInfo.bmiHeader, SizeOf(BITMAPINFOHEADER)) <= 0) then
  begin
    FreeAndNil(smFile);
    exit;
  end;  if (bmpInfo.bmiHeader.biBitCount <> 24) then
  begin
    ShowMessage('Not a 24 bit bitmap!');
    FreeAndNil(smFile);
    exit;
  end;  nWidth := bmpInfo.bmiHeader.biWidth;
  nHeight:= bmpInfo.bmiHeader.biHeight;  dwSize := SizeOf(BYTE) * bmpInfo.bmiHeader.biSizeImage;  GetMem(pBuffer, dwSize);
  try
    smFile.Seek(bmpHead.bfOffBits, soBeginning);    if (smFile.Read(pBuffer^, dwSize) > 0) then
    begin
      nPitch:= nWidth mod 4;      for nRow:= 0 to nHeight - 1 do
      begin
        nTmp:= nRow * nPitch;
        for nCol:= 0 to nWidth - 1 do
        begin
          // 这里显示的时候一些问题，当nWidth小于０的时候是倒的，显示的时候要处理一下，这里没有处理。
          SetPixel(hFormDC, nCol, nRow,
                   RGB(
                       BYTE(Pointer(Integer(pBuffer) + (nRow * nWidth + nCol) * 3 + 2 + nTmp)^),
                       BYTE(Pointer(Integer(pBuffer) + (nRow * nWidth + nCol) * 3 + 1 + nTmp)^),
                       BYTE(Pointer(Integer(pBuffer) + (nRow * nWidth + nCol) * 3 + nTmp)^)
                       )
                  );
        end;
      end;
    end
    else begin
      ShowMessage(IntToStr(GetLastError));
    end;
  finally
    FreeMem(pBuffer);
    FreeAndNil(smFile);
  end;  Result:= true;
end;// 测试
procedure TForm1.Button1Click(Sender: TObject);
begin
  ReadBMP('test.bmp', Self.Canvas.Handle);
end;

Answer 6

Delphi的TImage组件对于Bmp的长宽是判断过的，超过大小就会出现错误。可以看看其源代码。