现在我用这个函数选定了一块区域,但是怎么把它保存到一个文件里面
或者有更好的从一个内存文件里取出一个图象的一块区域并保存。

解决方案 »

  1.   

    一点提示,希望能帮你的忙:
    var
      R: TRect;
      Src, Dst: TBitmap;
    begin
      R := Rect(20, 20, 100, 100); // R可以设为所需的值
      Src := TBitmap.Create;
      Dst := TBitmap.Create;
      Src.LoadFromFile(SrcFile);   // SrcFile是源文件名
      Dst.Assign(Src);
      with Dst do
      begin
        Width := R.Right - R.Left;
        Height := R.Bottom - R.Top;
        Canvas.CopyRect(Canvas.ClipRect, Src.Canvas, R);
      end;
      Dst.SaveToFile(DstFile);   // DstFile是目标文件名
      Dst.Free;
      Src.Free;
    end;
      

  2.   

    谢谢,我想问一下,图象可以用LoadFromStream或SaveToStream吗。