- 博客(9)
- 资源 (12)
- 收藏
- 关注
RSS订阅原创 图片缩放算法
图片缩放算法最邻近插值（近邻取样法）： 最临近插值的的思想很简单。对于通过反向变换得到的的一个浮点坐标，对其进行简单的取整，得到一个整数型坐标，这个整数型坐标对应的像素值就是目的像素的像素值，也就是说，取浮点坐标最邻近的左上角点（对于DIB是右上角，因为它的扫描行是逆序存储的）对应的像素值。可见，最邻近插值简单且直观，但得到的图像质量不高。双线性内插值： 对于一个目的像素，设置坐标通过反向变换得到的浮点坐标为(i+u,j+v)，其中i、j均为非负整数，u、v为[0,1)区间的浮点数，则这个像素得值
2010-06-16 14:01:00
2450
原创 有关颜色的几个函数
<br />内容：将TColor换算成RGB，主要是用API函数GetRValue、GetGValue和GetBValue将TColor分解成RGB中的R、G、B三色。GetRValue函数可将TColor分解为RGB中R的值。语法：function GetRValue(rgb: DWORD): Byte;DWORD：RGB颜色的值。例如，获取RGB颜色中的红色（R）值，代码如下：Caption := IntToStr(GetRValue(clRed));结果：255说明
2010-06-15 17:28:00
3890
1
原创 graphics单元的几个图像函数
function GraphicFilter(GraphicClass: TGraphicClass): string;function GraphicExtension(GraphicClass: TGraphicClass): string;function GraphicFileMask(GraphicClass: TGraphicClass): string;function ColorToRGB(Color: TColor): Longint;function ColorToS
2010-06-15 16:59:00
1267
原创 Delphi代码的双线性插值算法
下面这段代码是VC的旋转双线性插值算法，先来看这段代码：/************************************************************************* * 函数名称： * RotateDIB2() * 参数: * LPSTR lpDIB - 指向源DIB的指针 * int iRotateAngle - 旋转的角度（0-360度） * 返回值: * HGLOBAL - 旋
2010-06-15 09:12:00
2466
原创 delphi 2007安装 Invalid Serial Number 问题
delphi 2007安装 Invalid Serial Number 问题<br />内容摘要：Delphi 2007安装程序根据不同的序列号(许可文件)来判断安装版本，一般ISO中自带的许可文件是专业版的。 <br /> 安装前提是你已经下载了Delphi 2007 for Win32的ISO。<br /> Delphi 2007安装程序根据不同的序列号(许可文件)来判断安装版本，一般ISO中自带的许可文件是专业版的。<br /> 企业版和专业版的许可文件下载：delphi2007_slip.zi
2010-06-08 20:22:00
5400
1
原创 Delphi FastReport4.5安装说明
<br />一、环境<br />1、Delphi 2006 （Version10.0.2151.25345）<br />2、FastReport4.5 full source，下载地址(www.ccrun.com)<br /> 这个版本支持Delphi 4~7, 2005, C++Builder 4~6, BDS2006, RAD Studio 2007<br />3、目录结构D:/FastReport4.5，解压后目录结构如下：<br />/Demos<br />/Extra<br />/FastQ
2010-06-08 20:20:00
5502
2
原创 读取目录下的文件列表
unit MyFileMeneger;interfaceuses Windows,classes,sysutils;function Slash(const Path: string ): String; //路径的末尾如果没有反斜杠，则加上反斜杠。slash：英文指反斜杠function GetDiskList():tstringlist ; //读取驱动器列表//读取目录下的文件列表(包括文件夹)function ReadFiles(const Par
2010-06-08 20:10:00
1244
原创 有关右键菜单添加菜单项的操作
<br />var //m:tmenuitem ;//使用变量只能添加一个菜单项 p: tpoint ;begin self.PopupMenu1.Items.Clear;//添加子菜单 self.PopupMenu1.Items.Add(tMenuItem.Create(self)); self.PopupMenu1.Items[self.PopupMenu1.Items.Count-1].Caption := '123' ; self.PopupMenu1.Item
2010-06-08 20:06:00
472
Delphi7 Microsoft Speech SDK5.4语音处理
2022-11-07
delphi_sql_parser.zip
2020-02-23
FastReport.V4.9.FullSource.For.Delphi2010.安装版
2012-12-02
Delphi 函数：双线性插值缩放图像
2010-06-16
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人