Delphi网络编程三例

望月 
2001年 39期

　　Delphi是具可视化界面的面向对象编程语言，它以其功能强大、简便易用等诸多特性，深受编程人员的欢迎。下面笔者就列举Delphi在网络方面的三则应用，来说明Delphi强大的编程功能。
　　#1    向数据库输入记录
　　　　我们在开发数据库应用程序时，常常需要编写必要的程序代码对一些特定事件进行处理，以便能方便地完成对多种数据库进行的数据处理。在此，笔者就列举一则如何编写向数据库输入记录的编写方法，这里以页面中的TEdit类型编辑框内容作为数据源，向数据库输入记录的部分原代码如下:
　　　　procedure DataInsert（const qName:TQuery;
　　　　szDBName:string iNum:Integer
　　　　iMark array of Integer:eName:array of TEdit）;　
　　　　var
　　　　i:Integer
　　　　szSQL:string
　　　　begin
　　　　if DataModule1.DataBase1.InTransaction=true then
　　　　DataModule1.DataBase1.RollBack;
　　　　DataModule1.DataBase1.StartTransaction;
　　　　szSQL:= ＇INSERT INTO ＇+szDBName+＇ VALUES（＇
　　　　for i:=0 to iNum-1 do
　　  　begin
　　　　if iMark[i]=0 then
　　　　szSQL:=szSQL+eName[i].Text{非字符方式}
　　　　else
　　　　szSQL:=szSQL+＇"＇+eName[i].Text+＇"＇;{字符方式}
　　　　if i=iNum-1 then
　　　　szSQL:=szSQL+＇）＇
　　　　else
　　　　szSQL:=szSQL+＇，＇;
　　　　end;
　　　　qName.Close;{关闭查询}
　　　　qName.SQL.Clear;{清SQL特性内容}
　　　　qName.SQL.ADD（szSQL）;{添加SQL内容}
　　　　szSQL:= ＇SELECT * FROM ＇+szDBName;
　　　　qName.SQL.ADD（szSQL）;
　　　　qName.Open;{返回结果集}
　　　　DataModule1.DataBase1.Commit;
　　　　end;
　　#1    实现超级链接效果
　　　　该例子是表示当鼠标指向某字体，该字体就出现下划线，鼠标指针变为一只手指，按下后就打开浏览器或邮件编写器的功能，请按下列办法做:
　　　　先在一个窗体中加入一个Label1，在OnMouseMove事件里加入下列代码:
　　　　procedure TForm1.Label1MouseMove（Sender:TObject;shift:Tshiftstate;x，y:integer）;
　　　　begin
　　　　Label1.Font.Style:=[fsbold，fsunderline];
　　　　Label1.Font.Color:=clYellow;
　　　　end;
　　　　{接着在Form1的OnMouseMove事件里加入下列代码}
　　　　procedure TForm1.FormMouseMove（Sender:TObject;shift:Tshiftstate;x，y:integer）;
　　　　begin
　　　　Label1.Font.Style:=[fsbold];
　　　　Label1.Font.Color:=clmaroon;
　　　　end;
　　　　procedure TForm1.Label1Click（Sender:TObject）;
　　　　begin
　　　　Shellexecute（handle，nil，pchar（＇mailto:test@21cn.com＇），nil，nil，sw_shownormal）;　
　　　　end;
　　　　最后，再将Label1.Cursor的鼠标指针设为crHandPoint，那么就有这种效果了。
　　#1    获取局域网信息
　　　　如果你是一位局域网的系统管理员的话，肯定要经常对连接在局域网中的各个工作组进行管理和维修，并对每一台工作组建立相关的信息档案，以后只要根据这些档案信息就知道对应的工作组的运行情况，从而可以大大提高管理的效率了。此时，可能有人说，要查看这些工作组的信息，不是还要一台一台地打开、一台一台地查看吗？的确，如果还是这样操作的话，工作效率肯定还是不会提高，那么我们有没有办法同时获取局域网中的每一台工作组的信息呢？答案当然是肯定的，我们可以使用Delphi中的Win API来获取局域网中的每一台工作组的信息，下面是获取工作组信息的源代码:
　　　　Function GetServerList（var List：TStringList）：Boolean；
　　　　Var //显示所有工作组的名称
　　　　NetResource：TNetResource；
　　　　Buf：Pointer；
　　　　Count，BufSize，Res：DWORD；
　　　　lphEnum：THandle；
　　　　p：TNetResourceArray；
　　　　i，j：SmallInt；
　　　　NetworkTypeList：TList；//返回局域网中的工作组名称
　　　　Begin
　　　　Result:=False；
　　　　NetworkTypeList：=TList.Create；
　　　　List.Clear；//获取整个网络中的文件资源的句柄，lphEnum为返回名柄
　　　　Res：=WNetOpenEnum（RESOURCE_GLOBALNET，RESOURCETYPE_DISK，RESOURCEUSAGE_CONTAINER，Nil，lphEnum）;
　　　　If Res <>NO_ERROR Then exit;//Raise Exception（Res）;//执行失败
　　　　//获取整个网络中的网络类型信息
　　　　Count:=$FFFFFFFF;//不限资源数目
　　　　BufSize:=8192;//缓冲区大小设置为8K
　　　　GetMem（Buf，BufSize）;//申请内存，用于获取工作组信息
　　　　Res:= WNetEnumResource（lphEnum，Count，Pointer（Buf），BufSize）;
　　　　If（Res=ERROR_NO_MORE_ITEMS）//资源列举完毕
　　　　or（Res <>NO_ERROR）//执行失败
　　　　Then Exit;
　　　　P:=TNetResourceArray（Buf）;　
　　　　For I:=0 To Count - 1 Do //记录各个网络类型的信息
　　　　Begin
　　　　NetworkTypeList.Add（p）;　
　　　　Inc（P）;　
　　　　End;
　　　　//WNetCloseEnum关闭一个列举句柄
　　　　Res:=WNetCloseEnum（lphEnum）;//关闭一次列举
　　　　If Res <> NO_ERROR Then exit;
　　　　For J:=0 To NetworkTypeList.Count-1 Do //列出各个网络类型中的所有工作组名称
　　　　Begin//列出一个网络类型中的所有工作组名称
　　　　NetResource:=TNetResource（NetworkTypeList.Items[J]^）;//网络类型信息
　　　　//获取某个网络类型的文件资源的句柄，NetResource为网络类型信息，lphEnum为返回名柄
　　　　Res:=WNetOpenEnum（RESOURCE_GLOBALNET，RESOURCETYPE_DISK，RESOURCEUSAGE_CONTAINER，@NetResource，lphEnum）;
　　　　If Res <>NO_ERROR Then break;//执行失败
　　　　While true Do//列举一个网络类型的所有工作组的信息
　　　　Begin
　　　　Count:=$FFFFFFFF;//不限资源数目
　　　　BufSize:=8192;//缓冲区大小设置为8K
　　　　GetMem（Buf，BufSize）;//申请内存，用于获取工作组信息
　　　　//获取一个网络类型的文件资源信息，
　　　　Res:=WNetEnumResource（lphEnum，Count，Pointer（Buf），BufSize）;　
　　　　If（Res=ERROR_NO_MORE_ITEMS）//资源列举完毕
　　　　or（Res <>NO_ERROR）//执行失败
　　　　then break;
　　　　P:=TNetResourceArray（Buf）;　
　　　　For I:= 0 To Count - 1 Do //列举各个工作组的信息
　　　　Begin
　　　　List.Add（StrPAS（P^.lpRemoteName））;//取得一个工作组的名称
　　　　Inc（P）;　
　　　　End;
　　　　End;
　　　　Res:= WNetCloseEnum（lphEnum）;//关闭一次列举
　　　　If Res <> NO_ERROR Then break;//执行失败
　　　　End;
　　　　Result:= True;
　　　　FreeMem（Buf）;　
　　　　NetworkTypeList.Destroy;
　　　　End;
　　 
 