lailai186

Delphi GDI+ 图形处理（3）

探究Delphi的图形处理之七 -- 柔化和锐化处理　

　第三章基本图像处理算法

3.1柔化和锐化处理

柔化处理的原理是将图片中每一个像素都由与其相邻的n*n个像素的平均值来代替。N的取值决定了其模糊程度。下面是柔化处理的程序。

程序3.1

unit Unit1;

{柔化处理}

Interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, GraphicProcess, StdCtrls, ExtCtrls;

type

TForm1 = class(TForm)

PaintBox1: TPaintBox;

btnExe: TButton;

txtN: TEdit;

Label1: TLabel;

procedure FormCreate(Sender: TObject);

procedure PaintBox1Paint(Sender: TObject);

procedure btnExeClick(Sender: TObject);

procedure FormDestroy(Sender: TObject);

private

Procedure SmoothPicture(const Bit : TBitmap;var n : Integer);

public

{ Public declarations }

end;

procedure WritePixel(Pic: TBitmap; tPix: TPixels);

procedure ReadPixel(Pic: Tbitmap; var tPix: TPixels);

var

Form1: TForm1;

Bits : TBitmap;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

Bits:=TBitmap.Create;

Bits.LoadFromFile(‘Test.Bmp‘);

end;

procedure TForm1.PaintBox1Paint(Sender: TObject);

begin

PaintBox1.Canvas.StretchDraw(Rect(0,0,400,300),Bits);

end;

procedure TForm1.SmoothPicture(const Bit: TBitmap;var n: Integer);

var R,G,B:Integer;

i,j,k,l : Integer;

Pix : TPixels;

nDiv : Integer;

nDivRs : Integer;

jP,jM,ip,im:Integer;

OpCount : Integer;

begin

ReadPixel(Bit,Pix);

if n mod 2 = 0 then n := n +1;

nDiv := n * n;

nDivRs := n div 2;

For i := 0 to Bit.Width-1 do begin

ip:= i + nDivRs;

im := i ;

if im < 0 then im := 0;

if ip > Bit.Width -1 then ip := Bit.Width-1;

For j := 0 to Bit.Height -1 do

begin

R:=0;

G:=0;

B:=0;

jP := j + nDivRs;

jM := j - nDivRs;

if Jp > bit.Height-1 then

jp := Bit.Height-1;

if jm <0 then jm :=0;

OpCount := (ip - im+1) *(jp-jm+1);

For k := im to Ip do begin

For l := jm to jp do

begin

R := R + Pix[k,l].rgbtRed;

G := G + Pix[k,l].rgbtGreen;

B := B + Pix[k,l].rgbtBlue;

end;

Pix[i,j].rgbtBlue := B div opCount;

Pix[i,j].rgbtGreen := G div opCount;

Pix[i,j].rgbtRed := R div opCount;

end;

WritePixel(Bit,Pix);

end;

procedure ReadPixel(Pic: Tbitmap; var tPix: TPixels);

Var PixPtr:PbyteArray;i,j,m:Integer;

begin

SetLength(tPix,Pic.Width,Pic.Height);

Pic.PixelFormat := pf24bit;

Pic.HandleType:=bmDIB;

For i :=0 to pic.Height-1 do begin

PixPtr:=Pic.ScanLine[i];

for j:= 0 to pic.Width-1 do begin

m := j*3;

tPix[j,i].rgbtBlue:=PixPtr[m];

tPix[j,i].rgbtGreen := PixPtr[m+1];

tPix[j,i].rgbtRed := PixPtr[m+2];

end;

procedure WritePixel(Pic: TBitmap; tPix: TPixels);

var PixPtr:PByteArray;i,j,m:Integer;

begin

pic.PixelFormat := pf24bit;

pic.HandleType:=bmDIB;

Pic.Height := High(tPix[0])+1;

Pic.Width:= High(tPix)+1;

For i :=0 to pic.Height-1 do begin

PixPtr:=Pic.ScanLine[i];

for j:= 0 to pic.Width-1 do begin

m := j*3;

PixPtr[M] := tPix[j,i].rgbtBlue;

PixPtr[m+1] := tPix[j,i].rgbtGreen;

PixPtr[m+2] := tPix[j,i].rgbtRed;

end;

procedure TForm1.btnExeClick(Sender: TObject);

var n :Integer;

begin

n := StrToInt(txtN.Text);

Bits.LoadFromFile(‘Test.bmp‘);

SmoothPicture(Bits,n);

PaintBox1.Refresh;

end;

procedure TForm1.FormDestroy(Sender: TObject);

begin

Bits.Free;

end;

end.

程序的运行结果如下图所示。


原图	柔化系数=21

锐化处理的原理是把每一像素的值与该像素斜上方的像素值之差乘以一个系数再加上该像素原来的颜色值。

如果记图像中任意一个像素(x,y) (x∈[1,图像宽度-1],y∈[1,图像高度-1])修改前的RGB分值分别为OldRed, OldGreen, OldBlue, 修改后的RGB分值分别为NewR,NewG,NewB,有：

newR = (oldR - (x-1,y-1)的Red分值)×待定系数 + OldRed

newG = (oldG - (x-1,y-1)的Green分值)×待定系数 + OldGreen

newB = (oldB - (x-1,y-1)的Blue分值)×待定系数 + OldBlue

根据这个公式，我们的程序如下：

程序3.12

unit Sharp;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls;

type

TPixels = Array of Array of TRGBTriple;

TfrmMain = class(TForm)

PaintBox1: TPaintBox;

btnExecute: TButton;

lblCap: TLabel;

txtS: TEdit;

procedure FormCreate(Sender: TObject);

procedure FormDestroy(Sender: TObject);

procedure btnExecuteClick(Sender: TObject);

procedure PaintBox1Paint(Sender: TObject);

private

Procedure SharpPic(Bit : TBitmap; n : Single);

public

{ Public declarations }

end;

procedure WritePixel(Pic: TBitmap; tPix: TPixels);

procedure ReadPixel(Pic: Tbitmap; var tPix: TPixels);

var

frmMain: TfrmMain;

Bits : TBitmap;

implementation

{$R *.dfm}

procedure TfrmMain.FormCreate(Sender: TObject);

begin

Bits := TBitmap.Create;

Bits.LoadFromFile(‘Test.bmp‘);

end;

procedure TfrmMain.FormDestroy(Sender: TObject);

begin

Bits.Free;

end;

procedure TfrmMain.btnExecuteClick(Sender: TObject);

var n : Single;c : Integer;

begin

Bits.LoadFromFile(‘Test.BMP‘);

Val(txtS.Text,n,c);

SharpPic(Bits,n);

PaintBox1.Refresh;

end;

procedure ReadPixel(Pic: Tbitmap; var tPix: TPixels);

Var PixPtr:PbyteArray;i,j,m:Integer;

begin

SetLength(tPix,Pic.Width,Pic.Height);

Pic.PixelFormat := pf24bit;

Pic.HandleType:=bmDIB;

For i :=0 to pic.Height-1 do begin

PixPtr:=Pic.ScanLine[i];

for j:= 0 to pic.Width-1 do begin

m := j*3;

tPix[j,i].rgbtBlue:=PixPtr[m];

tPix[j,i].rgbtGreen := PixPtr[m+1];

tPix[j,i].rgbtRed := PixPtr[m+2];

end;

procedure WritePixel(Pic: TBitmap; tPix: TPixels);

var PixPtr:PByteArray;i,j,m:Integer;

begin

pic.PixelFormat := pf24bit;

pic.HandleType:=bmDIB;

Pic.Height := High(tPix[0])+1;

Pic.Width:= High(tPix)+1;

For i :=0 to pic.Height-1 do begin

PixPtr:=Pic.ScanLine[i];

for j:= 0 to pic.Width-1 do begin

m := j*3;

PixPtr[M] := tPix[j,i].rgbtBlue;

PixPtr[m+1] := tPix[j,i].rgbtGreen;

PixPtr[m+2] := tPix[j,i].rgbtRed;

end;

procedure TfrmMain.SharpPic(Bit: TBitmap; n: Single);

var R, G, B : Integer;

i,j:Integer;

Pix : TPixels;

im,jm : Integer;

begin

ReadPixel(Bit,Pix);

For i := 1 to Bit.Width-1 do begin

im := i-1;

For j := 1 to Bit.Height-1 do begin

jm := j-1;

R := Pix[i,j].rgbtRed + Round((Pix[i,j].rgbtRed-Pix[im,jm].rgbtRed)*n);

G := Pix[i,j].rgbtGreen + Round((Pix[i,j].rgbtGreen-Pix[im,jm].rgbtGreen)*n);

B := Pix[i,j].rgbtBlue + Round((Pix[i,j].rgbtBlue-Pix[im,jm].rgbtBlue)*n);

if R > 255 then R := 255;

If R <0 then R := 0;

if G > 255 then G := 255;

If G <0 then G := 0;

if B > 255 then B := 255;

If B <0 then B := 0;

Pix[i,j].rgbtRed := R;

Pix[i,j].rgbtGreen := G;

Pix[i,j].rgbtBlue := B;

end;

WritePixel(Bit,Pix);

end;

procedure TfrmMain.PaintBox1Paint(Sender: TObject);

begin

PaintBox1.Canvas.StretchDraw(Rect(0,0,400,300),Bits);

end;

end.

程序的运行结果如下图所示。


原图	锐化系数 = 0.95

探究Delphi的图形处理之八 -- 图像混合(透明度)效果　

　图像混合(透明度)效果

这种效果经常用在动画的转场过度上。这是一个由图像A逐渐变化为图像B的中间效果。就像向图像B以变量N为透明度覆盖在图像B一样。下图展示了这种效果。


透明度 = 100%	透明度 = 50%	透明度 = 0%

图像过渡效果的原理是，如果记透明度为A，那么在确保图像A和图像B同等大小的情况下，创建一个与图像A或B等大的图像C，对于图像C中每一个像素点P(x,y)，它的颜色值为：

R = 图像A的像素点(x,y).R +(图像B的像素点(x,y).R-图像A的像素点(x,y).R)×A

G = 图像A的像素点(x,y).G +(图像B的像素点(x,y).G-图像A的像素点(x,y).G)×A

B = 图像A的像素点(x,y).B +(图像B的像素点(x,y).B-图像A的像素点(x,y).B)×A

根据公式，有下面的程序：

程序3.2

unit AlphaBlending;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls, StdCtrls, ExtCtrls;

type

TPixels = Array of array of TRGBTriple;

TForm1 = class(TForm)

PaintBox1: TPaintBox;

Label1: TLabel;

scA: TTrackBar;

lblPos: TLabel;

Bevel1: TBevel;

procedure FormCreate(Sender: TObject);

procedure PaintBox1Paint(Sender: TObject);

procedure FormDestroy(Sender: TObject);

procedure scAChange(Sender: TObject);

private

public

{ Public declarations }

end;

Procedure GraphicFading(PicA, PicB: TPixels; const PicR: tBitmap; Percent: Byte);

procedure WritePixel(Pic: TBitmap; tPix: TPixels);

procedure ReadPixel(Pic: Tbitmap; var tPix: TPixels);

var

Form1: TForm1;

BitA,BitB:TBitmap;

Bits: TBitmap;

PixA,PixB:TPixels;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

BitA := TBitmap.create;

BitB := TBitmap.Create;

Bits := TBitmap.Create;

BitA.LoadFromFile(‘PicA.bmp‘);

BitB.LoadFromFile(‘PicB.bmp‘);

Bits.Assign(BitA); //这个语句可以把BitA中的内容复制到Bits中

Bits.PixelFormat := pf24Bit;

ReadPixel(BitA,PixA);

ReadPixel(BitB,PixB);

end;

procedure TForm1.PaintBox1Paint(Sender: TObject);

begin

PaintBox1.Canvas.Draw(0,0,Bits);

end;

Procedure GraphicFading(PicA, PicB: TPixels;

const PicR: tBitmap; Percent: Byte);//Make a Fading Picture From

var //PicA to PicB

MidR,MidG,MidB : Byte;

i,j : integer; m:Integer;

pixPtrA,pixPtrB,pixPtrR : PByteArray;

Position : Single;rPos,gPos:Integer;

PicRWidth:Integer;

begin

Position := Percent / 100;

PicRWidth:=PicR.Width-1;

for i := 0 to picR.Height -1 do begin

PixPtrR := picR.ScanLine[i];

for j := 0 to picRWidth do Begin

m:=j*3;

rPos:=m+2;

gPos:=m+1;

midR := PicA[j,i].RGBTRed+Round((PicB[j,i].RGBTRed-PicA[j,i].RGBTRed)*Position);

midG := PicA[j,i].RGBTgREEN+Round((PicB[j,i].RGBTgREEN-PicA[j,i].RGBTgREEN)*Position);

midB := PicA[j,i].RGBTBlue+Round((PicB[j,i].RGBTBlue-PicA[j,i].RGBTBlue)*Position);

pixPtrR[m] := midB;

pixPtrR[gPos] := midG;

pixPtrR[rPos] := MidR;

end;

procedure ReadPixel(Pic: Tbitmap; var tPix: TPixels);

Var PixPtr:PbyteArray;i,j,m:Integer;

begin

SetLength(tPix,Pic.Width,Pic.Height);

Pic.PixelFormat := pf24bit;

Pic.HandleType:=bmDIB;

For i :=0 to pic.Height-1 do begin

PixPtr:=Pic.ScanLine[i];

for j:= 0 to pic.Width-1 do begin

m := j*3;

tPix[j,i].rgbtBlue:=PixPtr[m];

tPix[j,i].rgbtGreen := PixPtr[m+1];

tPix[j,i].rgbtRed := PixPtr[m+2];

end;

procedure WritePixel(Pic: TBitmap; tPix: TPixels);

var PixPtr:PByteArray;i,j,m:Integer;

begin

pic.PixelFormat := pf24bit;

pic.HandleType:=bmDIB;

Pic.Height := High(tPix[0])+1;

Pic.Width:= High(tPix)+1;

For i :=0 to pic.Height-1 do begin

PixPtr:=Pic.ScanLine[i];

for j:= 0 to pic.Width-1 do begin

m := j*3;

PixPtr[M] := tPix[j,i].rgbtBlue;

PixPtr[m+1] := tPix[j,i].rgbtGreen;

PixPtr[m+2] := tPix[j,i].rgbtRed;

end;

procedure TForm1.FormDestroy(Sender: TObject);

begin

BitB.Free;

BitA.Free;

BitS.Free;

end;

procedure TForm1.scAChange(Sender: TObject);

begin

GraphicFading(PixA,PixB,Bits,scA.Position);

paintBox1.Canvas.Draw(0,0,Bits);

lblPos.Caption := IntToStr(scA.Position) + ‘ %‘;

lblPos.Refresh;

end;

end.

探究Delphi的图形处理之九 -- 转为灰度图像　

作者:何咏发布日期:(2005-4-12 20:56:06

　转为灰度图像

将图像转为灰度的算法非常简单，把图像中每一个像素的R、G、B分值都设置为该像素R、G、B分值的平均值即可。这是因为，在RGB编码中，如果一个像素的R、G、B分值相等，那么这就是一个灰色的像素。例如RGB(i,i,i) (i∈[0,255])可以表示不同灰度等级的灰色。当i = 255时，该像素为白色，当 i = 0时，该像素为白色。下面的程序段给出了灰度图像的算法。这一次，我们使用PRGBTriple类型作为ScanLine的指针类型，大家可以参考一下。

程序3.3

Function GraphicToGray(const Pic: Tbitmap): Integer;

var

i,j : integer;

pixPtr : PRGBTriple;

picH : integer;

picW : Integer;

GrayVal : Byte;

Begin

Pic.PixelFormat := pf24Bit;

Pic.HandleType := bmDIB;

picH := pic.Height;

picW := pic.Width;

for i := 0 to picH -1 do begin

pixPtr := pic.ScanLine[i];

for j := 0 to picW -1 do begin

GrayVal := Round((pixPtr^.rgbtBlue + pixPtr^.rgbtRed +pixptr^.rgbtGreen)/3);

pixPtr^.rgbtBlue := grayVal;

pixptr^.rgbtGreen := grayval;

pixptr^.rgbtRed := grayval;

inc(pixPtr);

end;

下面是上一端程序的运行结果：


原图	处理后

探究Delphi的图形处理之十 -- 对比度调整和反色处理　

　对比度调整和反色处理

图像对比度是指图像颜色值与中间颜色值的距离大小。在图形处理中，我们定义颜色RGB(127,127,127)为中间颜色值。增大或减小某一个像素值与这个值的差距就可以提高和降低图像的颜色值。如果我们记对比度调整前每一颜色通道（即像素颜色值的R、G、B分值）的值为x，修改后的值为y，那么有下图所示的线性关系：

从图中我们可以看出，对于未调整的图像，f(x) = x。如果调整了对比度，那么f(x) 的图像以点(127,127)为原点旋转。如果我们设f(x)= kx + b，提高对比度的问题就转变为根据k求b，在用k和b求f(x)的值的问题（也就是转换坐标系的问题）。其中，k是由用户指定的，它决定了是提高对比度还是降低对比度。如果k>1，就提高对比度，反之则降低对比度。如果k<0，那么可以达到反色的效果。

如果我们以点(127,127)为原点作一个平面直角坐标系，那么在新的坐标系XOY中，我们有Y = kX。把坐标系XOY向左、向下各移动127个单位，此时XOY与xoy重合，我们得到

Y = k(x-127) + 127

因此，我们得到了下面的公式：

NewRed = k(OldRed - 127) + 127

NewGreen = k(OldGreen - 127) + 127

NewBlue = k(OldBlue - 127) + 127

我们用下面的程序段可以实现对比度的调整。这里直接调用了第2章给出的ReadPixel和WritePixel方法。

程序3.4

Procedure GraphicContrast(Pic: TBitmap;Const tPix: TPixels;Value:Integer);

var RPos:Double;i,j:Integer;

NewR,newG,NewB:Integer;

OffSetValue:Single;

begin

RPos:=Value/100;

OffSetValue:=RPos*(-127)+127;

For i:=0 to Pic.Width-1 do begin

For j := 0 to Pic.Height-1 do Begin

NewR := Round(tPix[i,j].rgbtRed*RPos+OffSetValue);

NewG := Round(tPix[i,j].rgbtGreen*RPos+OffSetValue);

NewB := Round(tPix[i,j].rgbtBlue*RPos+OffSetValue);

If NewR>255 then

NewR := 255;

if NewG > 255 then

NewG:=255;

If NewB > 255 then

NewB:=255;

if NewR<0 then NewR := 0;

if NewG<0 then NewG := 0;

if NewB<0 then NewB := 0;

tPix[i,j].rgbtBlue := NewB;

tPix[i,j].rgbtGreen := NewG;

tPix[i,j].rgbtRed := NewR;

end;

WritePixel(pic,tPix);

end;

程序的运行结果如下图所示。


原图	对比度系数k = 1.5	对比度系数 k = -1

探究Delphi的图形处理之十一 -- 亮度的调整　

作者:何咏

　亮度的调整

我们知道RGB(255,255,255)表示白色，而RGB(0,0,0)表示黑色。由此，如果RGB分量的值越接近255，这个像素越“亮”，如果越接近0，那么像素越“暗”。所以，亮度调整的原理就是对原图像的每一个像素的RGB值都加上或减去一个常量即可。

下面的程序可以调整图像的亮度。

程序3.5

unit Brightness;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls, StdCtrls, ExtCtrls;

type

TPixels = Array of array of TRGBTriple;

TForm1 = class(TForm)

PaintBox1: TPaintBox;

Label1: TLabel;

scB: TTrackBar;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

procedure FormCreate(Sender: TObject);

procedure FormDestroy(Sender: TObject);

procedure PaintBox1Paint(Sender: TObject);

procedure scBChange(Sender: TObject);

private

Procedure BrightnessChange(Bit : TPixels; n : Integer);

public

{ Public declarations }

end;

procedure WritePixel(Pic: TBitmap; tPix: TPixels);

procedure ReadPixel(Pic: Tbitmap; var tPix: TPixels);

var

Form1: TForm1;

Bits : TBitmap;

PixA : TPixels;

Pix : TPixels;

implementation

{$R *.dfm}

procedure ReadPixel(Pic: Tbitmap; var tPix: TPixels);

Var PixPtr:PbyteArray;i,j,m:Integer;

begin

SetLength(tPix,Pic.Width,Pic.Height);

Pic.PixelFormat := pf24bit;

Pic.HandleType:=bmDIB;

For i :=0 to pic.Height-1 do begin

PixPtr:=Pic.ScanLine[i];

for j:= 0 to pic.Width-1 do begin

m := j*3;

tPix[j,i].rgbtBlue:=PixPtr[m];

tPix[j,i].rgbtGreen := PixPtr[m+1];

tPix[j,i].rgbtRed := PixPtr[m+2];

end;

procedure WritePixel(Pic: TBitmap; tPix: TPixels);

var PixPtr:PByteArray;i,j,m:Integer;

begin

pic.PixelFormat := pf24bit;

pic.HandleType:=bmDIB;

Pic.Height := High(tPix[0])+1;

Pic.Width:= High(tPix)+1;

For i :=0 to pic.Height-1 do begin

PixPtr:=Pic.ScanLine[i];

for j:= 0 to pic.Width-1 do begin

m := j*3;

PixPtr[M] := tPix[j,i].rgbtBlue;

PixPtr[m+1] := tPix[j,i].rgbtGreen;

PixPtr[m+2] := tPix[j,i].rgbtRed;

end;

procedure TForm1.BrightnessChange(Bit: TPixels; n: Integer);

var i ,j :Integer;

R,G,B:Integer;

begin

For i := 0 to Length(Bit)-1 do begin

for j := 0 to Length(Bit[0])-1 do begin

B:= Bit[i,j].rgbtBlue + n;

G := Bit[i,j].rgbtGreen + n;

R := Bit[i,j].rgbtRed + n;

If B > 255 then B := 255;

If B <0 then B := 0;

If G > 255 then G := 255;

If G <0 then G := 0;

If R > 255 then R := 255;

If R <0 then R := 0;

Bit[i,j].rgbtBlue := B;

Bit[i,j].rgbtGreen := G;

Bit[i,j].rgbtRed := R;

end;

procedure TForm1.FormCreate(Sender: TObject);

var i,j :Integer;

begin

Bits := TBitmap.Create;

Bits.LoadFromFile(‘Test.bmp‘);

ReadPixel(Bits,Pix);

SetLength(PixA,Bits.Width,Bits.Height);

For i := 0 to Bits.Width-1 do begin

For j := 0 to Bits.Height-1 do begin

PixA[i,j] := Pix[i,j];

end;

procedure TForm1.FormDestroy(Sender: TObject);

begin

Bits.Free;

end;

procedure TForm1.PaintBox1Paint(Sender: TObject);

begin

PaintBox1.Canvas.Draw(0,0,Bits);

end;

procedure TForm1.scBChange(Sender: TObject);

var i,j : Integer;

begin

Caption := IntToStr(scB.Position) + ‘%‘;

For i := 0 to Bits.Width-1 do begin

For j := 0 to Bits.Height-1 do begin

Pix[i,j] := PixA[i,j];

end;

BrightnessChange(Pix,scB.Position);

WritePixel(Bits,Pix);

PaintBox1.Canvas.Draw(0,0,Bits);

end;

end.

程序的运行结果如下。


亮度-50	原图	亮度+50

探究Delphi的图形处理之十二 -- 浮雕效果　

　浮雕效果

浮雕效果的原理是将图像的每一个像素的颜色值与该像素斜下方的像素值的差的绝对值加上一个常数。这个常数决定了浮雕效果的亮度。程序3.7给出了浮雕效果的源代码。

程序3.7

unit Emboss;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls, StdCtrls, ExtCtrls;

type

TPixels = Array of array of TRGBTriple;

TfrmMain = class(TForm)

PaintBox1: TPaintBox;

Label1: TLabel;

scS: TTrackBar;

procedure FormCreate(Sender: TObject);

procedure FormDestroy(Sender: TObject);

procedure scSChange(Sender: TObject);

procedure PaintBox1Paint(Sender: TObject);

procedure PaintBox1Click(Sender: TObject);

private

procedure Emboss(Bit: TPixels; n: Integer);

{ Private declarations }

public

{ Public declarations }

end;

procedure WritePixel(Pic: TBitmap; tPix: TPixels);

procedure ReadPixel(Pic: Tbitmap; var tPix: TPixels);

var

frmMain: TfrmMain;

Bits : TBitmap;

PixA : TPixels;

Pix : TPixels;

implementation

{$R *.dfm}

procedure ReadPixel(Pic: Tbitmap; var tPix: TPixels);

Var PixPtr:PbyteArray;i,j,m:Integer;

begin

SetLength(tPix,Pic.Width,Pic.Height);

Pic.PixelFormat := pf24bit;

Pic.HandleType:=bmDIB;

For i :=0 to pic.Height-1 do begin

PixPtr:=Pic.ScanLine[i];

for j:= 0 to pic.Width-1 do begin

m := j*3;

tPix[j,i].rgbtBlue:=PixPtr[m];

tPix[j,i].rgbtGreen := PixPtr[m+1];

tPix[j,i].rgbtRed := PixPtr[m+2];

end;

procedure WritePixel(Pic: TBitmap; tPix: TPixels);

var PixPtr:PByteArray;i,j,m:Integer;

begin

pic.PixelFormat := pf24bit;

pic.HandleType:=bmDIB;

Pic.Height := High(tPix[0])+1;

Pic.Width:= High(tPix)+1;

For i :=0 to pic.Height-1 do begin

PixPtr:=Pic.ScanLine[i];

for j:= 0 to pic.Width-1 do begin

m := j*3;

PixPtr[M] := tPix[j,i].rgbtBlue;

PixPtr[m+1] := tPix[j,i].rgbtGreen;

PixPtr[m+2] := tPix[j,i].rgbtRed;

end;

procedure TFrmMain.Emboss(Bit: TPixels; n: Integer);

var i ,j :Integer;

R,G,B:Integer;

begin

For i := 0 to Length(Bit)-2 do begin

for j := 0 to Length(Bit[0])-2 do begin

B:= ABS(Bit[i,j].rgbtBlue-Bit[i+1,j+1].rgbtBlue) + n; // 把当前像素值的

G := ABS(Bit[i,j].rgbtGreen-Bit[i+1,j+1].rgbtGreen) + n; // RGB分量设置为

R := ABS(Bit[i,j].rgbtRed-Bit[i+1,j+1].rgbtRed) + n; // 当前像素值与下一个像素值的差的绝对值+系数n。

{如果像素值超过范围，设置像素值为0或255}

If B > 255 then B := 255;

If B <0 then B := 0;

If G > 255 then G := 255;

If G <0 then G := 0;

If R > 255 then R := 255;

If R <0 then R := 0;

Bit[i,j].rgbtBlue := B;

Bit[i,j].rgbtGreen := G;

Bit[i,j].rgbtRed := R;

end;

procedure TfrmMain.FormCreate(Sender: TObject);

var i,j:Integer;

begin

Bits := TBitmap.Create;

Bits.LoadFromFile(‘Test.bmp‘);

ReadPixel(Bits,Pix);

SetLength(PixA,Bits.Width,Bits.Height);

For i := 0 to Bits.Width-1 do begin

For j := 0 to Bits.Height-1 do begin

PixA[i,j] := Pix[i,j];

end;

procedure TfrmMain.FormDestroy(Sender: TObject);

begin

Bits.Free;

end;

procedure TfrmMain.scSChange(Sender: TObject);

var i,j:Integer;

begin

{我们在ScrollBar的Change事件中处理浮雕效果}

Caption := IntToStr(scS.Position);

{先将像素值复原}

For i := 0 to Bits.Width-1 do begin

For j := 0 to Bits.Height-1 do begin

Pix[i,j] := PixA[i,j];

end;

Emboss(Pix,scS.Position);//调用浮雕效果处理过程。

WritePixel(Bits,Pix);

PaintBox1.Canvas.Draw(0,0,Bits); //显示结果。

end;

procedure TfrmMain.PaintBox1Paint(Sender: TObject);

begin

PaintBox1.Canvas.Draw(0,0,Bits);

end;

procedure TfrmMain.PaintBox1Click(Sender: TObject);

begin

WritePixel(Bits,PixA);

PaintBox1.Canvas.Draw(0,0,Bits);

end;

end.

下图是程序的运行结果。


原图	浮雕亮度 = 127

探究Delphi的图形处理之十三 -- 马赛克效果　

　马赛克效果

马赛克效果的原理是，把图象分割成n*n的小块，把每一个区域中的所有像素值变为这个区域像素值的平均值即可。下面的程序段可以实现这种效果。这里调用了第二章给出的ReadPixel和WritePixel方法。

程序3.7

Procedure Mosic(const Bit: TBitmap;var n: Integer);

var R,G,B:Integer;

i,j,k,l : Integer;

Pix : TPixels;

nDiv : Integer;

nDivRs : Integer;

jP,jM,ip,im:Integer;

OpCount : Integer;

begin

ReadPixel(Bit,Pix);

if n mod 2 = 0 then n := n +1;

nDiv := n * n;

nDivRs := n;

I := 0 ;

While I<= Bit.Width-1 do begin

ip:= i + nDivRs;

im := i ;

if im < 0 then im := 0;

if ip > Bit.Width -1 then ip := Bit.Width-1;

j := 0;

While j <= Bit.Height-1 do begin

R:=0;

G:=0;

B:=0;

jP := j + nDivRs;

jM := j - nDivRs;

if Jp > bit.Height-1 then

jp := Bit.Height-1;

if jm <0 then jm :=0;

OpCount := (ip - im+1) *(jp-jm+1);

For k := im to Ip do begin

For l := jm to jp do

begin

R := R + Pix[k,l].rgbtRed;

G := G + Pix[k,l].rgbtGreen;

B := B + Pix[k,l].rgbtBlue;

end;

For k := im to Ip do begin

For l := jm to jp do

begin

Pix[k,l].rgbtBlue := B div opCount;

Pix[k,l].rgbtGreen := G div opCount;

Pix[k,l].rgbtRed := R div opCount;

end;

j := j + n;

end;

i := i + n;

end;

WritePixel(Bit,Pix);

end;

以下是程序的运行结果。


原图	马赛克大小 = 25

你可能感兴趣的:(Delphi,GDI+)

WPF绘图(基础图形：直线、矩形和椭圆) 未来无限 C#WPF程序设计 wpf 绘图直线矩形椭圆
目录一、概述二、基本图形绘制2.1直线2.2矩形2.3椭圆一、概述与传统的.NET开发使用GDI+进行绘图不同，WPF拥有自己的一套图形API，绘图为矢量图。绘图可以在任何一种布局控件中完成，wpf会根据容器计算相应坐标。最常用的是Canvas和Grid。基本图形包括以下几个，都是Shaper类的派生类。1、Line，直线段，可以设置Stroke2、Rectangle，有Stroke也有Fill3
Delphi保存字符串到文本文件龙门吹雪
Delphi保存字符串到文本文件，若指定文件不存在，则自动创建；保存字符串时采用累加形式。proceduremSaveToFile(constFileName:string;sts:string);varMyTextFile:TextFile;//定义变量MyTextFile为文本文件类型begin//(*步骤1，将文件变量与外部文件联系。相当于为外部文件找了个“替身”*)AssignFile(M
C# GDI+发生一般性错误（A generic error occurred in GDI+)）黄同学real C#c#microsoft 服务器
C#GDI+发生一般性错误（AgenericerroroccurredinGDI+)）C#GDI+发生一般性错误（AgenericerroroccurredinGDI+)）解决思路：因为.netGDI+是对底层的封装。所以可以尝试用Marshal.GetLastWin32Error();函数获得底层错误代码。try{image.Save(filename,System.Drawing.Imagin
DOK系统重写 yujunl 生活感悟
经验的积累，往往有意想不到灵感，一直想重写DOK的系统，工作量的庞大，有心无力！二年之后，对系统的熟知，对DELPHI的熟知，一个晚上一个无意的操作，竟然解决了问题。达到我的理想。很是骄傲了一段时间，多少人多少年，都没有解决的问题，在我手里解决了！我是幸运的而已！并非比他们牛。但绝对比他们努力！
Delphi基本图像处理代码 comeoffbest Java
Delphi基本图像处理代码//浮雕procedureEmboss(SrcBmp,DestBmp:TBitmap;AzimuthChange:integer);overload;vari,j,Gray,Azimuthvalue,R,G,B:integer;SrcRGB,SrcRGB1,SrcRGB2,DestRGB:pRGBTriple;beginfori:=0toSrcBmp.Height-1d
房产怎么利用Delphi发送销售短信乐讯通云通信 php 开发语言 java json
现在的房价价格并不是很稳定，因此在房价下降时，很多人都想出手买房。而开发商也想趁这个机会好好宣传自己的楼盘，所以，群发短信便成为了一个很好宣传手段，成本低，覆盖率高的特性，让群发短信在开发商之间广受好评。针对一些客户来说，通过群发短信可以实时知道自己倾向的楼盘的价格，在好的时机出手。支持免费对接试用：乐讯通PaaS平台找好用的短信平台,选择乐讯通,短信群发|短信平台|群发短信软件|群发短信平台|乐
C++系列——Direct2D进行图片处理 HoKis C++c++Direct2D 图像处理
C++系列——Direct2D图片处理01前言图片处理工具多如牛毛了，自不必说。主要是应对需要批量处理的场景，所以不如手搓。已经试过直接用C#封装好的库System.Drawing，挺好的，就是过了一段时间感觉这速度有点受不了。于是转用C++，结合GDI+又手搓了一个。因为部分代码与C#版本类似（C#底层用的还是GDI），很快也搞好了。嗯~~这下舒服了。随着效率的提高，我以为可以快乐的摸鱼了。省下
VBto Converter代码转换工具最新V2.89版中游鱼原创 VB 补丁 .net microsoft vb6 代码转换
VBtoConverter代码转换工具最新V2.89版VBtoConverter是来自国外的一款简单实用，功能强大的VB6源代码转换工具。作为一款实用的编程工具软件，可以将MicrosoftVisualBasic6.0project（包括源代码）转换成MSVC++MFC,VC++.NET(CLR),VBNET,C#,J#,BorlandC++Builder,BorlandDelphi源代码文件。可
【WPF】WPF学习之面试常问问题是五月吖 WPF wpf 学习
一、WPF和Winform的区别：WPF:1、Wpf基于xaml语言来定义用户界面，可以实现界面和逻辑分离。2、Wpf基于DirectX（多媒体编程接口）开发，其作用是可以进行图形渲染，多媒体、动画开发。3、数据绑定模式强大，支持MVVM（model-view-viewModel）模式.Winform:1、Winform基于windows操作系统的GDI+（图形设备接口），其主要负责系统与绘图程序
如何用C#写一个实现像股票行情的波动曲线图 senbar .NET王国 gis开发 c#float gdi+数据库 c
有一个数据库A（价格，日期）该表每天都会向里面新增数据，如何用C#实现用横坐标表示时间，纵坐标表示价格的曲线图GDI+看看我大一的时候的课程设计诸如这样的代码就可以啦：for(intcounter=0;counter<=24;counter++){Penmypen=newPen(Color.Green,3);GraphicsmyGraphics=this.tabPage3.CreateGraphi
delphi fireDAC+SQLite 在多线程下笔记蝈蝈(GuoGuo) SQLite Delphi sqlite 笔记 jvm
sqlite1篇文章0订阅订阅专栏SQLite官方描述是支持多线程的，参考：UsingSQLiteInMulti-ThreadedApplicationsFIREDAC默认的threadsafe为2，要求是为每个线程单独建立一个连接，实际测试，应该是有且只能有一个连接。特别是主线程需要注意。在有DBGRID的情况下，多个连接会导致databaseislocked的错误。关于多线程的配置，官方文档描
[ v1.3 基本搞定 ] Delphi UDP + TCP 通信问题 holen DELPHI DELPHI
主体思路：先由管理机发UDP命令到客户端，客户端在获取主机IP后，再建立TCP连接，这样就不用手工去客户端设主机IP了，而且主机IP可随意变化。管理机（TCP服务端/UDP客户端）源码：unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,ComCtrls,
GDI+学习及代码总结之------画线、区域填充、写字 Legend500 Windows 编程 gdi
《精通GDI编程》里的代码，在学习过程中对它加以总结，以防以后用到，所有代码都是在MFC单文档中实现的，写在View::OnDraw(CDC*/*pDC*/)中画线/边框（Pen）1、画单线——-DrawLine[cpp]viewplaincopyprint?Penpen(Color(255,0,0,0),3);PointFL_PTStart(0,0);PointFL_PTEnd(100,10);
【GDI+】C++截长图 beibaoke910 windows客户端 c++windows 开发语言
一、准备1、屏幕截图【GDI+】C++屏幕截图使用BitBlt来进行截图2、强制刷新c++窗口立即刷新重绘截图的时候，有可能由于界面没有及时刷新，导致截到的内容，这时就需要强制立刻刷新重绘InvalidateRect(m_hWnd,NULL,TRUE);UpdateWindow(m_hWnd);二、截长图1、截全屏【不考虑表头、顶部、底部等因素】需求：界面只有一个List控件m_pList,放着数
java delphi 三层_DELPHI三层架构设计方案门田木 java delphi 三层
随便说说最近项目中的三层架构吧。讲点实际的东西。我最讨厌空讲道理。网上讲道理的太多了，不喜欢举例子。大多数文章中都或多或少的讲到了三层架构。表示层，业务层，数据层。又把业务层再细分，分为外观服务层，主业务服务，及数据库库服务层。今天主要讨论一下业务层吧。举个最简单的例子。客户端获取数据。业务层要与表示层尽量解藕，我的方法是：首先我们在中间层TLB_中定义一个接口IBusinessService,定
delphi 计算文件与当前时间差(天小时分钟秒) 强哥83 Delphi delphi integer
procedureTForm1.FormCreate(Sender:TObject);//窗体初始化variFileHandle:Integer;FileTime:TDateTime;Days:Integer;Hours:Integer;Minutes:Integer;Seconds:Integer;beginDataPath:=ExtractFilePath(paramstr(0))+'data
Delphi v11 安卓权限申请 pcplayer android Delphi
问题Delphi10.4的安卓权限申请代码，在Delphi11下面编译无法通过。原因原因是里面有几个变量类型的定义有所不同。procedureTDmBLE.RequestPermissionsResult(Sender:TObject;constAPermissions:TArray;constAGrantResults:TArray);上述代码是Delphi10.4的，里面有两个类型需要更改：1
C语言开发windows桌面程序,开发 windows 桌面软件，现在主流用什么技术？ weixin_39963465
桌面软件还是得win32,工具只有两个选择vc和delphi,不建议用.net,存在部署问题.还有大佬说桌面还是老老实实C#吧，看需求选择WPF或者Winforms或者干脆激进一点，直接上win10的UAP？另外我每天默念100遍，拿Web应付Windows的软件都去死吧，死干净点。这是作为用户的想法。拿web应付的多数吃内存是nativeapp的几倍甚至几十倍，对高dpi支持和新技术支持也差，再
linux的make和makefile 猪蹄手 linux 运维服务器
一.什么是make和makefilemakefile作用：一个工程中的源文件不计数，其按类型、功能、模块分别放在若干个目录中，makefile定义了一系列的规则来指定，哪些文件需要先编译，哪些文件需要后编译，哪些文件需要重新编译，甚至于进行更复杂的功能操作make作用:make是一个命令工具，是一个解释makefile中指令的命令工具，一般来说，大多数的IDE都有这个命令，比如：Delphi的ma
Delphi Web前端开发教程（9）：基于TMS WEB Core框架 xyzhan Delphi 前端 Delphi Web前端开发教程 TMS WEB Core WEB开发
3、RESTServers服务端(后端)框架REST服务端特点：-为远程资源提供一个RESTAPI接口。也可以为其他网络内容提供服务；-包括在DelphiEnterprise&Architect企业版和架构师版中的RAD服务器、DataSnap、WebBroker；-开源框架：DelphiMVCFramework、MARS-Curiosity、SynopsemORMotORM/SOA/MVCFra
【Delphi 基础知识 29】ListBox控件的详细使用南通DXZ 100天精通Delphi 开发语言
在Delphi中，TListBox是一个常用的控件，用于显示项目列表。以下是TListBox的一些常见用法：添加项目：使用ListBox.Items.Add方法可以向列表框中添加项目。例如：ListBox1.Items.Add('Item1');ListBox1.Items.Add('Item2');删除项目：使用ListBox.Items.Delete方法可以删除指定位置的项目。例如：ListB
(delphi11最新学习资料) Object Pascal 学习笔记---第5章第1节（动态数组） langfengyl Object Pascal Handbook 学习笔记 delphi delphi11 Object Pascal
5.1.4动态数组在传统的Pascal中，数组的大小是固定的，并且在声明数据类型时限制了元素的数量。然而，ObjectPascal支持动态数组的直接和本地实现。注解：“直接实现动态数组”与使用指针和动态内存分配来获得类似效果的方法截然不同…后者代码非常复杂且容易出错。顺便说一句，动态数组是大多数现代编程语言中唯一的一种结构形式。动态数组是动态分配的，并进行引用计数（使得参数传递更快，因为只传递引用
(delphi11最新学习资料) Object Pascal 学习笔记---第5章第1节（静态数组） langfengyl Object Pascal Handbook 学习笔记 delphi delphi11 Object Pascal
第5章数组与记录我在第二章介绍数据类型时，提到了ObjectPascal中既有内置数据类型又有自定义数据类型。自定义数据类型的一个简单示例是在该章节中介绍的枚举类型。自定义类型的真正强大体现在更高级的机制中，比如数组、记录和类。在本章中，我将讲述前两个机制，基本上它们的存在可以追溯到Pascal的早期定义，但经过多年的改变（现在变得更加强大），它们与早期同名的定义类型几乎没有相似之处。在本章末尾，
(delphi11最新学习资料) Object Pascal 学习笔记---第5章第1节（开放式数组形参） langfengyl Object Pascal Handbook 学习笔记 delphi delphi11 Object Pascal
5.1.5开放式数组形参对于数组的使用有一个非常特殊的场景，即用于向函数传递一个灵活的参数列表。除了直接传递数组外，本节和下一节还将解释两种特殊的语法约定。在上一段代码中的Format函数就是一个使用了这种约定的函数，它的第二个参数接受一个就地定义的数组值。与C语言（以及其他一些基于C语法的语言）不同，在传统的Pascal语言中，函数或过程总是有固定数量的参数。然而，在ObjectPascal中，
如何在C# Windows Forms应用程序中实现控件之间的连接线金士顿 chatGPT 高端局问答c#c##chatGPT winform
帮我实现绘图工具多个控件连接线，请用c#代码实现实现绘图工具中多个控件之间的连接线功能，可以通过以下几个步骤来进行：定义连接线的数据模型：首先需要定义一个模型来表示连接线，这个模型应该包含起点和终点的坐标。绘制连接线：使用GDI+绘图功能，在控件的Paint事件中根据连接线的数据模型来绘制线条。更新连接线的坐标：当控件移动时，需要更新连接线的起点和终点坐标，并触发重绘。以下是一个简化的示例代码，展
delphi cef3 获取浏览器成员变量过路客甲乙 delphi c++
delphicef3获取成员变量。新版本可以运行老版本无法运行。报错E2009Incompatibletypes:'methodpointerandregularprocedure'解决办法：GlobalCEFApp.OnProcessMessageReceived：=RenderProcessHandler_OnProcessMessageReceivedEvent;把全局方法修改为类方法Glo
(delphi11最新学习资料) Object Pascal 学习笔记---第4章第3节（内联函数） langfengyl Object Pascal Handbook 学习笔记 delphi Object Pascal delphi11
4.3内联在ObjectPascal中，内联函数和方法是一种低级语言特性，可以带来显著的优化效果。一般来说，当你调用一个方法时，编译器会生成一些代码，让你的程序跳转到一个新的执行点。这意味着要设置堆栈框架并进行一些操作，可能需要十几条机器指令。不过，你执行的方法可能非常简短，甚至可能是一个访问方法，只是设置或返回某个私有字段。在这种情况下，将实际代码复制到调用位置，避免堆栈帧设置和其他一切操作，是
(delphi11最新学习资料) Object Pascal 学习笔记---第4章第2.6节（默认参数） langfengyl 学习笔记 delphi Object Pascal delphi11
4.2.6默认参数与重载相关的另一个特性是可以为函数的某些参数提供默认值，这样就可以在调用函数时可使用或不使用这些参数。如果调用中缺少参数，函数将使用默认值。让我举一个例子（仍然是OverloadTest示例的一部分）。我们可以定义以下Show调用的封装，提供两个默认参数：procedureNewMessage(Msg:string;Caption:string='Message';Separat
(delphi11最新学习资料) Object Pascal 学习笔记---第4章第4节（函数的高级特性） langfengyl Object Pascal Handbook 学习笔记 delphi Object Pascal delphi11
4.4函数的高级特性到目前为止，我已经介绍了与函数相关的核心功能，但还有一些高级功能值得探索。不过，如果你确实是软件开发方面的新手，你可能会想暂时跳过本章的其余部分，转到下一章。4.4.1ObjectPascal的调用约定每当你的代码需要调用函数时，双方需要就参数从调用者传递给被调用者的实际方式达成一致，这就是所谓的调用约定。一般来说，函数调用是通过堆栈内存区域传递参数（并期望返回值）。不过，参数
C#测量字体大小的问题 tang0827 绘图 GraphicsPath DrawStr
最近写个程序很郁闷，用Gdi+的MeasureString测量的宽度好高度都要比DrawString绘制的高。所以索性采用GraphicsPath来进行绘图，后面测试的结果的是满意的，但是发现字体又偏小，终于找到了解决方案：如下privatevoidForm1_Paint(objectsender,PaintEventArgse){Graphicsgraphics=e.Graphics;graph
对于规范和实现，你会混淆吗？ yangshangchuan HotSpot
昨晚和朋友聊天，喝了点咖啡，由于我经常喝茶，很长时间没喝咖啡了，所以失眠了，于是起床读JVM规范，读完后在朋友圈发了一条信息： JVM Run-Time Data Areas：The Java Virtual Machine defines various run-time data areas that are used during execution of a program. So
android 网络百合不是茶网络
android的网络编程和java的一样没什么好分析的都是一些死的照着写就可以了,所以记录下来方便查找 , 服务器使用的是TomCat 服务器代码; servlet的使用需要在xml中注册 package servlet; import java.io.IOException; import java.util.Arr
[读书笔记]读法拉第传 comsci 读书笔记
1831年的时候,一年可以赚到1000英镑的人..应该很少的... 要成为一个科学家,没有足够的资金支持,很多实验都无法完成但是当钱赚够了以后....就不能够一直在商业和市场中徘徊......
随机数的产生沐刃青蛟随机数
c++中阐述随机数的方法有两种：一是产生假随机数（不管操作多少次，所产生的数都不会改变）这类随机数是使用了默认的种子值产生的，所以每次都是一样的。 //默认种子 for (int i = 0; i < 5; i++) { cout<<
PHP检测函数所在的文件名 IT独行者 PHP 函数
很简单的功能，用到PHP中的反射机制，具体使用的是ReflectionFunction类，可以获取指定函数所在PHP脚本中的具体位置。创建引用脚本。代码： [php] view plain copy // Filename: functions.php <?php&nbs
银行各系统功能简介文强chu 金融
银行各系统功能简介　业务系统核心业务系统业务功能包括：总账管理、卡系统管理、客户信息管理、额度控管、存款、贷款、资金业务、国际结算、支付结算、对外接口等清分清算系统以清算日期为准，将账务类交易、非账务类交易的手续费、代理费、网络服务费等相关费用，按费用类型计算应收、应付金额，经过清算人员确认后上送核心系统完成结算的过程国际结算系
Python学习1(pip django 安装以及第一个project) 小桔子 python django pip
最近开始学习python,要安装个pip的工具。听说这个工具很强大，安装了它，在安装第三方工具的话so easy!然后也下载了，按照别人给的教程开始安装，奶奶的怎么也安装不上！第一步：官方下载pip-1.5.6.tar.gz, https://pypi.python.org/pypi/pip easy! 第二部：解压这个压缩文件，会看到一个setup.p
php 数组 aichenglong PHP 排序数组循环多维数组
1 php中的创建数组 $product = array('tires','oil','spark');//array()实际上是语言结构而不是函数 2 如果需要创建一个升序的排列的数字保存在一个数组中，可以使用range()函数来自动创建数组 $numbers=range(1,10)//1 2 3 4 5 6 7 8 9 10 $numbers=range(1,10,
安装python2.7 AILIKES python
安装python2.7 1、下载可从 http://www.python.org/进行下载#wget https://www.python.org/ftp/python/2.7.10/Python-2.7.10.tgz 2、复制解压 #mkdir -p /opt/usr/python #cp /opt/soft/Python-2
java异常的处理探讨百合不是茶 JAVA异常
//java异常 /* 1，了解java 中的异常处理机制，有三种操作 a,声明异常 b,抛出异常 c,捕获异常 2，学会使用try-catch-finally来处理异常 3，学会如何声明异常和抛出异常 4，学会创建自己的异常 */ //2，学会使用try-catch-finally来处理异常
getElementsByName实例 bijian1013 element
实例1： <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/x
探索JUnit4扩展：Runner bijian1013 java 单元测试 JUnit
参加敏捷培训时，教练提到Junit4的Runner和Rule，于是特上网查一下，发现很多都讲的太理论，或者是举的例子实在是太牵强。多搜索了几下，搜索到两篇我觉得写的非常好的文章。文章地址：http://www.blogjava.net/jiangshachina/archive/20
[MongoDB学习笔记二]MongoDB副本集 bit1129 mongodb
1. 副本集的特性 1)一台主服务器(Primary),多台从服务器(Secondary) 2)Primary挂了之后，从服务器自动完成从它们之中选举一台服务器作为主服务器，继续工作，这就解决了单点故障，因此，在这种情况下，MongoDB集群能够继续工作 3)挂了的主服务器恢复到集群中只能以Secondary服务器的角色加入进来 2
【Spark八十一】Hive in the spark assembly bit1129 assembly
Spark SQL supports most commonly used features of HiveQL. However, different HiveQL statements are executed in different manners: 1. DDL statements (e.g. CREATE TABLE, DROP TABLE, etc.)
Nginx问题定位之监控进程异常退出 ronin47
nginx在运行过程中是否稳定，是否有异常退出过？这里总结几项平时会用到的小技巧。 1. 在error.log中查看是否有signal项，如果有，看看signal是多少。比如，这是一个异常退出的情况： $grep signal error.log 2012/12/24 16:39:56 [alert] 13661#0: worker process 13666 exited on s
No grammar constraints (DTD or XML schema).....两种解决方法 byalias xml
方法一：常用方法关闭XML验证工具栏：windows => preferences => xml => xml files => validation => Indicate when no grammar is specified:选择Ignore即可。方法二：（个人推荐）添加内容如下 <?xml version=
Netty源码学习-DefaultChannelPipeline bylijinnan netty
package com.ljn.channel; /** * ChannelPipeline采用的是Intercepting Filter 模式 * 但由于用到两个双向链表和内部类，这个模式看起来不是那么明显，需要仔细查看调用过程才发现 * * 下面对ChannelPipeline作一个模拟，只模拟关键代码： */ public class Pipeline {
MYSQL数据库常用备份及恢复语句 chicony mysql
备份MySQL数据库的命令，可以加选不同的参数选项来实现不同格式的要求。 mysqldump -h主机 -u用户名 -p密码数据库名 > 文件备份MySQL数据库为带删除表的格式，能够让该备份覆盖已有数据库而不需要手动删除原有数据库。 mysqldump -–add-drop-table -uusername -ppassword databasename > ba
小白谈谈云计算--基于Google三大论文 CrazyMizzz Google 云计算 GFS
之前在没有接触到云计算之前，只是对云计算有一点点模糊的概念，觉得这是一个很高大上的东西，似乎离我们大一的还很远。后来有机会上了一节云计算的普及课程吧，并且在之前的一周里拜读了谷歌三大论文。不敢说理解，至少囫囵吞枣啃下了一大堆看不明白的理论。现在就简单聊聊我对于云计算的了解。我先说说GFS &n
hadoop 平衡空间设置方法 daizj hadoop balancer
在hdfs-site.xml中增加设置balance的带宽，默认只有1M： <property> <name>dfs.balance.bandwidthPerSec</name> <value>10485760</value> <description&g
Eclipse程序员要掌握的常用快捷键 dcj3sjt126com 编程
判断一个人的编程水平，就看他用键盘多，还是鼠标多。用键盘一是为了输入代码（当然了，也包括注释），再有就是熟练使用快捷键。曾有人在豆瓣评《卓有成效的程序员》：“人有多大懒，才有多大闲”。之前我整理了一个程序员图书列表，目的也就是通过读书，让程序员变懒。程序员作为特殊的群体，有的人可以这么懒，懒到事情都交给机器去做，而有的人又可以那么勤奋，每天都孜孜不倦得
Android学习之路 dcj3sjt126com Android学习
转自：http://blog.csdn.net/ryantang03/article/details/6901459 以前有J2EE基础，接触JAVA也有两三年的时间了，上手Android并不困难，思维上稍微转变一下就可以很快适应。以前做的都是WEB项目，现今体验移动终端项目，让我越来越觉得移动互联网应用是未来的主宰。下面说说我学习Android的感受，我学Android首先是看MARS的视
java 遍历Map的四种方法 eksliang java HashMap java 遍历Map的四种方法
转载请出自出处： http://eksliang.iteye.com/blog/2059996 package com.ickes; import java.util.HashMap; import java.util.Iterator; import java.util.Map; import java.util.Map.Entry; /** * 遍历Map的四种方式
【精典】数据库相关相关 gengzg 数据库
package C3P0; import java.sql.Connection; import java.sql.SQLException; import java.beans.PropertyVetoException; import com.mchange.v2.c3p0.ComboPooledDataSource; public class DBPool{
自动补全 huyana_town 自动补全
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml&quo
jquery在线预览PDF文件，打开PDF文件天梯梦 jquery
最主要的是使用到了一个jquery的插件jquery.media.js，使用这个插件就很容易实现了。核心代码 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.
ViewPager刷新单个页面的方法 lovelease android viewpager tag 刷新
使用ViewPager做滑动切换图片的效果时，如果图片是从网络下载的，那么再子线程中下载完图片时我们会使用handler通知UI线程，然后UI线程就可以调用mViewPager.getAdapter().notifyDataSetChanged()进行页面的刷新，但是viewpager不同于listview，你会发现单纯的调用notifyDataSetChanged()并不能刷新页面
利用按位取反（~）从复合枚举值里清除枚举值草料场 enum
以 C# 中的 System.Drawing.FontStyle 为例。如果需要同时有多种效果，如：“粗体”和“下划线”的效果，可以用按位或（|） FontStyle style = FontStyle.Bold | FontStyle.Underline; 如果需要去除 style 里的某一种效果，
Linux系统新手学习的11点建议刘星宇编程工作 linux 脚本
　　随着Linux应用的扩展许多朋友开始接触Linux，根据学习Windwos的经验往往有一些茫然的感觉：不知从何处开始学起。这里介绍学习Linux的一些建议。　　一、从基础开始：常常有些朋友在Linux论坛问一些问题，不过，其中大多数的问题都是很基础的。例如：为什么我使用一个命令的时候，系统告诉我找不到该目录，我要如何限制使用者的权限等问题，这些问题其实都不是很难的，只要了解了 Linu
hibernate dao层应用之HibernateDaoSupport二次封装 wangzhezichuan DAO Hibernate
/** * 方法描述:sql语句查询返回List<Class> * 方法备注: Class 只能是自定义类 * @param calzz * @param sql * @return * 创建人：王川 * 创建时间：Jul