用DELPHI 设 计 屏 幕 保 护 程 序

　　一、TCanvas与TBitMap对象、JPEG对象：

　　DELPHI的TCanvas封装了大部分WINDOWS对图形的操作，SCR运行时各种图像千变万化、图形变幻无不是TCanvas的“杰作”。TBitMap对象有一个LoadFromFile()方法，能从BMP图像文件取得位图。一般情况下，设计SCR要创建至少一个TBitMap对象，由于窗体和TBitMap对象都有Canvas属性，可利用TCanvas中的各种函数设计图像。设计一个有各种图像变化效果的SCR常用到以下函数：

　　1、CopyRect方法：从其原型CopyRect(Dest:TRect; Canvas:TCanvas;Source:TRect)可看出，它将源画布某一矩形区域的图像复制到另一个画布的矩形区域。由于是内存的成块复制，因此具有很高的执行效率。在Timer组件的OnTimer 事件程序中灵活使用该函数，可以设计出各种美观演示效果：如百叶窗、推拉、马赛克、随机线、反像等等。将以下代码加入到OnTimer事件程序，可演示各种图像效果，这里仅举出两种效果，读者可参考有关资料设计更多更漂亮的演示效果。

......
casePlayModeof
0:begin//从左向右移动(设x初值为Screen.Width)
x:=x-10;
SCRSaverFrom.CopyRect(Rect
(x,0,x 10,Screen.Height),Bit.Canvas,
Rect(x,0,x 10,Screen.Height));
ifx=0thenChangePictureAndPlayMode;//改变图像及演示模式
end;
1:begin//马赛克
fori:=0toScreen.Width*Screen.Heightdiv10do
begin
j:=Random(Screen.Widthdiv4)*4;
k:=Random(Screen.Heightdiv4)*4;
SCRSaverFrom.CopyRect(Rect(j,k,j 4,k 4),Bit.Canvas,
Rect(j,k,j 4,k 4));
end;
SCRSaverFrom.CopyRect(Rect
(0,0,Screen.Width,Screen.Height),Bit.Canvas,
Rect(0,0,Screen.Width,Screen.Height));
ChangePictureAndPlayMode;//改变图像   菔灸Ｊ?
end;
2:......
......
end;

　　2、StretchDraw方法：一般说来，使用CopyRect方法要求源矩形与目的矩形应相等，如果两者尺寸相差太大时，色彩可能失真。使用StretchDraw 能避免这个问题，其原型为：StretchDraw(constRect:TRect;Graphic:TGraphic)。它可在画布指定的矩形区域内完整地“画”出一个图像，如果源图象区域与目的区域尺寸不一致，会自动Stretch（拉伸），能有效的避免色彩失真。但此函数只能“画”出整个图像，如果只需“画”出一部分图像则应配合CopyRect()使用，先用StretchDraw()使整幅位图“变形”输出到一个画布，然后再用CopyRect()函数将所需部分“画出”。

　　3、TextOut方法：在指定的位置输出一串文字。在Canvas 中还有很多函数可绘制图形，也能用于SCR的设计，这里就不加介绍。

　　4、支持JPEG图像。由于JPEG图像格式具有很好的压缩性能，是最常用的图像格式之一。DELPHI3/4中新加入了对JPEG图像的支持，JpegImage 是TGraphic的派生类，它的LoadFromFile方法可从JPEG文件取出一幅图像，JpegImage没有Canvas属性，不能用CopyRect()方法,但其它画布可用StretchDraw()方法显示出一个JPEG 图像，就将JPEG图像转换成位图。请看下面例子，其中Bit为全局的TBitMap对象。注意：使用JpegImage 应在USES中加入JPEG单元。

procedureLoadBMPFromJPEG(JPEGFileName:String);
//从JPEG文件中取图像
varJpegImage1:TJpegImage;
begin
JpegImage1:=TJpegImage.Create;
JpegImage1.LoadFromFile(JPEGFileName);
Bit.Width:=JpegImage1.Width;
//使位图与JPEG图像尺寸相等
Bit.Height:=JpegImage1.Height;
Bit.Canvas.StretchDraw(Rect
(0,0,Bit.Width,Bit.Height),JpegImage1);
JpegImage1.Free;
end;

　　二、MediaPlayer和Timer组件：

　　MediaPlayer组件封装了MCI中绝大部分的功能，利用它很容易播放WAVE和MIDI音乐，为SCR添加美妙的背景音乐。有关代码如下：

ifMediaPlayer1.Mode$#@60;$#@62;mpPLayingthen
//音乐播放完后，更换音乐
begin
inc(i);
MediaPlayer1.FileName:=IntToStr(i) .WAV;
//逐一播放1.wav,2.wav...
MediaPlayer1.Open;
MediaPlayer1.Play;
end;

　　Timer组件是一个定时器，它的Interval属性指定定时器的间隔时间，每隔指定的时间就会执行一次OnTimer事件，SCR的OnTimer事件内要完成演示图像，更换图像，检查音乐是否播放完毕，更换音乐等各项工作。因此，Timer是设计SCR程序必不可少的组件。

　　三、设置SCR的窗体：

　　SCR的窗体与一般程序的窗体没有太大的区别。设计时只需注意到以下几点：

　　1、设置窗体属性：WindwoState属性一般设为wsMaximized，使窗体覆盖整个屏幕；BorderStyle属性设为bsNone，使窗体无边框、标题；FormStyle属性设为fsStayOnTop，使窗体总是保持在屏幕最上面。

　　2、防止SCR重复运行：为防止程序重复运行，在WINS95/98 可用API函数FindWindow查找已运行的窗体类型，API函数原型：HWNDFindWindow(LPCTSTR lpClassName,LPCTSTRlpWindowName)。以下演示SCR是如何避免重复运行的。打开Project，在USES单元中加入WinTypes和SysUtils单元。

programProject1;
uses
Forms,WinTypes,SysUtils,//后两者为新加入单元
Unit1inUnit1.pas{MyScreenSaverForm};
{$R*.RES}
varFindWindwsHandle:array[0..255]ofChar;//存放窗体名
para1:String;
......
StrPCopy(FindWindwsHandle,TMyScreenSaverForm);
//TMyScreenSaverForm是这个SCR的窗体名。
ifFindWindow(FindWindwsHandle,Nil)=0//寻找同一窗口类型
then......//没有同一窗体重复运行
else......//发现有同一窗体重复运行
......

			   
			   

                       标签：
                   
                   
版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com

特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有