Delphi编程分割图片的方法
Delphi切割图片,Delphi图片分割
这个例子是把一张图片平均分成了 4 份, 顺序是: 左、右、上、下; 没使用循环操作, 显得有点笨, 但容易理解.
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网(http://www.xuedelphi.com/) ]详细出处参考:http://www.xuedelphi.cn/article/html2010/2010102722310213.html
转载于:https://www.cnblogs.com/hssbsw/archive/2012/06/07/2540882.html
Delphi编程分割图片的方法相关推荐
- delphi编程 界面全屏代码(多种方法)
delphi编程 界面全屏代码(多种方法) (2013-02-17 11:47:40) 转载▼ 标签: it 编程 分类: 编程相关 BorderStyle:=bsNone; SetBounds(0, ...
- android 图片百分比显示,Android编程实现等比例显示图片的方法
本文实例讲述了Android编程实现等比例显示图片的方法.分享给大家供大家参考,具体如下: 在android中,由于密度的影响,如果想得到图片的宽高是不行的,具体为什么我就大概说一下,具体的请搜索度娘 ...
- Delphi编程中流的使用
什么是流?流,简单来说就是建立在面向对象基础上的一种抽象的处理数据的工具.在流中,定义了一些处理数据的基本操作,如读取数据,写入数据等,程序员是对流进行所有操作的,而不用关心流的另一头数据的真正流向. ...
- Delphi编程中资源文件的应用
Delphi编程中资源文件的应用 2008-02-03 14:08Dephi中资源文件的应用 /转自 http://chamlly.spaces.live.com/blog/cns!548f73d87 ...
- 如何使用python爬取百度图片_python实现爬取百度图片的方法示例
本文实例讲述了python实现爬取百度图片的方法.分享给大家供大家参考,具体如下: import json import itertools import urllib import requests ...
- android Bimtap 各种图片处理方法、图片特效
原帖地址:http://gundumw100.iteye.com/blog/849729 Java代码 //压缩图片大小 public static Bitmap compressImage(Bi ...
- 深入delphi编程(转)
刚刚接触的delphi的朋友,可能最感兴趣的就是它丰富.强大的vcl(可视化构件库).仅仅向窗体上扔几个构件,甚至不用动手写代码,就能很容易地做出一个有实用价值的程序,真是令人激动.但是,vcl只是d ...
- Delphi编程禁止用户关闭操作系统
Delphi编程禁止用户关闭操作系统 本实例介绍在程序运行的过程中禁止用户关闭操作系统. 用户是否可以关闭操作系统是通过对WM_QueryEndSession的处理来实现的,为此首先需要在程序中添加W ...
- python label显示图片_python 实现在tkinter中动态显示label图片的方法
在编程中我们往往会希望能够实现这样的操作:点击Button,选择了图片,然后在窗口中的Label处显示选到的图片.那么这时候就需要如下代码: from tkinter import * from tk ...
- pygame显示图片的方法_使用Sprite实现移动动画(Pygame中的精灵类)
pygame.sprite.Sprite就是Pygame里面用来实现精灵的一个类,使用时,并不需要对它实例化,只需要继承他,然后按需写出自己的类就好了,因此非常简单实用. 什么是精灵? 精灵可以认为成 ...
最新文章
- 滴滴魅族手机人脸识别没有反应_魅族Note9发布,亮点不足,价格却很有诚意
- 儿童编程软件python-MRT7-Python少儿编程下载
- m1芯片MacBook安装Apple优化版TensorFlow(虚拟环境)
- oracle登录日志查看_last命令详解--查看Linux 登录日志+实例说明
- UVA10427 Naughty Sleepy Boys【数学】
- Ogre1.8.1 Basic Tutorial 6 - The Ogre Startup Sequence
- Vim 配置详解_wuyang
- 用CE修改植物大战僵尸阳光值
- XS9951 两通道多合一同轴高清解码芯片 国产
- PDF页码怎么设置?如何给PDF文件设置页码
- 圣诞颂歌(Christmas Songs)
- Grafana可视化工具-之数字映射字符串
- 导数的四则运算法则_【数学】求导的方法之四则运算法则
- Java truelicense 实现License授权许可和验证
- 手指静脉图像采集终端的设计和实现
- 亚洲众包网站悄然崛起:中国成最大“雇主”
- 普通用户sftp 无法使用解决方法
- Python竞猜商品价格
- 我读《怪诞行为学2》
- Vs Code使用国际化多语言插件-i18n AllyVue i18n-插件使用