编程技巧收录大全---- Delphi 技巧...

Delphi 技巧

不规则窗口的建立（字体窗体）

不规则窗口的讨论，请将以下代码添加到FormCreate事件中 运行即可完成字体窗体的创建。

procedure TForm1.FormCreate(Sender: TObject); var rgn:HRGN; begin Form1.Color:=clRed; BeginPath(Canvas.Handle); SetBKMode(Canvas.Handle,TRANSPARENT); Canvas.Font.Name:='宋体'; Canvas.Font.Size:=200; Canvas.TextOut(150,130,'黄昏狼'); EndPath(Canvas.Handle); rgn:=PathToRegion(Canvas.Handle); SetWindowRgn(Handle,rgn,true); end;

在Delphi中自动检测、建立数据库别名和表格

procedure TForm1.CreateDBandTable; var

strAlias:TStringList; iAnswer:Integer;

begin

strAlias:=TStringList.Create; Session.GetAliasNames(strAlias); if (strAlias.IndexOf('myDB') = -1) then begin

iAnswer:=Application.MessageBox('数据库不存在，现在创建吗？','信息窗口',MB_OKCANCEL); if iAnswer = IDCANCEL then begin

strAlias.Free; Exit;

end; Session.AddStandardAlias('myDB' , Path , 'Paradox'); Session.SaveConfigFile;

end; strAlias.Clear; Session.GetTableNames('myDB','',False,False,strAlias); if ( strAlias.IndexOf( tbName) = -1 ) then begin

iAnswer:=Application.MessageBox('参数表格不存在，现在创建一个？','信息窗口',MB_OKCANCEL); if iAnswer = IDCANCEL then begin

strAlias.Free; Exit;

end; Table1.Active:=False; Table1.DatabaseName:='myDB'; Table1.TableName:=tbName; Table1.TableType:=ttParadox; Table1.FieldDefs.Clear; Table1.FieldDefs.Add('Name',ftString,6,False); Table1.FieldDefs.Add('Sex',ftString,4,False); Table1.IndexDefs.Clear; Table1.IndexDefs.Add('Index','Name',[ixPrimary,ixUnique] ); Table1.CreateTable;

end;

end;

用DEPHI 3.0实现动画ABOUT窗口

一般系统的ABOUT窗口中都含有当前系统的信息(如:CPU类型,硬盘容量,内存容量等),一个标志系统的图标,一个OK按钮等内容。笔者在工作中用DEPHI 3.0实现了动画效果的ABOUT窗口。

一． 创建含有如下控件的窗体：控件属性 值 FORM1 CAPTION 动画ABOUT窗口 ANIMATE1 COMMONAVI aviFindFolder ACTIVEtrueBUTTON1 CAPTION OKLABEL1 CAPTION 通用进销存管理系统V3.0LABEL2 CAPTION 版权所有:1997-1999年LABEL3 CAPTION 物理内存总容量：LABEL4 CAPTION 虚拟内存总容量：LABEL5 CAPTION 可用虚拟内存容量：LABEL6 CAPTION 硬盘容量：LABEL7 CAPTION 硬盘可用容量：LABEL8 CAPTION CPU类型：LABEL9 CAPTION 显示器分辨率：LABEL18 CAPTION 用物理内存：LABEL11，LABEL12，LABEL13，LABEL14，LABEL15，LABEL16，LABEL17LABEL19 CAPTION 空二．程序：unit sysinfo;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls;type TForm1 = class(TForm) Button1: TButton; Animate1: TAnimate; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; Label9: TLabel; Label10: TLabel; Label11: TLabel; Label12: TLabel; Label13: TLabel; Label14: TLabel; Label15: TLabel; Label16: TLabel; Label17: TLabel; Label18: TLabel; Label19: TLabel; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);begin close;end;procedure TForm1.FormCreate(Sender: TObject);var x,y:integer; sysinfTsysteminfo; meminfTmemorystatus; c2,c3,c4,c5:integer;begingetsysteminfo(sysinfo);label16.caption:=inttostr(sysinfo.dwProcessorType);x:=getsystemmetrics(0);y:=getsystemmetrics(1);label17.caption:=inttostr(x)+'*'+inttostr(y);globalmemorystatus(meminfo);label11.caption:=inttostr(meminfo.dwTotalPhys)+'字节';label19.caption:=inttostr(meminfo.dwAvailPhys)+'字节';label12.caption:=inttostr(meminfo.dwTotalVirtual)+'字节';label13.caption:=inttostr(meminfo.dwAvailVirTual)+'字节';getdiskfreespace('c:\',c2,c3,c4,c5);label14.caption:=inttostr(c5*c2*c3)+'字节';label15.caption:=inttostr(c4*c2*c3)+'字节';end;end.

　

---- 以上程序在中文WINDOWS98，WINDOWS95，DEPHI 3.0软件环境下运行通过。

在DELPHI中处理时间

---- 笔者在编写一个解除共享软件使用时间限制的小软件时，采用的原理是首先保存现在的时间，然后将系统时间设定为共享软件可运行的时间，再启动共享软件，最后在共享软件退出时再将系统时间恢复为原来保存的时间。但在调试程序的过程中发现了这样一个问题，由于在共享软件运行其间，时间已流逝，所以恢复原来保存的时间后就会导致系统时间滞后，滞后的时间为共享软件的运行时间。

---- 如何来解决这个问题呢？经过摸索，采用在共享软件启动的同时启动一个定时器，用一个变量保存流逝的时间，在共享软件结束时定时器停止工作，然后将流逝的时间加到原来保存的时间上作为系统时间恢复，这样就彻底解决了软件运行导致系统时钟变慢的问题。为了能在方便其他程序使用，编写了一个用于处理事件的类，在此介绍如下，以便于大家在编写与时间有关的程序时参考，从中可了解如何保存现在时间、设定新时间、记录流逝时间、恢复系统时间的方法。

---- 代码如下：

unit SystemTime;interfaceusesWindows, Messages, SysUtils, Classes,Graphics,Controls, Forms, Dialogs, StdCtrls,ExtCtrls;type TSysTime = class(TObject)private//系统日期、时间FStartDateTime : TDateTime;// 定时器FTimer : TTimer;// 流逝时间变量FElapsedTime : Integer;procedure Timer(Sender: TObject);protectedpublic constructor Create; virtual; destructor Destroy; override;procedure SetNewTime(NewTime :TSystemTime);procedure ResetTime;end;implementation//构造器constructor TSysTime.Create;begin//保存当前日期、时间FStartDateTime := Now;//生成定时器对象FTimer := TTimer.Create(nil);// 设定时钟间隔为一秒FTimer.Interval := 1000;//时钟事件FTimer.OnTimer := Timer;// 开始记时FTimer.Enabled := True;end;//设定系统新时间procedure TSysTime.SetNewTime(NewTime :TSystemTime);beginSetLocalTime(NewTime);end;//流逝时间procedure TSysTime.Timer(Sender: TObject);begin// 保存流逝的时间（以秒为单位），每秒加1Inc(FElapsedTime);end;//恢复系统时钟procedure TSysTime.ResetTime;varNewTime : TSystemTime;tmTemp : Double;dtTemp : TDateTime;begin//将流逝的时间转换为天数tmTemp := FElapsedTime/86400;//将流逝的时间加到原来的时间上dtTemp := FStartDateTime + tmTemp;//转换为Windows 32位时间格式DateTimeToSystemTime(dtTemp, NewTime);//设定时间SetLocalTime(NewTime);end;//释放destructor TSysTime.Destroy;begin//恢复系统时钟ResetTime;// 记时器停止FTimer.Enabled := False;// 释放时钟对象FTimer.Free;end;end.

如何为Delphi程序添加事件和事件处理器

---- Delphi是一种功能很强的可视化程序开发工具。我们在使用Delphi开发WINDOWS 应用程序的过程中，虽然Delphi为每个可视化组件都提供了很多属性（Property）和事件（Event），但在实际应用中可能会碰到一些自己需要的特殊事件，这些特殊事件Delphi 又没有提供，这时我们就需要为应用程序添加这些特殊事件。当这些事件发生后，又能马上调用处理这些事件的过程。本文通过实例来说明如何为应用程序添加事件和处理事件的过程。

---- 在Delphi中，事件实际上是专门化的属性，它是一个过程（procedure）的指针。要添加事件，首先应在所定义的类中说明一个用来指向事件过程的指针，该指针的作用是当事件一旦发生，就通过这个指针执行所指向的处理这个事件的过程。最后通过指定符 published公布定义的事件属性以及与之关联的事件处理过程指针。

---- 本例中，FtooBig为定义的事件处理过程指针，OnTooBig为事件属性名。事件处理过程指针FtooBig通过程序的初始化使之指向过程TooBig1。在Delphi的表单（Form1）上放置三个编辑框，分别为Edit1、Edit2和Edit3，放一按钮Button1。程序中设私有整型变量val1、val2和res，变量res用来记录val1和val2的乘积，并用Edit3显示出来。当通过Edit1和Edit2输入的数据有一个大于100时，会触发一个事件，并调用事件处理过程TooBig1显示一个对话框，说明此事件已经发生并已进行处理。源程序代码如下, 该程序在Delphi 3中调试通过。

unit Unit1;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Edit1: TEdit; {输入第一个整数} Edit2: TEdit; {输入第二个整数} Edit3: TEdit; {输出前二个整数的积} Button1: TButton; procedure Button1Click(Sender: TObject);procedure TooBig1(Sender: TObject); {当事件触发后调用此过程} procedure FormCreate(Sender: TObject); privateval1,val2,res:integer; {val1和val2存放输入的两个整数，res存放两数的积}FTooBig : TNotifyEvent; {定义一个指向事件处理器的指针FTooBig} { Private declarations } public { Public declarations } publishedproperty OnTooBig:TNotifyevent read FTooBig write FTooBig;{定义事件} end;var Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);begin val1 := StrToInt(Edit1.Text); val2 := StrToInt(Edit2.Text); if(val1< 100)and(val2< 100) then begin res := val1*val2; Edit3.Text := IntToStr(res); end else if assigned(FTooBig) then OnTooBig(Self);end;procedure TForm1.TooBig1(Sender: TObject);beginApplication.MessageBox('Too Big',' Test Event! ',MB_OK);end;procedure TForm1.FormCreate(Sender: TObject);begin val1:=1; val2:=1; FTooBig := TooBig1;{使事件处理指针指向事件处理器}end;end.

在DELPHI程序中使用ADO对象存取ODBC数据库

---- 作为一个ASP爱好者，笔者经常在ASP页面中使用ADO对象操作ODBC数据库，觉得用ASP创建WEB应用系统确定挺方便的．虽然在编程生涯中，笔者更喜欢Borland系列产品，对微软产品有点排斥，对ASP却是例外．某天，灵机一动，ADO对象是一个标准OLE对象，如果在DELPHI应用程序中能利用ADO操作数据库，应该挺不错．尤其在用DELPHI做网络数据库应用程序时，如果所在的WEB站点是WINNT站点并且支持ASP页面，就可以用ADO对象访问ODBC数据库，而不用把那么大的BDE再上载到站点上去，这样就可充分利用DELPHI和ASP的编程优势，做出更好的ISAPI/NSAPI/CGI．

---- 经过编程和测试，在DELPHI中可以成功地用ADO对象存取ODBC数据库，现将使用经验写出来，与大家共享，让我们多一个访问ODBC数据库的方法．

---- 　　在32位的DELPHI中，可以声明一个variant变量(如AVariant)，然后通过CreateOleObject 创建一个OLE对象，如AVariant:=CreateOleObject('ADODB.Connection')可以获得一个数据库连接对象的实例，然后就可以利用该对象的方法和属性来操作ODBC数据库了．

---- 　　下面简单介绍一下访问ODBC数据库所用到的ADO对象及其方法和属性．

---- 　　１．数据库连接对象(ADODB.Connection)

---- 该对象用于与ODBC数据库建立连接，所有对数据库的操作均通过该连接进行．

---- 数据库连接对象ADODB.Connection的作用象Delphi中的TDatabase对象．

---- 建立一个连接对象的方法为(AConnection为Variant类型变量)：

---- AConnection:=CreateOleObject('ADODB.Connection')

---- 用于建立连接的方法为Open，使用语法为(以对象AConnection为例):

---- AConnection.Open( ConnectionString, UserId, Password )

---- 三个参数均为字符串类型，其中UserId和Password为用户名称和用户密码，用来访问

---- 数据库时使用，可以省略，因为在ConnectionString同样可以指定用户名称和用户 密码．ConnectionString是用来说明ODBC数据源信息的字符串，其格式为：

'Provider=ProviderName;DSN=DSNName;DRIVER=driver; SERVER=server; DATABASE=database; UID=user; PWD=password'

　

---- 其中：

---- Provider：数据提供者，默认为MSDASQL，为微软OLEDB，通常省略

---- DSN　　 ：要打开的数据库对应的OBDC系统数据源(DSN)，是可选参数

---- DRIVER ：要打开的数据库所用的驱动程序名称，如Access对应

---- Microsoft Access Driver(*.mdb)，是可选参数

---- SERVER　：要打开的数据库所在的服务器名称，本机可用(local)，是可选参数

---- DATABASE：要打开的数据库名称，是可选参数

---- UID　　 ：用户名称，用来访问数据库，是可选参数

---- PWD　　 ：用户密码，用来访问数据库，是可选参数

---- 以上参数均为可选参数，但必须提供足够的信息来描述一个系统数据源．

---- 假如已经定义了一个ODBC的系统DSN，名称为MyDsn，那么就可用以下语句建立一个数据库连接：

----

AConnection.Open('DSN=MyDsn');

　

---- 为了防止DSN不存在或其设置被他人修改时造成应用程序运行错误，可以用ADODB.Connection创建一个临时ODBC数据源，这样可以保证我们使用的系统DSN的参数设置是正确的．下面的语句可以创建一个临时ODBC系统DSN，对应一个ACCESS数据库，路径为

C:\Inetpub\wwwroot\test.mdb AConnection.open('Driver={Microsoft Access Driver (*.mdb)};DBQ=C:\inetpub\wwwroot\test.mdb')

　

---- 建立一个ADODB.Connection后，如果不需要返回操作结果(如删除，修改，更新等操作)就可以对数据库进行正常的SQL操作了，此时应用ADODB.Connection的另外一个方法Execute，使用语法为：

AConnection.Execute( strSQL );

　

---- 其中strSQL为执行操作的SQL语句，如删除操作可以为：delete from wfjcommu 用AConnection.Close关闭一个数据库连接．

---- 　　２．数据集对象(ADODB.RecordSet)

---- 如果要执行查询操作并返回查询结果，或者要更方便地操作数据表，就需要用到数据集对象了．

---- 数据集对象ADODB.RecordSet的作用象Delphi中的TTable或TQuery对象．

---- 建立一个数据集对象的方法为(ARecordSet为Variant类型变量)：

----

ARecordSet:=CreateOleObject('ADODB.RecordSet')

　

---- 从数据表取得数据的方法为Open方法，具体使用方法为：

ARecordSet.Open( strCommand,ActiveConnection,intCursorType,intLockType,intCommandType );

---- 其中： strCommand：字符串，为命令参数，可以是一个Table名称，可以是一个SQL语句，也可以是一个服务器上的存储过程(StoredProc)名称，具体需要后面的参数intCommandType来指定．

---- ActiveConnection：要使用的数据库连接，是一个ADODB.Connection对象．

---- intCursorType：长整数，数据集的Cursor类型，可选参数，请参见程序中注释。

---- intLockType：长整数，对数据表的加锁类型，可选参数，请参见程序中注释。

---- intCommandType：长整数，命令参数的类型，用来指明strCommand的作用，可以指定strCommand为命令(如SQL语句)或数据表(TTable)或储存过程(StoredProc)，可选参数，请参见程序中注释。

---- 如执行一个SQL查询，可以采用如下语句：

ARecordSet.Open('Select * from wfjcommu',adOpenStatic,adLockOptimistic,adCmdText);

　

---- 其它常见属性和方法与TTable和TQuery相比较如下(具体请见ASP帮助文件)：

eof,bof：eof,bof． MoveFirst, MoveLast：First, Last MovePrevious, MoveNext：Prior, Next Move：MoveBy AddNew：append Update：Post Close：close

---- Delete加Update：delete，所有对数据表的修改均须用Update使操作有效，这与Delphi不同

Fields[FieldNo]：Fields[FieldNo]Fields['FieldName']：FieldByName('FieldName')

　

---- 　　３．其它常见对象(与Delphi对应的对象)：

----

ADODB.Field：TField ADODB.Parameter：TPara ADODB.Error：EDBEngineError ADODB.Command：无 ADODB.Property：无

　

---- 　　下面来看一个应用例子，听别人说总不如自己看实际的例子来体会。在这个例子中，将演示如何利用ADO对象来对一个数据表进行查询、增加记录、修改记录和删除记录操作。具体的用法请参见程序中的注释，如果有点Delphi数据库编程经验，相信不难理解。

---- 　　在我们的例子使用的数据库为Test.MDB，其中有一个数据表为wfjcommu，有五个字段AName、Portable、Tel、BP、PostAddress，分别表示姓名、手机号、电话号码、呼机号码和通信地址。

----

procedure TForm1.Button1Click(Sender: TObject);{*****************************************************

　

---- 用ADO操作ODBC数据库本程序中，将创建一个临时的ODBC系统数据源，指向一个MsAccess数据库，然后对其中的数据表进行显示、增加、修改、删除和查询操作注意：请在Uses语句中包含ComObj单元

*****************************************************}const{ 一些常量声明，详细请参见adovbs.inc }{ ---- CommandType的常量说明 ---- } adCmdUnknown = 0008;//未知,需要系统来判断,速度慢,为缺省值 adCmdText = 0001;//命令语句如SQL语句 adCmdTable = 0002;//数据表名称 adCmdStoredProc = 0004;//存储过程名称{ ---- CursorType的常量说明 ---- } adOpenForwardOnly = 0;//只能由前向后单向访问,为缺省值 adOpenKeyset = 1;//可见其他用户对数据的修改,但对其它用户的增加和删除不可见 adOpenDynamic = 2;//其他用户对数据的增加修改和删除均可见 adOpenStatic = 3;//其他用户对数据的增加修改和删除均不可见{---- LockType的常量说明 ---} adLockReadOnly = 1;//只读,为缺省值 adLockPessimistic = 2;//在修改时,按单个记录锁定 adLockOptimistic = 3;//在修改后更新时,按单个记录锁定 adLockBatchOptimistic = 4;//在成批更新时记录锁定var AConnection, ARecordSet : variant; longintTemp : integer; strTemp : string; intIndex : integer;begin {创建一个临时的ODBC数据源, 指向一个MsAccess数据库, 并利用此DSN建立一个数据库连接} AConnection := CreateOleObject('ADODB.Connection'); AConnection.Open('Driver={Microsoft Access Driver (*.mdb)};DBQ=C:\inetpub\wwwroot\test'); {建立一个数据集对象,并从数据表中提取数据} ARecordSet := CreateOleObject('ADODB.RecordSet'); ARecordSet.open( 'wfjcommu',AConnection, adOpenStatic,adLockOptimistic,adCmdTable ); memo1.lines.clear; memo1.lines.add('********数据表原有的内容如下********'); {显示各个域的域名} strTemp := ''; for intIndex := 0 to ARecordSet.Fields.count - 1 do strTemp := strTemp + ARecordSet.Fields[intIndex].name+';'; memo1.lines.add( strTemp ); {显示各个域的内容} while not ARecordSet.eof do begin strTemp := ''; for intIndex := 0 to ARecordSet.Fields.count - 1 do strTemp := strTemp + ARecordSet.Fields [intIndex].value+';'; memo1.lines.add( strTemp ); ARecordSet.MoveNext;//移到下条，Next end; {增加一个记录} ARecordSet.AddNew;//增加,Append ARecordSet.Fields['AName'] := '1'; //以FieldByName的方式存取 ARecordSet.Fields['Portable'] := '2'; ARecordSet.Fields(2) := '3'; //以Fields[index]的方式存取 ARecordSet.Fields(3) := '4'; ARecordSet.Fields(4) := '5'; ARecordSet.Update;//更新，Post ARecordSet.MoveFirst;//移到首条，First memo1.lines.add('********增加了一条 记录后的数据表的内容如下********'); {显示各个域的内容} while not ARecordSet.eof do begin strTemp := '';for intIndex := 0 to ARecordSet. Fields.count - 1 do strTemp := strTemp + ARecordSet.Fields[intIndex].value+';'; memo1.lines.add( strTemp ); ARecordSet.MoveNext;//移到下条，Next end; {修改最后一条记录} ARecordSet.MoveLast; ARecordSet.Fields['AName'] := '11'; //以FieldByName的方式存取 ARecordSet.Fields['Portable'] := '22'; ARecordSet.Fields(2) := '33'; //以Fields[index]的方式存取 ARecordSet.Fields(3) := '44'; ARecordSet.Fields(4) := '55'; ARecordSet.Update;//更新，Post ARecordSet.MoveFirst;//移到首条，First memo1.lines.add('********修改了最后一条 记录后的数据表的内容如下********'); {显示各个域的内容} while not ARecordSet.eof do begin strTemp := '';for intIndex := 0 to ARecordSet.Fields.count - 1 do strTemp := strTemp + ARecordSet.Fields[intIndex].value+';'; memo1.lines.add( strTemp ); ARecordSet.MoveNext;//移到下条，Next end; {删除最后一条记录} ARecordSet.MoveLast;//移到末条，Last ARecordSet.delete;//删除，delete ARecordSet.Update;//更新，在Delphi不需要 ARecordSet.MoveFirst;//移到首条，First memo1.lines.add('********删除了最后一条 记录后的数据表的内容如下********'); {显示各个域的内容} while not ARecordSet.eof do begin strTemp := ''; for intIndex := 0 to ARecordSet.Fields.count - 1 do strTemp := strTemp + ARecordSet. Fields[intIndex].value+';'; memo1.lines.add( strTemp ); ARecordSet.MoveNext;//移到下条，Next end; ARecordSet.Close;{关闭数据集} {用SQL语句进行查询,查询姓名为“张三”的记录} {注意，在SQL语句中，字符串应该用单引号包括起来} ARecordSet.open( 'select * from wfjcommu where AName = ''张三''', AConnection,adOpenStatic,adLockOptimistic, adCmdText ); memo1.lines.add('********张三的内容如下********'); memo1.lines.add( '共有' + IntToStr ( ARecordSet.RecordCount ) + '条匹配的记录' ); {显示各个域的内容} while not ARecordSet.eof do begin strTemp := ''; for intIndex := 0 to ARecordSet.Fields.count - 1 do strTemp := strTemp + ARecordSet.Fields [intIndex].value+';'; memo1.lines.add( strTemp ); ARecordSet.MoveNext;//移到下条，Next end; {关闭数据集和数据库连接} ARecordSet.close; AConnection.close;end;

　

---- 以上程序在PWIN98+DELPHI3.0+PWS(Personal Web Server)4.0下调试通过．

---- 关于ADO对象的详细资料，请参见ASP帮助文件或Interdev帮助文件或OFFICE2000的有关文档.

轻轻松松在DELPHI3.0中实现三态按钮

---- 在许多新的软件中都用到三态按钮。所谓的三态按钮就是当鼠标还末移到时,按钮显示一种平面图像(FLAT)；当鼠标移到按钮时，按钮呈现凸立体(UP)；当鼠标在按钮上按下时,按钮呈现凹立体(DOWN)。

---- 由于DELPHI中有图像按钮，能够实现UP和DOWN两种状态，因此只需增加FLAT状态即可。笔者经过研究，发现有以下两种方法。

---- 1. 修改BITBTN上的GLYPH属性.

---- （1）当处于FLAT状态时,GLYPH属性设置为图像文件1,为了让按钮只是平面地显示,必须让图像文件1的尺寸大于按钮的实际尺寸,按钮就呈现平面状，可以在 FORM的ONMOUSEMOVE事件上用以下函数实现：

Bitbtn1.glyph.loadfromfile(‘文件名1’);

---- （2）当处于UP和DOWN状态时,GLYPH设置为图像文件2。由于BITBTN构件本身就具有按钮的特性,所以对图像大小没有特殊要求。可以在BITBTN1的ONMOUSEMOVE事件上用以下函数实现：

Bitbtn1.glyph.loadfromfile(‘文件名2’);

---- 用这种方法实现的三态按钮有一个明显的不足，由于BITBTN1不断地从图像文件LOAD图像数据，因此图像一直闪烁不定，不但影响运行速度而且效果不佳。

---- 2．修改IMAGE构件和BITBTN构件的VISIBLE属性

---- 在FORM的同一个位置设置大小完全相等的两个构件IMAGE1和BITBTN1，由于一起动FORM时，显示FLAT状态，因此把IMAGE1的VISIBLE属性初值设为TRUE；把BITBTN1的VISIBLE属性设为FALSE。

---- （1）当处于FLAT状态时，只显示IMAGE1构件。即把IMAGE1的VISIBLE属性设为TRUE，把BITBTN1的VISIBLE属性设为FALSE。于是FORM的OMMOUSEMOVE事件上调用如下语句：

IMAGE1.VISIBLE:=TRUE; BITBTN1.VISIBLE:=FALSE;

---- （2）当处于UP或DOWN状态时，把IMAGE1的VISIBLE属性设为FALSE；把BITBTN1的VISIBLE属性设为TRUE。因此在IMAGE1和BITBTN1的 ONCLICK事件上分别调用如下语句：

IMAGE1.VISIBLE：=FALSE； BITBTN1.VISIBLE：=TRUE；

---- 使用该方法虽然多用了一个构件，但是不必频繁地装载图像数据，因此运行速度快，效果也很好。

---- 以上是我在实践的过程中发现的两种比较简单的方法，当然还有许多其它的方法也可以实现，愿与各位探讨。

Delphi中TApplication类的巧用 ---- Delphi是一种面向对象的编程语言，由于它采用完全集成OOP的优点，因此 使它成为目前十分流行的Windows开发工具。在Delphi包含的众多类中，TApplic ation是一个有着十分重要作用的类。TApplication类是用于描述Delphi编制的应 用程序的一个类。通过对这个类的灵活应用可以编制许多有特点的程序。下面我 们就举几个这方面的例子。 ---- 1 检测当前Windows程序是否被激活： ---- Tapplication类有一个属性——Active，这个属性就可以描述当前运行的程 序是否被激活，成为Windows的焦点。检测的代码如下： If Application.Active=False then ShowMessage（’当前窗口没有被激活’）； ---- 2 取得当前程序的名称： ---- Tapplication类的EXEName属性可以返回这个可执行程序的完整文件名（包 含路径）。实现的代码如下所示： ---- ShowMessage(Application.ExeName); ---- 3 改变程序极小化时的标题 ---- 如果您细心观察可以发现，一些程序的标题和程序的名称并不一致，尤其是 一些英文程序，窗体的标题栏比较长，可以容纳比较多的文字，而在最小化时， 往往变成了很少的几个字母。这中间起作用的就是Tapplication类的Title属性。 这个属性决定了程序最小化时的标题，而窗口中标题栏的标题是由Form的Captio n属性来决定的。其代码如下： Form1.Caption:=’ 窗口的标题’; Application.Title:=’程序的标题’; ---- 其实我们也可以在在程序设计时指定Tapplication类的Title属性值。操作 的方法是在开发环境中拉下Project菜单,选择Options菜单时弹出如图1 (略)的对 话框。在这个对话框中的Title栏中填写程序的标题一样也可以达到这种效果。并 且因为一般的工程文件都是以英文命名的，所以程序运行过程中弹出的消息框中 的标题是英文。但在指定了这个属性之后，这个程序的所有消息窗口的标题都变 为Title的值。这就使得程序看起来更加完整。 ---- 4 指明程序的主窗口 ---- Windows系统中的界面都是窗口，但一般来讲有一个主窗口。Tapplication 的MainForm属性就可以返回程序的主窗口。 ---- 5 显示消息框 ---- Delphi有许多显示消息框的函数与过程，比较常用的是ShowMessage，它用 起来虽然十分方便，但是却有一个问题，那就是这个消息框的按钮是以英文显示 的。如果要生成一个含有中文显示的按钮就要求助于Tapplication的MessageBox 函数了。这个函数的原形如下： ---- function MessageBox(Text, Caption: Char; Flags: Longint): Integer ; ---- 在这个函数中，前两项分别是显示的提示信息和消息窗口的标题，Flags是 一个长整值，用来指定按钮的个数及功能。熟悉Delphi的用户可能会注意到，这 个函数和Delphi 3所提供的同名函数有一点不同，那不是这个版本中字符串参数 都以字符的形式给出，而不再要求将其转化成指针。我们在使用时要注意加以区 别。 ---- Application.MessageBox('需要存盘吗？','提示信息',MB_OKCANCEL)； 这 个语句在运行时显示的样式如图2 (略) 所示。 ---- 最后就这个函数的返回值作一些说明，实际上这个函数返回的是一个整型的 数值，而这个数值被系统指定了具体的含义，比如：按下“确定”按钮时返回的 值是“1”，而其它按钮的值列在表 1 中。 ---- 表 1 按钮的意义及系统中对其定义的值 按钮的意义 按下此按钮时函数返回的值 IDABORT 3 IDCANCEL 2 IDIGNORE 5 IDNO 7 IDOK 1 IDRETRY 4 IDYES 6 ---- 6 控制窗口的尺寸 ---- 一般可以用窗口手柄来调整窗口的尺寸，但是也可以用Application的事件 来调整。实现的方法是用以下两个过程： Application.Minimized; Application.Restore; ---- 前一个过程用来将程序的主窗口最小化，而后一个过程用来将最小化的窗口 恢复到原来的尺寸。 ---- 7 链接联机帮助文件 ---- Application的CurrentHelpFile属性能够指定当前程序所用的联机帮助文件 的文件名。这个属性经常与另一个方法联合在一起使用。举例如下： Application.HelpFile := '联机帮助文件名'; Application.HelpJump('联机帮助文件的主题’) ---- 通过这一命令组合，我们就能使系统弹出一个显示某主题的联机帮助文件。 ---- 8 在程序运行时动态地创建窗口 ---- 一般情况下，窗口是在设计时加入到工程项目中的，但是有时也需要我们在 程序运行时动态地加入窗口，这就要用到Application 的CreateForm过程，举例 如下： Form3:Tform3; //声明窗口类 Application.CreateForm(TForm3, Form3); //创建窗口 ---- 9 结束程序 ---- 虽然我们可以用关闭主窗口的方法来关闭一个程序，但是更好的办法是用A pplication的Terminate过程。它能够起到更彻底地关闭程序的效果。 ---- 10 Destroy 属性. ---- 虽然Delphi提供了这一属性,但是并不提倡使用它,如果要终结程序就要调用 Terminate过程，而Destroy过程一般是用来在程序发生悬挂时来退出程序时才调 用，有些类似Windows中的结束任务功能。它不仅能关闭程序实例本身，而且还能 释放程序所占用的资源，能够达到将程序彻底清除出系统的目的。

Delphi 中自做动态显示的控件

---- Delphi以其优秀的界面和简单的用法深受广大程序员的喜爱.笔者经过摸索,自做了一个具有动态显示特性的控件。只需在主程序中调用该控件的一个方法即可实现动态显示。在动态显示的同时,为了不影响主程序做其他的事情,笔者采用了比较流行的线程技术。

---- 一． 方案

---- 自做一个父类为TEdit的控件,应该有一个Text属性，能自由地输入要动态显示的内容; 并且有一个MoveShow方法，使的Text的内容能动态的显示。在主程序中创建一个线程，启动线程时，调用该控件的MoveShow方法。

---- 二． 制作控件

---- 启动New Component,选Tedit为父类，建立L_Tedit1类，并创建L_edit.pas. 再编写L_edit.pas 如下：

unit L_Edit;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type L_TEdit1 = class(TEdit) private { Private declarations } protected { Protected declarations } public { Public declarations } constructor Create(AOwner:TComponent); override; procedure MoveShow; published { Published declarations } property Text; end;procedure Register;implementationconstructor L_TEdit1.Create(AOwner:TComponent);begininherited create(aowner);color:=clblue;font.Color:=clyellow;font.Size:=12;font.Name:= '@仿宋_GB2312';tabstop:=false;update;end;procedure L_TEdit1.MoveShow;var edit_length,i:integer; edit_char:char; chars: string;begin chars:=''; if (length(text)=0) then text:=’Welcom you to use the software!’; edit_length:=length(text); for i:=1 to edit_length do begin edit_char:=text[1]; if (Ord(edit_char) >127) then if length(chars) >1 then begin text:=copy(text,2,edit_length-2)+chars; chars:=''; end else begin chars:=copy(text,1,2); text:=copy(text,2,edit_length-1); end else begin text:=copy(text,2,edit_length-1)+edit_char; end; update; sleep(100); end;end;procedure Register;begin RegisterComponents('Samples', [L_TEdit1]);end;end.再保存该文件。

---- 启动Image Editor 创建L_Edit.dcr , 选New- >Bitmap，自己做一个图标，保存名为L_TEDIT1(与新建的类同名)。注意L_Edit.dcr 与L_Edit.pas 要在同一个目录中（缺省为\delphi\lib目录中。再单击Install Component. 选Into new package属性页，填上L_Edit.pas 的路径和文件名，并在该路径下新建L_Edit1.dpk 文件。之后一直单击OK即可。此时我们可以在Delphi 的工具栏Sample 一项中看到自己创建的图标。

---- 三． 编写主程序

---- 在主窗体Form1中放一自己创建的控件，在Text的属性中填上要显示的文字（中英文都可）。与该窗体对应的L_unit1.pas内容如下：

unit L_Unit1;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, L_Edit;type Tmythread=class(TThread) protected procedure Execute; override; end; TForm1 = class(TForm) L_TEdit11: L_TEdit1; Button1: TButton; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1; MyThread1:TMyThread;implementation{$R *.DFM}Procedure TMyThread.Execute;begin while true do form1.L_TEdit11.MoveShow;end;procedure TForm1.FormCreate(Sender: TObject);beginMyThread1:=TMyThread.Create(false);end;procedure TForm1.Button1Click(Sender: TObject);beginshowmessage('Welcome You!');end;end.

---- 该程序在Delphi4.0 for win95 下编译运行通过。

DELPHI 中 自 适 应 表 单 的 实 现

---- 我 们 知 道， 屏 幕 分 辨 率 的 设 置 影 响 着 表 单 布 局， 假 设 你 的 机 器 上 屏 幕 分 辨 率 是800*600， 而 最 终 要 分 发 应 用 的 机 器 分 辨 率 为640*480， 或1024*768， 这 样 你 原 先 设 计 的 表 单 在 新 机 器 上 势 必 会 走 样。 这 时 你 一 定 希 望 表 单 能 自 己 适 应 不 同 的 分 辨 率， 下 面 就 有 两 种 方 法 可 供 你 参 考。

---- 一、 根 据 新 的 分 辨 率 自 动 重 画 表 单 及 控 件

---- 先 在 表 单 单 元 的Interface 部 分 定 义 两 个 常 量， 表 示 设 计 时 的 屏 幕 的 宽 度 和 高 度（ 以 像 素 为 单 位）。 在 表 单 的Create 事 件 中 先 判 断 当 前 分 辨 率 是 否 与 设 计 分 辨 率 相 同， 如 果 不 同， 调 用 表 单 的SCALE 过 程 重 新 能 调 整 表 单 中 控 件 的 宽 度 和 高 度。

ConstOrignwidth=800;Orignheight=600;procedure TForm1.FormCreate(Sender: TObject);beginscaled:=true;if (screen.width<>orignwidth) thenbeginheight:=longint(height)*longint(screen.height) div orignheight;width:=longint(width)*longint(screen.width) div orignwidth;scaleby(screen.width , orignwidth);end;end;

---- SCALE 过 程 在 调 整 控 件 宽 度 和 高 度 的 同 时， 也 自 动 调 整 控 件 字 体 的 大 小， 以 适 应 新 的 分 辨 率， 但 美 中 不 足 的 是 它 并 不 改 变 控 件 的 顶 点 坐 标 位 置， 也 就 是 说， 该 过 程 不 改 变 控 件 之 间 的 相 对 位 置 关 系。 要 想 调 整 控 件 之 间 的 选 队 相 对 位 置， 还 需 要 自 己 编 程 实 现， 有 兴 趣 的 读 者 可 试 一 试。

---- 二、 将 机 器 分 辨 率 更 改 为 设 计 时 的 分 辨 率

---- 这 种 方 法 不 改 变 表 单 本 身， 而 是 将 屏 幕 分 辨 率 更 改 为 与 表 单 设 计 时 用 到 的 分 辨 率 相 同。 它 需 要 用 到WINDOWS API 函 数EnumDisplaySettings 和ChangeDisplaySettings， 前 者 取 当 前 显 示 模 式 信 息， 后 者 则 更 改 显 示 设 置， 具 体 参 数 的 含 义 请 参 见 DELPHI 帮 助。 设 计 时 宽 度 常 量 和 高 度 常 量 的 定 义 如 方 法 一。

procedure TForm1.FormCreate(Sender: TObject);vardevmode:tDevicemode;beginif screen.width<>orignwidth then begin if EnumDisplaySettings(nil,0,devmode) then begindevmode.dmfields:=dm_pelswidth OR dm_pelsheight ;devmode.dmpelswidth:=orignwidth; {宽度}devmode.dmpelsheight:=orignheight;{高度}ChangeDisplaySettings(devmode,0); {更改设置}end;end;end;

---- 以 上 两 种 方 法 在WINDOWS 95+DELPHI 3.0 环 境 下 均 已 通 过， 二 者 相 比， 前 者 是 主 动 适 应， 后 者 则 是 被 动 适 应。

在Delphi 中 利 用 Tbatch 组 件 完 成 数 据 批 处 理

---- 在 数 据 库 应 用 系 统 中， 常 常 要 对 数 据 进 行 成 批 的 如 追 加、 删 除、 更 改 等 操 作， 这 种 批 量 操 作 在 专 门 的 数 据 库 开 发 工 具 如VFP 中 用APPEND 、COPY 命 令 带 上 相 应 的 命 令 子 句 就 能 轻 易 完 成。 但 在 其 它 开 发 工 具 中 并 没 有 类 似 的 命 令， 而 是 提 供 能 完 成 类 似 功 能 的 控 件 或 对 象， 如 在PowerBuilder 中 就 是 利 用 Pipe Line（ 数 据 管 道） 来 完 成 两 个 或 同 构 或 不 同 构 的 表 之 间 的 数 据 批 处 理。 本 文 要 介 绍 的 是Delphi 中 用 来 完 成 数 据 批 处 理 任 务 的 组 件TBatchMove。TBatchMove 组 件 能 够：

将 一 个 数 据 集 中 的 数 据 追 加 到 一 个 表 中。. 从 一 个 表 中 删 除 满 足 条 件 的 记 录。 按 旧 表 结 构 生 成 一 个 新 表， 若 欲 生 成 的 新 表 已 存 在， 则 覆 盖。

　

---- 具 体 的 操 作 要 通 过 设 置TBatchMove 的Mode 属 性 后 再 调 用Execute 方 法 来 完 成。 为 举 例 说 明 问 题， 我 们 在 别 名 数 据 库DBDEMOS 中 先 创 建 两 个dBase 格 式 的 表Test1.dbf 和Test2.dbf。 二 者 的 结 构 如 下 表：

Test1.dbf Test2.dbf Name C 10 Name C 10 Code C 3 Code C 3

　

---- 其 中 表Test2.dbf 在 字 段code 上 建 立 有 唯 一 索 引。 同 时 假 设 表 单 中 已 有 两 个 TABLE 控 件Tsource 和Tdest 和 一 个TbatchMove 组 件batchmove1。Tsource 和Tdest 的DatabaseName 属 性 均 设 为DBDEMOS。batchmove1 的source 属 性 设 为Tsource，destination 属 性 设 为Tdest。 ---- 在 使 用TbatchMove 组 件 时， 必 须 牢 记： 所 有 的 操 作 都 是 以 源 表 为 标 准 针 对 目 的 表 进 行 的， 下 面 就 分 别 举 例 说 明TbatchMove 的 各 种 操 作 模 式： batAppend 追 加 模 式 将 源 表 中 的 数 据 追 加 到 目 的 表 中， 目 的 表 必 须 事 先 存 在。 这 是 缺 省 模 式。 batchmove1.source=Tsource; batchmove1.destination=Tdest2 ; batchmove1.Mode:=batCopy; batchmove1.Execute; batUpdate 更 新 模 式 用 源 表 中 匹 配 目 的 表 的 记 录 替 换 目 的 表 中 的 相 应 记 录。 目 的 表 必 须 事 先 存 在 且 有 一 已 定 义 的 索 引 用 来 匹 配 源 表 中 的 记 录。 Tdest.IndexFieldNames:='code'; batchmove1.source=Tsource; batchmove1.destination=Tdest ; batchmove1.Mode:=batUpdate; batchmove1.Execute; batAppendUpdate 追 加 更 新 模 式 如 果 源 表 中 有 与 目 的 表 匹 配 的 记 录， 则 替 换 目 的 表 记 录， 否 则， 直 接 追 加 到 目 的 表 中。 目 的 表 必 须 事 先 存 在 且 有 一 已 定 义 的 索 引 用 来 匹 配 源 表 中 的 记 录。 Tdest.IndexFieldNames:='code'; batchmove1.source=Tsource; batchmove1.destination=Tdest ; batchmove1.Mode:=batAppendUpdate; batchmove1.Execute; batCopy 拷 贝 模 式 按 源 表 结 构 生 成 新 表， 源 表 中 的 数 据 同 时 拷 贝 到 目 的 新 表 中。 如 果 要 生 成 的 新 表 已 存 在， 则 覆 盖。 // 按Test1.dbf 生 成 新 表xxx.dbf // 如 果 不 指 定 扩 展 名dbf， 生 成 的 新 表 将 是Paradox 格 式 的xxx.db。 Tdest.TableName:='xxx.dbf'; batchmove1.source=Tsource; batchmove1.destination=Tdest ; batchmove1.Mode:=batCopy; batchmove1.Execute; batDelete 删 除 模 式 删 除 目 的 表 中 与 源 表 匹 配 的 记 录。 目 的 表 必 须 事 先 存 在 且 有 一 已 定 义 的 索 引 用 来 匹 配 源 表 中 的 记 录。 Tdest.IndexFieldNames:='code'; batchmove1.source=Tsource; batchmove1.destination=Tdest ; batchmove1.Mode:=batDelete; batchmove1.Execute;

　

---- TBatchMove 还 有 一 个 重 要 属 性ChangedTableName， 在 实 际 运 用 中， 通 过 指 定 ChangedTableName 属 性 可 以 创 建 一 个Paradox 表， 该 表 用 来 保 存 目 的 表 中 被 更 改 数 据 的 原 始 备 份， 有 了 这 个 备 份 表 就 可 以 确 保 恢 复 目 的 表 中 的 数 据。

---- 顺 便 提 一 句， 如 果 要 删 除 某 一 个 表 中 的 全 部 记 录， 可 以 采 用Table 组 件 的 EmptyTable 方 法， 例 如Tdest.EmptyTable 将 清 空Tdest 所 指 定 的 表test2.dbf。

---- 本 文 中 是 以 同 构 的dbf 表 进 行 的 示 例， 在 实 际 运 用 中， 源 表 和 目 的 表 可 能 同 购， 也 可 能 异 构， 异 构 时，Delphi 的BDE 会 自 动 进 行 类 型 和 长 度 上 的 转 换， 具 体 类 型 间 的 关 系 可 以 有 关BDE 的 帮 助。 本 文 中 各 种 操 作 模 式 的 实 际 结 果 均 可 以 从Delphi 的Database Desktop 中 查 看 到。

如何在注册表中注册BDE

只拷贝BDE文件是不行的，还要写注册表： 必需的注册表项目包括： 1. BDE动态连接库文件位置设置 Key : "HKEY_LOCAL_MACHINE\Software\Borland\Database Engine" Item : "DLLPATH" Value : BDE动态连接库文件所在位置，如"C:\Program Files\Borland\Common Files\BDE" (打开"C:\Program Files\Borland\Common Files\BDE\BDE32.hlp"， 查找"Core Files"即可了解BDE各动态连接库文件的作用) 2. BDE语言驱动文件路径设置 Key : "HKEY_LOCAL_MACHINE\Software\Borland\BLW32" Item : "BLAPIPATH" Value : BDE语言驱动文件所在路径，如"C:\Program Files\Borland\Common Files\BDE" (BDE语言驱动就是那些*.BLL文件) 3. 指定可用的BDE语言驱动文件 Key : "HKEY_LOCAL_MACHINE\Software\Borland\BLW32" Item : "LOCALE_LIB#" (#表示数字, 如"LOCALE_LIB1"、"LOCALE_LIB3"等) Value : 指定各BDE语言驱动文件，如"C:\Program Files\Borland\Common Files\BDE\USA.BLL" (一般必需的语言驱动文件有"USA.BLL","EUROPE.BLL"和"FAREAST.BLL"，为保险起 见，建议将所有语言驱动都设置上。在安装了Delphi3的机器上，用Regedit打开注册 表，一看你就明白了怎么设了)

CGI技术及其开发(一)

作为Internet上最主要的信息管理和组织手段，WWW由一系列相应的技术及应用构 成，其组成技术包括HTTP、HTML、URL以及CGI等。WWW服务器本身提供一些基本功 能，以完成客户端的请求和自身的管理。但不同的用户有不同的功能要求，其中许 多功能是WWW服务器本身 不能提供的（比如在线查询等），它必须提供一种扩展手 段，以允许用户编写扩展应用程序来扩展服务器的功能。CGI（CommonGatewayInterface， 即通用网关接口）就是这样的一种标准扩展技术。下面就CGI的基本技术及其开发 进行讨论。 一、CGI技术 1．1CGI的提出 CGI是外部扩展应用程序与WWW服务器交互的一个标准接口。按照CGI标准编写的外 部扩展应用程序可以处理客户端（一般是WWW浏览器）输入的协同工作数据，完成 客户端与服务器的交互操作。这在实际应用中非常有用，如可以编写CGI外部扩展 程序来访问外部数据库，客户端用户可以通过它和WWW服务器来进行数据查询。CGI 一般分两种：标准CGI和缓冲CGI。所有的WWW服务器均应支持标准CGI，按标准CGI 编写的程序与具体的WWW服务器无关。而按缓冲CGI编写的程序与WWW服务器有关。 1．2CGI的工作原理 1．标准CGI 客户端、服务器、CGI接口与外部程序间的关系可用图1－1表示：如上图所示，服 务器是客户端（如浏览器）与扩展程序之间的通道。当客户端的用户完成了一定 输入工作（比如填充完HTML文档中的FORM表）之后向服务器发出HTTP请求（称为CGI 请求），服务器守护进程接收到该请求后，就创建一个子进程（称为CGI进程）。 该CGI子进程将CGI请求的有关数据设置成环境变量，在外部CGI程序与服务器间建 立两条数据通道（标准I／O），然后启动URL指定的CGI程序，并与该子进程保持同 步，以监测CGI程序的执行状态。子进程通过标准输出流将处理结果传递给服务器 守护进程，守护进程再将处理结果作为应答消息回送到客户端。外部CGI程序通过 环境变量、命令行参数、标准输入输出与WWW服务器进行通讯，传递有关参数和处 理结果。＊环境变量：当服务器守护进程创建子进程运行CGI程序时，设置相应的 环境变量和命令行参数，以传递客户端和服务器的有关信息给该子进程。＊命令行 参数：命令行参数仅在有HTML文档中有ISINDEX查询的情况下使用。＊标准输入输 出：当HTTP请求模式采用POST方式时，CGI程序通过标准输入流和有关环境变量来 获取客户端传输数据；如采用GET方式时，CGI程序直接通过环境变量获取客户端传 输数据。当CGI程序要返回处理结果（一般为HTML文档）给客户端时，它通过标准 输出流将该结果数据传递给服务器守护进程。 2．缓冲CGI 标准CGI使用Stdin／Stdout来进行数据通讯，这是由其最初开发环境（Unix操作 系统）所决定的。但是许多Windows环境下的编程工具（如VB和Delphi等）是不支 持这种I／O方式的，这时就不能用它们来开发基于标准CGI的应用程序。于是有些 服务器提出了缓冲CGI的概念。缓冲CGI亦称为WinCGI。此时CGI扩展程序与服务器 间通过缓冲CGI而不是标准CGI进行通讯，而缓冲CGI与服务器间的通讯还是通过标 准CGI接口。后者由WWW服务器的内置缓冲处理程序实现。这几部分的关系可用图 1－2表示：缓冲CGI的工作原理与标准CGI相似，不同的是当服务器守护进程接收 到客户端的CGI请求时，所建立的CGI子进程将CGI请求的有关数据设置成环境变量 外，还将它们保存在输入缓冲区中；通过缓冲处理程序在外部CGI程序与服务器间 建立两条数据通道（输入／输出缓冲区）。CGI子进程通过输出缓冲区将处理结果 传递给服务器守护进程。此处外部CGI程序通过环境变量和输入／输出缓冲区与WWW 服务器进行通讯，传递有关参数和处理结果。此处环境变量的意义同上，不过这 些环境变量及其相应值保存在输入缓冲区中。此外，输入缓冲区中还存放客户端 的传输数据（如采用POST模式的话）。输出缓冲区用来存放扩展程序的处理结果。 3．标准CGI与缓冲CGI的区别 对CGI扩展程序而言，最主要差别在于数据的I／O不同：对缓冲CGI，服务器与CGI 扩展程序间的数据交换是通过缓冲区；而标准CGI是通过标准I／O。使用缓冲CGI可 选择更多的开发工具，可以开发Windows95和WindowsNT下的GUI扩展程序；而使用 标准CGI所选用的开发工具必须支持标准I／O。只有少数几种WWW服务器支持缓冲CGI， 因此基于它的扩展程序兼容性不如标准CGI好。 1．3CGI与其他WWW技术的关系 CGI作为WWW服务器的标准扩展技术，由上面CGI的基本原理可知，它和许多其它的 WWW技术密切相关，如HTTP、HTML、MIME和URL等，下面主要就它与前两种技术的关 系进行研究。 1．CGI与HTTP协议 CGI通过HTTP协议在客户端和服务端进行通讯：＊客户端用户代理向服务器发送的 请求是HTTP请求消息。该消息中含有处理用户输入的CGI扩展程序的URL值。＊CGI 扩展程序在处理结束后，返回给客户端的应答是HTTP应答消息。因此CGI程序的输 出数据必须符合HTTP应答消息的语法格式，这在基于CGI标准的开发中非常重要。 2．CGI与HTML语言 CGI扩展程序的输出数据（HTTP应答消息）一般有两种：符合MIME类型的文档（最 普遍的是HTML文档，表示为text／html）；指向其它文档的URL链接。这两种方式 都与HTML语言有关，数据的组织须符合HTML语法格式。 1．4CGI开发的几个问题 基于WWW的人机交互一般有两种情况：本地交互和通过网络传输的交互。前者是指 客户端用户的输入数据在客户端本地进行处理，然后将处理结果返回给用户，常 见的开发工具有JavaScript（Netscape开发）和VBScript（Microsoft开发）；后 者是指客户端用户输入的数据通过网络传输到WWW服务器，服务器处理结束后将处 理结果返回给客户端用户，常见的开发技术是WWW服务器扩展技术（如CGI，API等）。 此处主要讨论基于标准CGI技术的通过网络进行数据传输的交互实现。对这种人机 交互的实现，主要有三个环节需要解决：如何获取客户端传输的数据，如何提取有 效数据并处理这些数据，如何向客户端返回应答。下面分别结合有关技术，谈谈这 三方面问题的解决。 1．客户端传输数据的获取 由第三章CGI的原理可知，当服务端守护进程接收到客户端用户代理（如浏览器） 提交的CGI请求时，所创建的CGI子进程会设置与CGI请求内容有关的环境变量，并 建立服务器与外部CGI程序之间通讯的通道（即标准I／O）。CGI程序可以通过环境 变量，标准I／O或命令行参数获取客户端用户输入的数据。数据的获取与请求所采 用的HTTP方法（Method）和用户所使用的请求方式有关。用户通过CGI请求数据一 般有三种方式：HTMLFORM表，ISINDEX，可点击图片（ISMAP或Imagemaps）。后两 种方式是通过命令行参数传递用户的输入数据；在C语言中（下面的举例亦然）， CGI程序可以用argc和argv［int］获得这些参数值。而前一种方式则取决于HTTP请 求方法；但不管采用何种方法，都将用到环境变量来传递有关请求内容。 ●获取环境变量 环境变量的类别很多，包含客户端和服务端的详细信息。在一般CGI程序开发中， 下述几个环境变量在数据传递中起着重要作用。 ＊GATEWAY—INTERFACE CGI程序所使用的CGI标准接口的版本号。如使用的CGI1．1版，该变量表示为 “CGI／1．1” ＊REQUEST—METHOD HTTP请求方法。根据该变量值可判断CGI请求所采用的请求方法，以决定是通过Stdin 还是通过环境变量QUERY—STRING获取客户端传输数据。 ＊QUERY—STRING QUERY—STRING是CGI程序URL中″？″之后的数据。当使用ISINDEX查询或FORM表使 用GET方法时，客户端传输数据可以通过读取该变量而获得。 ＊CONTENT—LENGTH CONTENT—LENGTH表示客户端传输数据的字节数。 ＊CONTENT—TYPE CONTENT—TYPE表示客户端传输数据的数据编码类型。 利用—environ（int）函数可以获得所有的环境变量及其值； 利用getenv（constchar＊）函数可以获得指定环境变量的相应值。 ●HTTP请求方法 客户端用户代理提交的CGI请求是HTTP请求，其中包括HTTP请求方法。HTTP协议定义 的请求方法中常用的主要有GET和POST。 客户端FORM表的METHOD属性用来设置请求方法，其缺省值为GET。如果在FORM中使用 GET方法，CGI程序通过环境变量QUERY—STRING获取客户端传输数据。如果在FORM中 使用POST方法，CGI程序通过通过CONTENT—LENGTH获取客户端传输数据的字节数， 通过Stdin读取客户端传输数据。 2．有效数据的提取和处理 通过上述方式获取的客户端传输数据的一般格式为： name［1］=value［1］＆name［2］=value［2］＆．．．name［i］ =value［i］．．．name［n］=value［n］ （1Ι=iΙ=n） 其中name［i］表示变量名，它是在FORM表中某输入域的名字；value［i］表示变量 值，它是用户在FORM表中某输入域中输入的值。客户端传输数据的每对″Name=Value″ 串由′＆′字符分隔，其数据编码类型可以从环境变量CONTENT—TYPE获取。CGI／1．1 版仅支持“application／x－www－form－urlen?coded”编码方式。这种编码方式和 URL的编码方式一样，遵循两个规则：数据中的空格（ASCII码值32）编码成′＋′号； 保留字符编码成″％XX″形式，″XX″是该字符ASCII值的十六进制表示，比如″＄″ 的编码为″％24″，″？″的编码为″％3F″。因此，要获取客户端用户的输入数据， 必须对上述获取的数据进行分离和解码等处理。利用函数strtok（）、strchr（）等 可以实现数据分离处理，而数据的解码则需要对整个数据串进行扫描，将数据串中的 ″％XX″复原为对应的ASCII码。在提取到有效数据后，还可能进行许多其他的处理， 如数据库查询等。这种处理与普通编程相同。 3．向客户端返回应答 CGI程序处理结束后，通过标准输出流将应答信息传递给服务器，再由服务器返回给发 出请求的客户端。其输出的应答信息是HTTP应答消息，它一般由两部分组成：应答头 和应答数据。常见的应答头包括三种头域：Content—Type（数据编码类型，用MIME类 型表示），Location（特定文档的URL，这种情况不直接向客户端输出内容而输出该URL） 和Status（处理结果的状态码和状态描述）。HTTP应答头由几行格式相同的文本构成， 每行的基本格式为：″头域名：该域内容″。应答头和应答体之间用一空行加LF（或 CR／LF）分隔。应答体为CGI扩展程序的输出数据，其数据类型应该与Content—Type 值相一致。CGI程序的输出可以用printf（）、puts（）等标准I／O函数来实现。 4．CGI程序的开发及其一般流程 在开发CGI程序过程中，可根据实际情况（服务器提供的接口、实际需求和程序员经验 等）选择编程语言，如C／C＋＋，Perl，TCL，AnyUnixshell，VB，AppleScript。如 果选用C／C＋＋等语言，必须编译成可执行文件；如果选用Perl等解释语言，服务器 必须安装相应的解释器。 二、CGI与其它扩展技术的比较 除CGI标准扩展技术外，常见的扩展技术还有API（ApplicationProgrammingInterface） 和SSI（ServerSideIncludes），这两种技术都与具体的WWW服务器有关。下面先对这两 种技术简要说明，然后再对这三种技术作比较。SSI技术：当服务器守护进程接收到客 户端请求时，其子进程扫描客户端所请求的文档，以获取数据插入标志，再插入相关动 态数据，然后返回给客户端。这种技术简单，但效率不高。API技术：不同的WWW服务器 提供的API可能不同，比如O′ReillyWebsite提供的是WSAPI；PurveyorWebserver和Microsoft IIS提供的是ISAPI。利用这些API编写程序的流程和最后生成的文件类型也不一样；比 如用ISAPI，编写程序时必须依照它的特定框架，最后建立的文件可以是EXE文件和DLL 文件。下表（图3－3）列出了CGI、SSI和API三种技术在主要性能方面的比较：SSI CGI API 实现的灵活性 差 好 好 可实现的功能 差 强大 强大对程序员的要求 低 一般 较高 开发与测试时间 短 一般 较长 花费 低 一般 较高操作的风险性 低 低 较大移植性 较好 较好 差 CPU的负载 高 高 较低CGI和API都需要编程实现，利用它们可访问更 多的数据源；而SSI不需编程。利用API开发的扩展软件，其运行速度比CGI快，功能也 较CGI强；但其操作有一定的风险，出现错误时可能使系统崩溃（CGI程序不会），并 且它非常依赖于具体的服务器而移植性太差，开发周期较长。CGI在操作的风险性、软 件移植性、软件开发难度等方面较API有优势；其缺点在于CPU负载较高，特别是同时 发生的CGI请求很多时，将影响服务器的综合性能。综合比较而言，CGI比其它两种技 术更优秀，在实际应用中也最为普遍。

CGI技术及其开发(二)

教 学 纲 要 在 上 一 讲 中， 我 们 设 置 了 用 于 开 发 CGI 程 序 的 系 统。 今 天， 我 们 进 入： 第 二 部 分、 CGI 程 序 设 计 的 概 念 …… 第 二 部 分、 CGI 程 序 设 计 的 概 念 1．0 、 CGI 程 序 的 功 能： 　 　 首 先， 什 么 是 公 共 网 关 接 口（ CGI ） 呢？ CGI 是 一 个 用 于 定 义 WEB 服 务 器 与 外 部 程 序 之 间 通 信 方 式 的 标 准， 使 得 外 部 程 序 能 生 成 HTML 、 图 象 或 者 其 他 内 容， 而 服 务 器 处 理 的 方 式 与 那 些 非 外 部 程 序 生 成 的 HTML 、 图 象 或 者 其 他 内 容 的 处 理 方 式 是 相 同 的。 因 此， CGI 程 序 不 仅 使 你 能 生 成 静 态 内 容， 而 且 能 生 成 动 态 内 容。 使 用 CGI 的 原 因 在 于 它 是 一 个 定 义 良 好 并 被 广 泛 支 持 的 标 准。 虽 然， Java 、 ActiveX 等 可 以 完 成 CGI 程 序 的 功 能， 但 并 不 是 所 有 浏 览 器 都 支 持 它 们。 相 反， 所 有 浏 览 器 都 支 持 CGI ， 如： Lynx 、 IE 、 Netscape 等。 　 　 然 而， 和 其 他 技 术 一 样， CGI 也 有 它 的 局 限 性。 本 节 我 就 讲 述 CGI 程 序 的 功 能、 优 点 与 不 足。 1．1 、 CGI 功 能 　 　 有 许 多 任 务， CGI 是 最 佳 的 是 唯 一 的 选 择， 这 些 任 务 可 分 为 三 类： 初 级 任 务、 中 级 任 务 和 高 级 任 务。 初 级 任 务 是 一 些 不 用 怎 么 编 程 的 任 务， 如： 文 本 型 计 数 器 生 成 简 单 的 HTML 的 程 序 少 于 50 行 用 Perl 语 言、 Shell 脚 本、 C 语 言 或 C++ 语 言 编 写 的 程 序 　 　 这 样 的 任 务 用 CGI 来 写 至 少 有 三 点 好 处： 第 一、 CGI 运 行 最 快， 而 Java 等 开 销 太 大； 第 二、 CGI 标 准 于 当 前 浏 览 器 最 兼 容， 这 一 点 在 前 面 已 经 提 到； 第 三、 CGI 资 源 丰 富， 您 在 Internet 上 可 以 找 到 成 千 上 万 的 CGI 代 码。 　 　 中 级 任 务 是 包 括 图 象 映 象 和 其 他 一 些 稍 复 杂 的 程 序 设 计 任 务。 在 中 级 任 务 中， 用 CGI 和 Java 来 编 写 程 序 的 难 易 程 度 差 别 不 大。 　 　 此 类 任 务 包 括： 图 象 映 象 生 成 整 页 的 HTML 的 CGI 脚 本 动 画 　 　 很 有 特 点 的 是， 对 于 高 级 任 务， 用 CGI 比 用 Java 编 程 要 简 单 得 多。 此 类 任 务 有： 后 端 数 据 库 操 作 搜 索 引 擎 多 重 动 态 页 面 　 　 其 中， 后 端 数 据 库 操 作（ 存 取 数 据 库 的 应 用 程 序） 体 现 了 CGI 的 优 越 性。 CGI 有 一 定 的 历 史， 其 中 很 多 有 用 的 功 能 都 在 CGI 的 库 中 由 别 人 做 好 了； 同 时， 许 多 大 公 司 提 供 了 用 CGI 承 虿 僮 髌 涫 ? 菘 獾 姆 椒ā６ ? 遥琂 ava 是 一 种 程 序 设 计 语 言， 而 CGI 是 网 关 程 序 的 功 能 规 范。 如 果 Java 有 较 大 改 变， 您 得 重 写 整 个 程 序； 而 CGI 有 较 大 变 化 的， 您 只 要 升 级 CGI 库 程 序 即 可。 　 　 然 而， CGI 在 有 些 方 面 还 是 有 局 限 性 的。 1．2 、 CGI 的 局 限 性 　 　 在 图 象 映 象 和 动 画 方 面， CGI 程 序 不 如 Java 程 序 开 发 方 便。 现 在 Java 越 来 越 流 行， CGI 程 序 则 越 来 越 适 合 编 写 简 短 杂 乱 的 程 序 和 数 据 库 应 用 程 序。 1．3 、 CGI 程 序 功 能 　 　 CGI 程 序 的 最 大 特 点 是 可 以 用 任 何 一 种 语 言 编 制， 可 运 行 在 任 何 一 种 平 台 上， 只 要 它 符 合 CGI 的 规 范 即 可。 下 表 是 一 个 比 较： 任 务 CGI+HTML HTML 处 理 表 单 Yes No 创 建 WEB 页 面 上 非 静 态 内 容 Yes No 处 理 图 象 映 象 文 件 Yes Yes 在 WEB 页 面 和 文 档 中 搜 索 Yes No 创 建 表 单 Yes Yes 创 建 平 台 无 关 的 文 档 Yes Yes 创 建 聊 天 室 等 交 互 应 用 程 序 Yes No 页 面 动 态 生 成 Yes No 按 用 户 需 要 进 行 页 面 文 档 裁 剪 Yes No 　 　 下 面， 我 们 用 一 系 列“ Hello World ” 程 序 结 束 本 讲： Perl ： Require "cgi-lib.pl"; print &PrintHeader; print "\n"; print "Hello World\n"; print &PrintEnv; exit; 　 　 此 文 件 存 储 在 C:\HTTPD\CGI-BIN 目 录 下， 文 件 名 为 2_1.pl 。 在 浏 览 器 中 用 地 址 http://localhost/cgi-bin/2_1.pl 调 用。 注 意， 此 时 OmniHTTPD 应 在 运 行。 如 果 一 切 正 常， 您 可 以 在 浏 览 器 中 看 见“ Hello World ” 和 环 境 变 量。 C ： #include #include "html-lib.h" #include "cgi-lib.h" int main() { 　 　 html_header(); 　 　 html_begin("Test CGI"); 　 　 h1("CGI Program"); 　 　 printf(" ------------------------------------------------------------------------------ -- \n"); 　 　 h2("CGI Environment Variables"); 　 　 print_cgi_env(); 　 　 html_end(); 　 　 return 0; } 　 　 编 译 后 将 可 执 行 文 件 复 制 到 C:\HTTPD\CGI-BIN 下， 改 名 为 2_1.cgi ， 用 地 址 http://localhost/cgi-bin/2_1.cgi 调 用。

如何在标题栏上增加按钮

---- 大家在使用某些软件的过程中，有没有注意到有些软件有一些很有趣的东西。比如说在主窗口的标题栏上居然有一个按钮。在Internet中随处可见这样的小控件。按钮怎么可以加入到非客户区(Client)呢？

---- 在这里，最关键的一点就是，大家不要被传统知识误导：真的认为它是一个按钮。有名柄（handle)的控件当然不能放在标题栏上了。有经验的程序员用Spy++跟踪一下的话，马上就会发现其中的秘密。它并不是一个按钮，只不过是处理成按钮的样子罢了。

---- 既然知道了所以然，那么我们为什么不能自己来做一个呢，当然没问题，下面我们就用Delphi来实现它，讲注意我的注解。

---- 在具体实例之前，我们应该知道几个关于标题栏的重要的消息：

---- WM_NCPAINT：重画标题栏消息。我们必须截住它，可以在这里重画按钮；

---- WM_NCLBUTTONDOWN：在标题栏上按下鼠标左键消息。我们可以截住它，在标题栏上画出按钮按下的样子，并且可以在其中进行自已的单击事件的处理，使得它像一个按钮；

---- WM_NCLBUTTONUP：在标题栏上释放鼠标左键消息。我们可以截住它，在标题栏上画出按钮弹起的样子；

---- WM_NCLBUTTONDBLCLK：在标题栏上双击鼠标左键消息。我们可以截住它，当在按钮区域双击时，我们就该使其无效，从而避免窗体执行最大化和还原操作。

---- WM_NCRBUTTONDOWN：在标题栏上按下鼠标右键消息。我们可以截住它，当在按钮区域双击时，我们就该使其无效，从而避免弹出窗体按制菜单。

---- WM_NCMOUSEMOVE：在标题栏上移动鼠标消息。我们可以截住它，当鼠标移出按钮区域时，我们就必须画出按钮没有被按下，即凸起时的样子。

---- WM_NCACTIVATE：当标题栏在激活与非激活之间切换时收到该消息。我们可以截住它，当该窗口处理激活状态时，我们可以做一些事情，比如说将我们的标题栏按钮上的字体变灰或变黑来指示该窗口的当前状态。下面我没有加入该项功能，如果大家感兴趣的话，可以自己完成。

---- (大家从这里可以发现，标题栏的消息都是WM_NC开头的)

---- 实例文件可下载 5KB

---- 知道了原理之后，相信大家一定可以做出更漂亮的按钮来。

用Delphi实现壁纸更换

　　在Windows95/98中，都是使用注册表对系统数据进行管理,有关壁纸的设置数据保存在Hkey_Current_User\Control Panel\Desktop的Wallpaper和TileWallpaper 等键值中,只要成功修改了这两个键值,然后发消息给Windows即可更换壁纸。在本例的程序中,使用了一个Tform;两个Tspeedbutton(Speedbutton1用于接受用户的浏览命令,Speedbutton2用于接受用户的更换壁纸命令);一个Timage(用于显示图片)。另外，还用到一组文件控件：Tfilelistbox,Tdrivecombobox,Tdirectorylistbox,用于选择图片文件，可以设置FileListBox的mask属性，筛选显示在FileListBox 中的文件类型(如只显示.bmp文件)。下面的两个程序段是实现浏览图片和更换壁纸的关键代码。 Procedure Tform1.SpeedButton1Click(Sender:Tobject); Begin If (filelistbox1.FileName= ′′) Then {判断Filelistbox1中文件有没有被选中} 　　Messagedlg(′请先选择一幅位图′,mtInformation,[mbOK],0) Else Image1.Picture.LoadFormFile(Filelistbox1.FileName);{加载图片文件并显示} End; ProcedureTform1.SpeedButton2Click(Sender:TObject); Var Reg:Tregistry;{Tregistry 对象在Registry 单元中声明，需用Uses令引用Registry单元} } Begin If (Filelistbox1.FileName=′′) Then Messagedlg(′请先选择一幅位图′,mtinformation,[mbOK],0) Else Begin Reg:=Tregistry.Create;{创建Tregistry对象的实例} Reg.Rootkey:= Hkey_Current_User;{设置根键名称} Reg.OpenKey′Control Panel\Desktop′,False); {打开Control Panel\Desktop 路径对应的主键} Reg.WriteString (′TileWallPaper′, ′0′); Reg.WriteString ′Wallpaper′，fileli? stbox1.FileName);{向TileWallpaper 和Wallpaper串覆盖写入新值} Systemparametersinfo(SPI_SETDESKWallpaper,0,Nil,SPIF_SendChange);{向Windows发送消息，通知Windows更换壁纸} Reg.CloseKey;{将更改内容写入注册表并关闭} Reg.Free;{释放对象} End; End; 　　代码中用到的一些函数可以察看Delphi的联机帮助。需要注意的是:调用打开子键的函数OpenKey时，第二个参数一定要设为False。

本文出自：《电脑报》

在Delphi中获取和修改文件的时间

　　本文介绍了在Delphi中利用系统函数和Windows API函数调用来获取和修改文件的时间信息的方法。 熟悉Windows 95/98的朋友一定经常会用单击鼠标右键的方法来查看所选定的文件的属性信息。在属性菜单中会列出该文件的创建时间、修改时间和访问时间。这些信息常常是很有用的，它们的设置一般都是由操作系统（也就是由Dos/Windows等等）自动完成的，不会让用户轻易修改。 这里，我向大家介绍在Delphi中如何实现文件时间的获取和修改方法。Delphi中提供了很完备的Windows API函数的调用接口，可以方便的进行高级Windows编程。利用Delphi中的FindFirst函数可以得到一个文件的属性记录，该记录中的FindData域中就记载了详细的文件时间信息。然而遗憾的是，FindData中的时间信息是不能直接得到的。因此，本人编写了一个转换函数来完成文件时间格式的转换。下面给出了具体的实现方法，仅供参考： function CovFileDate(Fd:_FileTime):TDateTime; { 转换文件的时间格式 } var Tct:_SystemTime; Temp:_FileTime; begin FileTimeToLocalFileTime(Fd,Temp); FileTimeToSystemTime(Temp,Tct); CovFileDate:=SystemTimeToDateTime(Tct); end; 有了上面的函数支持，我们就可以获取一个文件的时间信息了。以下是一个简单的例子： procdeure GetFileTime(const Tf:string); { 获取文件时间，Tf表示目标文件路径和名称 } const Model='yyyy/mm/dd,hh:mm:ss'; { 设定时间格式 } var Tp:TSearchRec; { 申明Tp为一个查找记录 } T1,T2,T3:string; begin FindFirst(Tf,faAnyFile,Tp); { 查找目标文件 } T1:=FormatDateTime(Model, CovFileDate(Tp.FindData.ftCreationTime))); { 返回文件的创建时间 } T2:=FormatDateTime(Model, CovFileDate(Tp.FindData.ftLastWriteTime))); { 返回文件的修改时间 } T3:=FormatDateTime(Model,Now)); { 返回文件的当前访问时间 } FindClose(Tp); end; 设置文件的时间要复杂一些，这里介绍利用Delphi中的DataTimePicker组件来辅助完成这一复杂的操作。下面的例子利用了四个DataTimePicker组件来完成文件创建时间和修改时间的设置。注意：文件的访问时间用修改时间来代替。使用下面的例子时，请在您的Form上添加四个DataTimePicker组件。其中第一和第三个DataTimePicker组件中的Kind设置为dtkDate，第二个和第四个DataTimePicker组件中的Kind设置为dtkTime. procedure SetFileDateTime(const Tf:string); { 设置文件时间，Tf表示目标文件路径和名称 } var Dt1,Dt2:Integer; Fs:TFileStream; Fct,Flt:TFileTime; begin Dt1:=DateTimeToFileDate( Trunc(Form1.DateTimePicker1.Date) + Frac(Form1.DateTimePicker2.Time)); Dt2:=DateTimeToFileDate( Trunc(Form1.DateTimePicker3.Date) + Frac(Form1.DateTimePicker4.Time)); { 转换用户输入在DataTimePicker中的信息 } try FS := TFileStream.Create(Tf, fmOpenReadWrite); try if DosDateTimeToFileTime(LongRec(DT1).Hi, LongRec(DT1).Lo, Fct) and LocalFileTimeToFileTime(Fct, Fct) and DosDateTimeToFileTime(LongRec(DT2).Hi, LongRec(DT2).Lo, Flt) and LocalFileTimeToFileTime(Flt, Flt) then SetFileTime(FS.Handle, @Fct, @Flt, @Flt); { 设置文件时间属性 } finally FS.Free; end; except MessageDlg('日期修改操作失败！', mtError, [mbOk], 0); { 因为目标文件正在被使用等原因而导致失败 } end; end; 以上简单介绍了文件时间属性的修改方法，请注意：修改文件时间的范围是从公元1792年9月19日开始的，上限可以达到公元2999年或更高。另外，请不要将此技术用于破坏他人文件等非正当途径。

[ 本文仅供参考 http://leonyxl.yeah.net/ ] 题目：任何动态改变/添加网络设置中的 TCP/IP 的 DNS 地址 例如，把 DNS Server的地址添加为192.0.0.1和192.1.1.0，可调用： SetTCPIPDNSAddresses('192.0.0.1 192.1.1.0') ; // 各地址之间用一个空格隔开 1. SetTCPIPDNSAddresses 定义如下： procedure SetTCPIPDNSAddresses( sIPs : string ); begin // // if using Windows NT // SaveStringToRegistry_LOCAL_MACHINE( 'SYSTEM\CurrentControlSet' + '\Services\Tcpip\Parameters', 'NameServer', sIPs ); // // if using Windows 95 // SaveStringToRegistry_LOCAL_MACHINE( 'SYSTEM\CurrentControlSet' + '\Services\VxD\MSTCP', 'NameServer', sIPs ); end; 2. 其中 SaveStringToRegistry_LOCAL_MACHINE 定义： uses Registry; procedure SaveStringToRegistry_LOCAL_MACHINE( sKey, sItem, sVal : string ); var reg : TRegIniFile; begin reg := TRegIniFile.Create( '' ); reg.RootKey := HKEY_LOCAL_MACHINE; reg.WriteString( sKey, sItem, sVal + #0 ); reg.Free; end; //====================================

让彩色光标出现在Delphi程序中

　在Delphi中用Loadcursor()得到的光标只有黑白两色，怎样在程序中得到彩色光标呢？笔者尝试制作了以下程序： 　　方法一　用Loadcursorfromfile()从外部调入图标作为光标 　　Loadcursorfromfile()函数可以读＊?CUR，＊?ICO，＊?ANI为后缀的文件作为光标，其中ICO为彩色图标格式（可用Image Editor制作），ANI为动画光标格式。以下为打开一图标作为光标的演示程序段，当光标移动到测试区域内光标会变成选定的图案； 　　{设：opendialog1:Topendialog;Bitbtn1:Tbitbtn} 　　procedure TForm1.BitBtn1Click(Sender:TObject); 　　var tt:pchar;size:integer;s:string; 　　begin 　　if opendialog1.Execute then 　　begin 　　size:=length(opendialog1.filename); 　　getmem(tt,size); 　　s:=opendialog1.filename; 　　strpcopy(tt,s); 　　screen.cursors[2]:=loadcursorfromfile(tt); 　　bf.cursor:=2; 　　freemem(tt,size); 　　end; 　　end; 　　方法二　从资源文件加载彩色光标 　　用方法一发送程序时必须包含＊?CUR文件，因而从资源文件中加载彩色光标是更可行的方法。用图标存放彩色光标，使用时把图标存入临时文件，用Loadcursorfromfile（）从临时文件读出彩色光标。 　　程序段： 　　procedure ZloadfromResourse(screenindex:integer;name:Pchar); 　　var td:ticon; 　　begin 　　try 　　td:=ticon.Create; 　　td.Handle:=LoadIcon(Hinstance,name); 　　td.SaveToFile(′temp.cur′); 　　screen.Cursors[screenindex]:=loadcursorfromfile(′temp.cur′); 　　deletefile(′temp.cur′); 　　finally 　　td.free; 　　end; 　　end; 　　此程序把名字为name的图标变为序号为screenindex的光标; 　　例： 　　ZloadfromResourse(2,′myicon′); 　　Form1.cursor:=2; 　　注意：′myicon′这个图标一定要在资源文件中，否则会出现异常。　　

面向组件的系统开发方法

应用软件的开发所面临的最大问题是变化的需求，这种变化可能来自下面几个方面： 用户对系统本身认识的变化。用户对系统本身的认识在系统设计初期和系统接近完成时期是完全不同的， 在系统规划初期，用户对系统只能提出大概的想象，这种想象在系统实际的开发过程中会不断的完整和深化。 实际应用环境的变化。在大型项目开发中表现得犹为明显，由于大型项目开发的时间较长，所涉及的子系统 和外界因素较多，在开发过程中实际的应用环境会有大量的更改，甚至可能根本不复存在。 开发技术和开发机构本身的变化。由于技术的发展和开发机构本身的调整可能会导致开发工具和开发方案的 修改。 对系统的扩展。在系统投入运行后，可能会有新的要求被提出，新的数据被处理。 不考虑那种导致系统重新规划和设计的需求更改，在那种情况下，唯一能做的就是完全开发新的系统。在基 于同样的设计框架的基础上，这种更改可以划分为下面的层次： 界面的变化：主要分为两个层次，首先是指界面的观感的变化，指界面的颜色、布局、字体等视觉效果。 其次，是指界面逻辑的变化，例如，操作的步骤，选择的顺序、界面元素的表示方式、界面隐喻等。 数据的变化：例如，增加新的数据项目、增加新的统计内容、将已有的处理逻辑扩展到新的数据对象上等。 处理的变化：例如，增加新的处理逻辑，更改业务逻辑的部分内容。 在变化的需求和变化的技术本身这个环境下，必须采用相对独立于需求，独立于软件的应用环境的开发方 法和模型。由于需求和数据的可变性，我们的焦点应该在系统的业务逻辑上，而对于特定业务领域，业务逻 辑应该是相对较为固定的。例如，对于机场信息管理系统，基本的业务类型应该包括： 基本信息的定义、录入、和修改 固定计划的生成 动态信息的获取和检索 资源使用的监视 资源的分配和回收 采用面向组件的开发方法，我们将应用软件的开发看成组件的开发和组件的组合，对应于应用的不同层次， 我们的组件层可以分为： 业务逻辑层：对应于非可视组件，独立于具体的数据源，抽象出基本的数据处理的逻辑，包括 数据获取和处理（从任意的数据库中取出需要的数据，并进行处理） 网络通讯（独立于位置的网络通讯） 系统功能和实现。 在该层次中，可以有不同的组件相互作用，协作完成任务。 界面模型层：对应于可视组件 按照习惯的界面模型，收集和制作与用户的操作习惯相一致的界面基本元素，如计划列表、资源查看列表等。