|
|
|
|
也来谈谈数据库中的图象存取 2003-03-16 |
关于数据库中的图象存取,网上的资料多是直接用Table或者Query 等控件然后利用流作为媒介来完成。目前我还没看到封装在一个类里面,完全用SQL语句来实现图象的存取。前段时间开发一个运证管理系统就碰到了这样一个问题:要把每个司机的照片入库。我们可以在主界面...[全部内容] |
|
Windows优化大师注册机源码 2003-03-16 |
Windows优化大师注册机源码unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, Registry, StdCtrls, Buttons;typeTForm1 = class(TForm)Label1: TLabel;Label2: TLabel;Edit1: TEdit;Edit2: TEdit;Label3: T...[全部内容] |
|
基本图象处理代码(1) 2003-03-07 |
[图像的旋转和翻转]以下代码用ScanLine配合指针移动实现,用于24位色,至于其它色深的处理和有些代码为什么要这样写的问题可查看我的另一篇文章!//旋转90度procedure Rotate90(const Bitmap:TBitmap);var i,j:Integer; rowIn,rowOut:pRGBTriple; Bmp:TB...[全部内容] |
|
基本图象处理代码(2) 2003-03-07 |
[亮度、对比度、饱和度的调整]以下代码用ScanLine配合指针移动实现!function Min(a, b: integer): integer;begin if a < b then result := a else result := b;end;function Max(a, b: integer): integer;begin if a > b then...[全部内容] |
|
基本图象处理代码(3) 2003-03-07 |
[常用滤镜效果]对于浮雕效果,大家一般也看过些相关代码,但一般不支持角度变化!这里根据角度的不同,在一个像素周围的8个像素中取不同的两个运算得到新颜色值,用这个值和它求差值实现浮雕效果。用到了线性插值的思想,没有使用浮点运算!//浮雕procedure Emboss(SrcB...[全部内容] |
|
基本图象处理代码(1) 2003-03-07 |
[图像的旋转和翻转]以下代码用ScanLine配合指针移动实现,用于24位色,至于其它色深的处理和有些代码为什么要这样写的问题可查看我的另一篇文章!//旋转90度procedure Rotate90(const Bitmap:TBitmap);var i,j:Integer; rowIn,rowOut:pRGBTriple; Bmp:TB...[全部内容] |
|
基本图象处理代码(2) 2003-03-07 |
[亮度、对比度、饱和度的调整]以下代码用ScanLine配合指针移动实现!function Min(a, b: integer): integer;begin if a < b then result := a else result := b;end;function Max(a, b: integer): integer;begin if a > b then...[全部内容] |
|
基本图象处理代码(3) 2003-03-07 |
[常用滤镜效果]对于浮雕效果,大家一般也看过些相关代码,但一般不支持角度变化!这里根据角度的不同,在一个像素周围的8个像素中取不同的两个运算得到新颜色值,用这个值和它求差值实现浮雕效果。用到了线性插值的思想,没有使用浮点运算!//浮雕procedure Emboss(SrcB...[全部内容] |
| |
| |
|