Delphi切割圖片,Delphi圖片分割
這個例子是把一張圖片平均分成了 4 份, 順序是: 左、右、上、下; 沒使用循環(huán)操作, 顯得有點笨, 但容易理解.
unit Unit1;

interface

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
end;

var
Form1: TForm1;

implementation

{$R *.dfm} procedure TForm1.Button1Click(Sender: TObject);
const
path = 'c:\temp\test.bmp';
{ 先準備好測試圖片 } var
bit: TBitmap;
bits: array [0 .. 3] of TBitmap;
{ 假如分成 4 份 } i, w, h: Integer;
begin
bit := TBitmap.Create;
bit.LoadFromFile(path);
w := bit.Width div 2;
h := bit.Height div 2;
for i := 0 to 3 do
begin
bits[i] := TBitmap.Create;
bits[i].SetSize(w, h);
end;
BitBlt(bits[0].Canvas.Handle, 0, 0, w, h, bit.Canvas.Handle, 0, 0, SRCCOPY);
BitBlt(bits[1].Canvas.Handle, 0, 0, w, h, bit.Canvas.Handle, w, 0, SRCCOPY);
BitBlt(bits[2].Canvas.Handle, 0, 0, w, h, bit.Canvas.Handle, 0, h, SRCCOPY);
BitBlt(bits[3].Canvas.Handle, 0, 0, w, h, bit.Canvas.Handle, w, h, SRCCOPY);
for i := 0 to 3 do
begin
bits[i].SaveToFile(ChangeFileExt(path, Format('.%.3d.bmp', [i + 1])));
bits[i].Free;
end;
bit.Free;
end;

end.

[本文來自: 學Delphi網(wǎng)(http://www.xuedelphi.com/) ]詳細出處參考：http://www.xuedelphi.cn/article/html2010/2010102722310213.html

總結

以上是生活随笔為你收集整理的Delphi编程分割图片的方法的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內容還不錯，歡迎將生活随笔推薦給好友。