Delphi_流操作的语法

1、谈Delphi编程中“流”的应用陈经韬什么是流?流,简单来说就是建立在面向对象基础上的一种抽象的处理数据的工具。在流中,定义了一些处理数据的基本操作,如读取数据,写入数据等,程序员是对流进行所有操作的,而不用关心流的另一头数据的真正流向。流不但可以处理文件,还可以处理动态内存、网络数据等多种数据形式。如果你对流的操作非常熟练,在程序中利用流的方便性,写起程序会大大提高效率的。下面,笔者通过四个实例:EXE文件加密器、电子贺卡、自制OICQ和网络屏幕传输来说明Delphi编程中“流”的利用。这些例子中的一些技巧曾经是很多软件的秘密而不公开的,现在大家可以无偿的直接引用其中的代码了。“万丈高楼平地

2、起”,在分析实例之前,我们先来了解一下流的基本概念和函数,只有在理解了这些基本的东西后我们才能进行下一步。请务必认真领会这些基本方法。当然,如果你对它们已经很熟悉了,则可以跳过这一步。一、Delphi中流的基本概念及函数声明在Delphi中,所有流对象的基类为TStream类,其中定义了所有流的共同属性和方法。TStream类中定义的属性介绍如下:1、Size:此属性以字节返回流中数据大小。2、Position:此属性控制流中存取指针的位置。Tstream中定义的虚方法有四个:1、Read:此方法实现将数据从流中读出。函数原形为:Function Read(var BufferCount:Lo

3、ngint:Longintvirtualabstract参数Buffer为数据读出时放置的缓冲区,Count为需要读出的数据的字节数,该方法返回值为实际读出的字节数,它可以小于或等于Count中指定的值。2、Write:此方法实现将数据写入流中。函数原形为:Function Write(var BufferCount:Longint:Longintvirtualabstract参数Buffer为将要写入流中的数据的缓冲区,Count为数据的长度字节数,该方法返回值为实际写入流中的字节数。3、Seek:此方法实现流中读取指针的移动。函数原形为:Function Seek(Offset:Longi

4、ntOrigint:Word:Longintvirtualabstract参数Offset为偏移字节数,参数Origint指出Offset的实际意义,其可能的取值如下: soFromBeginning:Offset为移动后指针距离数据开始的位置。此时Offset必须大于或者等于零。soFromCurrent:Offset为移动后指针与当前指针的相对位置。soFromEnd:Offset为移动后指针距离数据结束的位置。此时Offset必须小于或者等于零。该方法返回值为移动后指针的位置。4、Setsize:此方法实现改变数据的大小。函数原形为:Function Setsize(NewSize:Lo

5、ngintvirtual另外,TStream类中还定义了几个静态方法:1、ReadBuffer:此方法的作用是从流中当前位置读取数据。函数原形为:Procedure ReadBuffer(var BufferCount:Longint参数的定义跟上面的Read相同。注意:当读取的数据字节数与需要读取的字节数不相同时,将产生EReadError异常。2、WriteBuffer:此方法的作用是在当前位置向流写入数据。函数原形为:Procedure WriteBuffer(var BufferCount:Longint参数的定义跟上面的Write相同。注意:当写入的数据字节数与需要写入的字节数不相同

6、时,将产生EWriteError异常。3、CopyFrom:此方法的作用是从其它流中拷贝数据流。函数原形为:Function CopyFrom(Source:TStreamCount:Longint:Longint参数Source为提供数据的流,Count为拷贝的数据字节数。当Count大于0时,CopyFrom从Source参数的当前位置拷贝Count个字节的数据;当Count等于0时,CopyFrom设置Source 参数的Position属性为0,然后拷贝Source的所有数据;TStream还有其它派生类,其中最常用的是TFileStream类。使用TFileStream类来存取文件,

7、首先要建立一个实例。声明如下:constructor Create(const Filename:stringMode:WordFilename为文件名(包括路径,参数Mode为打开文件的方式,它包括文件的打开模式和共享模式,其可能的取值和意义如下:打开模式:fmCreate:用指定的文件名建立文件,如果文件已经存在则打开它。fmOpenRead:以只读方式打开指定文件fmOpenWrite:以只写方式打开指定文件fmOpenReadWrite:以写写方式打开指定文件共享模式:fmShareCompat:共享模式与FCBs兼容fmShareExclusive:不允许别的程序以任何方式打开该文件

8、fmShareDenyWrite:不允许别的程序以写方式打开该文件fmShareDenyRead:不允许别的程序以读方式打开该文件fmShareDenyNone:别的程序可以以任何方式打开该文件TStream还有一个派生类TMemoryStream,实际应用中用的次数也非常频繁。它叫内存流,就是说在内存中建立一个流对象。它的基本方法和函数跟上面是一样的。好了,有了上面的基础后,我们就可以开始我们的编程之行了。­­­­­­­­­­­­­­­

9、3;­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­

10、3;­­­­­二、实际应用之一:利用流制作EXE文件加密器、捆绑、自解压文件及安装程序我们先来说一下如何制作一个EXE文件加密器吧。EXE文件加密器的原理:建立两个文件,一个用来添加资源到另外一个EXE文件里面,称为添加程序。另外一个被添加的EXE文件称为头文件。该程序的功能是把添加到自己里面的文件读出来。Windows下的EXE文件结构比较复杂,有的程序还有校验和,当发现自己被改变后会认为自己被病毒感染而拒绝执行。所以我们把文件添加到自己的程序里面,这样就不会改变原来的文件结构了。我们先写一个添加函数,该函数的功能是把一个文件当作一个流添加到

11、另外一个文件的尾部。函数如下:Function Cjt_AddtoFile(SourceFile,TargetFile:string:BooleanvarTarget,Source:TFileStreamMyFileSize:integerbegintrySource:=TFileStream.Create(SourceFile,fmOpenRead or fmShareExclusiveTarget:=TFileStream.Create(TargetFile,fmOpenWrite or fmShareExclusivetryTarget.Seek(0,soFromEnd/往尾部添加资源T

12、arget.CopyFrom(Source,0MyFileSize:=Source.Size+Sizeof(MyFileSize/计算资源大小,并写入辅程尾部Target.WriteBuffer(MyFileSize,sizeof(MyFileSizefinallyTarget.FreeSource.FreeendexceptResult:=FalseExitendResult:=Trueend有了上面的基础,我们应该很容易看得懂这个函数。其中参数SourceFile是要添加的文件,参数TargetFile是被添加到的目标文件。比如说把a.exe添加到b.exe里面可以:Cjt_AddtoFi

13、le('a.exe',b.exe'如果添加成功就返回True否则返回假。根据上面的函数我们可以写出相反的读出函数:Function Cjt_LoadFromFile(SourceFile,TargetFile:string:BooleanvarSource:TFileStreamTarget:TMemoryStreamMyFileSize:integerbegintryTarget:=TMemoryStream.CreateSource:=TFileStream.Create(SourceFile,fmOpenRead or fmShareDenyNonetrySour

14、ce.Seek(­sizeof(MyFileSize,soFromEndSource.ReadBuffer(MyFileSize,sizeof(MyFileSize/读出资源大小Source.Seek(­MyFileSize,soFromEnd/定位到资源位置Target.CopyFrom(Source,MyFileSize­sizeof(MyFileSize/取出资源Target.SaveToFile(TargetFile/存放到文件finallyTarget.FreeSource.FreeendexceptResult:=falseExitendResult:

15、=trueend其中参数SourceFile是已经添加了文件的文件名称,参数TargetFile是取出文件后保存的目标文件名。比如说Cjt_LoadFromFile('b.exe','a.txt'在b.exe中取出文件保存为a.txt。如果取出成功就返回True否则返回假。打开Delphi,新建一个工程,在窗口上放上一个Edit控件Edit1和两个Button:Button1和Button2。Button的Caption属性分别设置为“确定”和“取消”。在Button1的Click事件中写代码: var S:stringbeginS:=ChangeFileExt

16、(Application.ExeName,'.Cjt'if Edit1.Text='790617'thenbeginCjt_LoadFromFile(Application.ExeName,S取出文件保存在当前路径下并命名"原文件.Cjt"Winexec(pchar(S,SW_Show运行"原文件.Cjt"Application.Terminate退出程序endelseApplication.MessageBox('密码不对,请重新输入!','密码错误',MB_ICONERROR+MB_OK

17、编译这个程序,并把EXE文件改名为head.exe。新建一个文本文件head.rc,内容为:head exefile head.exe,然后把它们拷贝到Delphi的BIN目录下,执行Dos命令Brcc32.exe head.rc,将产生一个head.res的文件,这个文件就是我们要的资源文件,先留着。我们的头文件已经建立了,下面我们来建立添加程序。新建一个工程,放上以下控件:一个Edit,一个Opendialog,两个Button1的Caption属性分别设置为"选择文件"和"加密"。在源程序中添加一句:$R head.res并把head.res文件拷

18、贝到程序当前目录下。这样一来就把刚才的head.exe跟程序一起编译了。在Button1的Cilck事件里面写下代码:if OpenDialog1.Execute then Edit1.Text:=OpenDialog1.FileName在Button2的Cilck事件里面写下代码:var S:StringbeginS:=ExtractFilePath(Edit1.Textif ExtractRes('exefile','head',S+'head.exe'thenif Cjt_AddtoFile(Edit1.Text,S+'head.e

19、xe'thenif DeleteFile(Edit1.Textthenif RenameFile(S+'head.exe',Edit1.TextthenApplication.MessageBox('文件加密成功!','信息',MB_ICONINFORMATION+MB_OKelsebeginif FileExists(S+'head.exe'then DeleteFile(S+'head.exe'Application.MessageBox('文件加密失败!','信息',M

20、B_ICONINFORMATION+MB_OKendend其中ExtractRes为自定义函数,它的作用是把head.exe从资源文件中取出来。Function ExtractRes(ResType,ResName,ResNewName:String:booleanvarRes:TResourceStreambegintryRes:=TResourceStream.Create(Hinstance,Resname,Pchar(ResTypetryRes.SavetoFile(ResNewNameResult:=truefinallyRes.FreeendexceptResult:=falsee

21、ndend注意:我们上面的函数只不过是简单的把一个文件添加到另一个文件的尾部。实际应用中可以改成可以添加多个文件,只要根据实际大小和个数定义好偏移地址就可以了。比如说文件捆绑机就是把两个或者多个程序添加到一个头文件里面。那些自解压程序和安装程序的原理也是一样的,不过多了压缩而已。比如说我们可以引用一个LAH单元,把流压缩后再添加,这样文件就会变的很小。读出来时先解压就可以了。另外,文中EXE加密器的例子还有很多不完善的地方,比如说密码固定为"790617",取出EXE运行后应该等它运行完毕后删除等等,读者可以自行修改。­­­­

22、3;­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­

23、3;­­­­­­­­­­­­­­三、实际应用之二:利用流制作可执行电子贺卡我们经常看到一些电子贺卡之类的制作软件,可以让你自己选择图片,然后它会生成一个EXE可执行文件给你。打开贺卡时就会一边放音乐一边显示出图片来。现在学了流操作之后,我们也可以做一个了。添加图片过程我们可以直接用前面的Cjt_AddtoFile,而现在要做的是如何把图像读出并显示。我们用前面的Cjt_LoadFromFile先把图片读出来保存为文件再调入也是可以的,但是还有更简单的方法,

24、就是直接把文件流读出来显示,有了流这个利器,一切都变的简单了。现在的图片比较流行的是BMP格式和JPG格式。我们现在就针对这两种图片写出读取并显示函数。Function Cjt_BmpLoad(ImgBmp:TImageSourceFile:String:BooleanvarSource:TFileStreamMyFileSize:integerbeginSource:=TFileStream.Create(SourceFile,fmOpenRead or fmShareDenyNonetrytrySource.Seek(­sizeof(MyFileSize,soFromEndSou

25、rce.ReadBuffer(MyFileSize,sizeof(MyFileSize/读出资源Source.Seek(­MyFileSize,soFromEnd/定位到资源开始位置ImgBmp.Picture.Bitmap.LoadFromStream(SourcefinallySource.FreeendexceptResult:=FalseExitendResult:=Trueend上面是读出BMP图片的,下面的是读出JPG图片的函数,因为要用到JPG单元,所以要在程序中添加一句:uses jpeg。Function Cjt_JpgLoad(JpgImg:TimageSourc

26、eFile:String:BooleanvarSource:TFileStreamMyFileSize:integerMyjpg:TJpegImagebegintryMyjpg:=TJpegImage.CreateSource:=TFileStream.Create(SourceFile,fmOpenRead or fmShareDenyNonetrySource.Seek(­sizeof(MyFileSize,soFromEndSource.ReadBuffer(MyFileSize,sizeof(MyFileSizeSource.Seek(­MyFileSize,soF

27、romEndMyjpg.LoadFromStream(SourceJpgImg.Picture.Bitmap.Assign(MyjpgfinallySource.FreeMyjpg.freeendexceptResult:=falseExitendResult:=trueend有了这两个函数,我们就可以制作读出程序了。下面我们以BMP图片为例:运行Delphi,新建一个工程,放上一个显示图像控件Image1。在窗口的Create事件中写上一句就可以了:Cjt_BmpLoad(Image1,Application.ExeName这个就是头文件了,然后我们用前面的方法生成一个head.res资源文

28、件。下面就可以开始制作我们的添加程序了。全部代码如下:unit Unit1interfaceusesWindows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,ExtCtrls,StdCtrls,ExtDlgstypeTForm1=class(TFormEdit1:TEditButton1:TButtonButton2:TButtonOpenPictureDialog1:TOpenPictureDialogprocedure FormCreate(Sender:TObjectprocedure Button1Click(S

29、ender:TObjectprocedure Button2Click(Sender:TObjectprivateFunction ExtractRes(ResType,ResName,ResNewName:String:booleanFunction Cjt_AddtoFile(SourceFile,TargetFile:string:BooleanPrivate declarationspublicPublic declarationsendvarForm1:TForm1implementation$R*.DFMFunction TForm1.ExtractRes(ResType,ResN

30、ame,ResNewName:String:booleanvarRes:TResourceStreambegintryRes:=TResourceStream.Create(Hinstance,Resname,Pchar(ResTypetryRes.SavetoFile(ResNewNameResult:=truefinallyRes.FreeendexceptResult:=falseendendFunction TForm1.Cjt_AddtoFile(SourceFile,TargetFile:string:BooleanvarTarget,Source:TFileStreamMyFil

31、eSize:integerbegintrySource:=TFileStream.Create(SourceFile,fmOpenRead or fmShareExclusiveTarget:=TFileStream.Create(TargetFile,fmOpenWrite or fmShareExclusivetryTarget.Seek(0,soFromEnd/往尾部添加资源Target.CopyFrom(Source,0MyFileSize:=Source.Size+Sizeof(MyFileSize/计算资源大小,并写入辅程尾部Target.WriteBuffer(MyFileSiz

32、e,sizeof(MyFileSizefinallyTarget.FreeSource.FreeendexceptResult:=FalseExitendResult:=Trueendprocedure TForm1.FormCreate(Sender:TObjectbeginCaption:='Bmp2Exe演示程序.作者:陈经韬'Edit1.Text:=''OpenPictureDialog1.DefaultExt:=GraphicExtension(TBitmapOpenPictureDialog1.Filter:=GraphicFilter(TBitma

33、pButton1.Caption:='选择BMP图片'Button2.Caption:='生成EXE'endprocedure TForm1.Button1Click(Sender:TObjectbeginif OpenPictureDialog1.Execute thenEdit1.Text:=OpenPictureDialog1.FileNameendprocedure TForm1.Button2Click(Sender:TObjectvarHeadTemp:Stringbeginif Not FileExists(Edit1.TextthenbeginA

34、pplication.MessageBox('BMP图片文件不存在,请重新选择!','信息',MB_ICONINFORMATION+MB_OKExitendHeadTemp:=ChangeFileExt(Edit1.Text,'.exe'if ExtractRes('exefile','head',HeadTempthenif Cjt_AddtoFile(Edit1.Text,HeadTempthenApplication.MessageBox('EXE文件生成成功!','信息',M

35、B_ICONINFORMATION+MB_OKelsebeginif FileExists(HeadTempthen DeleteFile(HeadTempApplication.MessageBox('EXE文件生成失败!','信息',MB_ICONINFORMATION+MB_OKendendend.怎么样?很神奇吧:把程序界面弄的漂亮点,再添加一些功能,你会发现比起那些要注册的软件来也不会逊多少吧。­­­­­­­­­­­­­&#

36、173;­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­&#

37、173;­­­­­­­实际应用之三:利用流制作自己的OICQOICQ是深圳腾讯公司的一个网络实时通讯软件,在国内拥有大量的用户群。但OICQ必须连接上互联网登陆到腾讯的服务器才能使用。所以我们可以自己写一个在局部网里面使用。OICQ使用的是UDP协议,这是一种无连接协议,即通信双方不用建立连接就可以发送信息,所以效率比较高。Delphi本身自带的FastNEt公司的NMUDP控件就是一个UDP协议的用户数据报控件。不过要注意的是如果你使用了这个控件必须退出程序才能关闭计算机,因为TNMXXX控件有BUG。所有nm控件的基础P

38、owerSocket用到的ThreadTimer,用到一个隐藏的窗口(类为TmrWindowClass处理有硬伤。出问题的地方:Psock:TThreadTimer:WndProc(var msg:TMessageif msg.message=WM_TIMER then他自己处理msg.result:=0elsemsg.result:=DefWindowProc(0,.end问题就出在调用DefWindowProc时,传输的HWND参数居然是常数0,这样实际上DefWindowProc是不能工作的,对任何输入的消息的调用均返回0,包括WM_QUERYENDSESSION,所以不能退出windo

39、ws。由于DefWindowProc的不正常调用,实际上除WM_TIMER,其他消息由DefWindowProc处理都是无效的。解决的办法是在PSock.pas在TThreadTimer.Wndproc内Result:=DefWindowProc(0,Msg,WPARAM,LPARAM改为:Result:=DefWindowProc(FWindowHandle,Msg,WPARAM,LPARAM早期低版本的OICQ也有这个问题,如果不关闭OICQ的话,关闭计算机时屏幕闪了一下又返回了。好了,废话少说,让我们编写我们的OICQ吧,这个实际上是Delphi自带的例子而已:新建一个工程,在FASTN

40、ET面版拖一个NMUDP控件到窗口,然后依次放上三个EDIT,名字分别为EditIP、EditPort、EditMyTxt,三个按钮BtSend、BtClear、BtSave,一个MEMOMemoReceive,一个SaveDialog和一个状态条StatusBar1。当用户点击BtSend时,建立一个内存流对象,把要发送的文字信息写进内存流,然后NMUDP把流发送出去。当NMUDP 有数据接收时,触发它的DataReceived事件,我们在这里再把接收到的流转换为字符信息,然后显示出来。注意:所有的流对象建立后使用完毕后要记得释放(Free,其实它的释构函数应该为Destroy,但如果建立流

41、失败的话,用Destroy会产生异常,而用Free的话程序会先检查有没有成功建立了流,如果建立了才释放,所以用Free比较安全。在这个程序中我们用到了NMUDP控件,它有几个重要的属性。RemoteHost表示远程电脑的IP或者计算机名,LocalPort是本地端口,主要监听有没有数据传入。而RemotePort是远程端口,发送数据时通过这个端口把数据发送出去。理解这些已经可以看懂我们的程序了。全部代码如下:unit Unit1interfaceusesWindows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,StdCt

42、rls,ComCtrls,NMUDPtypeTForm1=class(TFormNMUDP1:TNMUDPEditIP:TEditEditPort:TEditEditMyTxt:TEditMemoReceive:TMemoBtSend:TButtonBtClear:TButtonBtSave:TButtonStatusBar1:TStatusBarSaveDialog1:TSaveDialogprocedure BtSendClick(Sender:TObjectprocedure NMUDP1DataReceived(Sender:TComponentNumberBytes:IntegerF

43、romIP:StringPort:Integerprocedure NMUDP1InvalidHost(var handled:Booleanprocedure NMUDP1DataSend(Sender:TObjectprocedure FormCreate(Sender:TObjectprocedure BtClearClick(Sender:TObjectprocedure BtSaveClick(Sender:TObjectprocedure EditMyTxtKeyPress(Sender:TObjectvar Key:CharprivatePrivate declarationsp

44、ublicPublic declarationsendvarForm1:TForm1implementation$R*.DFMprocedure TForm1.BtSendClick(Sender:TObjectvarMyStream:TMemoryStreamMySendTxt:StringIport,icode:integerBeginVal(EditPort.Text,Iport,icodeif icode<>0thenbeginApplication.MessageBox('端口必须为数字,请重新输入!','信息',MB_ICONINFORM

45、ATION+MB_OKExitendNMUDP1.RemoteHost:=EditIP.Text远程主机NMUDP1.LocalPort:=Iport本地端口NMUDP1.RemotePort:=Iport远程端口MySendTxt:=EditMyTxt.TextMyStream:=TMemoryStream.Create建立流tryMyStream.Write(MySendTxt1,Length(EditMyTxt.Text写数据NMUDP1.SendStream(MyStream发送流finallyMyStream.Free释放流endendprocedure TForm1.NMUDP1D

46、ataReceived(Sender:TComponentNumberBytes:IntegerFromIP:StringPort:IntegervarMyStream:TMemoryStreamMyReciveTxt:StringbeginMyStream:=TMemoryStream.Create建立流tryNMUDP1.ReadStream(MyStream接收流SetLength(MyReciveTxt,NumberBytesNumberBytes为接收到的字节数 MyStream.Read(MyReciveTxt1,NumberBytes读数据 MemoReceive.Lines.A

47、dd('接收到来自主机'+FromIP+'的信息:'+MyReciveTxtfinallyMyStream.Free释放流endendprocedure TForm1.NMUDP1InvalidHost(var handled:BooleanbeginApplication.MessageBox('对方IP地址不正确,请重新输入!','信息',MB_ICONINFORMATION+MB_OKendprocedure TForm1.NMUDP1DataSend(Sender:TObjectbeginStatusBar1.Simple

48、Text:='信息成功发出!'endprocedure TForm1.FormCreate(Sender:TObjectbeginEditIP.Text:=''EditPort.Text:='8868'BtSend.Caption:='发送'BtClear.Caption:='清除聊天记录'BtSave.Caption:='保存聊天记录'MemoReceive.ScrollBars:=ssBothMemoReceive.ClearEditMyTxt.Text:='在这里输入

49、信息,然后点击发送.'StatusBar1.SimplePanel:=trueendprocedure TForm1.BtClearClick(Sender:TObjectbeginMemoReceive.Clearendprocedure TForm1.BtSaveClick(Sender:TObjectbeginif SaveDialog1.Execute then MemoReceive.Lines.SaveToFile(SaveDialog1.FileNameendprocedure TForm1.EditMyTxtKeyPress(Sender:TObjectvar Key:

50、Charbeginif Key=#13then BtSend.Clickendend.上面的程序跟OICQ相比当然差之甚远,因为OICQ利用的是Socket5通信方式。它上线时先从服务器取回好友信息和在线状态,发送超时还会将信息先保存在服务器,等对方下次上线后再发送然后把服务器的备份删除。你可以根据前面学的概念来完善这个程序,比如说再添加一个NMUDP控件来管理在线状态,发送的信息先转换成ASCII码进行与或运行并加上一个头信息,接收方接收信息后先判断信息头正确与否,如果正确才把信息解密显示出来,这样就提高了安全保密性。另外,UDP协议还有一个很大的好处就是可以广播,就是说处于一个网段的都可以

51、接收到信息而不必指定具体的IP地址。网段一般分A、B、C三类,1126.XXX.XXX.XXX(A类网:广播地址为XXX.255.255.255128191.XXX.XXX.XXX(B类网:广播地址为XXX.XXX.255.255192254.XXX.XXX.XXX(C类网:广播地址为XXX.XXX.XXX.255比如说三台计算机、0、8,发送信息时只要指定IP地址为55就可以实现广播了。下面给出一个转换IP为广播IP的函数,快拿去完善自己的OICQ吧­.Function Trun_ip(S:st

52、ring:stringvar s1,s2,s3,ss,sss,Head:stringn,m:integerbeginsss:=Sn:=pos('.',ss1:=copy(s,1,nm:=length(s1delete(s,1,mHead:=copy(s1,1,(length(s1­1n:=pos('.',ss2:=copy(s,1,nm:=length(s2delete(s,1,mn:=pos('.',ss3:=copy(s,1,nm:=length(s3delete(s,1,mss:=sssif strtoint(Headin1.12

53、6then ss:=s1+'255.255.255'/155(A类网if strtoint(Headin128.191then ss:=s1+s2+'255.255'/128191.XXX.255.255(B类网if strtoint(Headin192.254then ss:=s1+s2+s3+'255'/192254.XXX.XXX.255(C类网 Result:=ssend­­­­­­­­­­­­

54、­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­

55、­­­­­­­­­五、实际应用之四:利用流实现网络传输屏幕图像大家应该见过很多网管程序,这类程序其中有一个功能就是监控远程电脑的屏幕。实际上,这也是利用流操作来实现的。下面我们给出一个例子,这个例子分两个程序,一个服务端,一个是客户端。程序编译后可以直接在单机、局部网或者互联网上使用。程序中已经给出相应注释。后面我们再来作具体分析。新建一个工程,在Internet面版上拖一个ServerSocket控件到窗口,该控件主要用于监听客户端,用来与客户端建立连接和通讯。设置好监听端口后调用方法Open或者Act

56、ive:=True即开始工作。注意:跟前面的NMUDP不同,当Socket开始监听后就不能再改变它的端口,要改变的话必须先调用Close或设置Active为False,否则将会产生异常。另外,如果该端口已经打开的话,就不能再用这个端口了。所以程序运行尚未退出就不能再运行这个程序,否则也会产生异常,即弹出出错窗口。实际应用中可以通过判断程序是否已经运行,如果已经运行就退出的方法来避免出错。当客户端有数据传入,将触发ServerSocket1ClientRead事件,我们可以在这里对接收的数据进行处理。在本程序中,主要是接收客户端发送过来的字符信息并根据事先的约定来进行相应操作。程序全部代码如下:

57、unit Unit1服务端程序interfaceusesWindows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,JPEG,ExtCtrls, ScktComptypeTForm1=class(TFormServerSocket1:TServerSocketprocedure ServerSocket1ClientRead(Sender:TObjectSocket:TCustomWinSocketprocedure FormCreate(Sender:TObjectprocedure FormClose(Sender:T

58、Objectvar Action:TCloseActionprivateprocedure Cjt_GetScreen(var Mybmp:TBitmapDrawCur:Boolean自定义抓屏函数,DrawCur表示抓鼠标图像与否Private declarationspublicPublic declarationsendvarForm1:TForm1MyStream:TMemorystream内存流对象implementation$R*.DFMprocedure TForm1.Cjt_GetScreen(var Mybmp:TBitmapDrawCur:BooleanvarCursorx

59、,Cursory:integerdc:hdcMycan:TcanvasR:TRectDrawPos:TPointMyCursor:TIconhld:hwndThreadld:dwordmp:tpointpIconInfo:TIconInfobeginMybmp:=Tbitmap.Create建立BMPMAPMycan:=TCanvas.Create屏幕截取dc:=GetWindowDC(0tryMycan.Handle:=dcR:=Rect(0,0,screen.Width,screen.HeightMybmp.Width:=R.RightMybmp.Height:=R.BottomMybmp

60、.Canvas.CopyRect(R,Mycan,RfinallyreleaseDC(0,DCendMycan.Handle:=0Mycan.Freeif DrawCur then画上鼠标图象beginGetCursorPos(DrawPosMyCursor:=TIcon.Creategetcursorpos(mphld:=WindowFromPoint(mpThreadld:=GetWindowThreadProcessId(hld,nilAttachThreadInput(GetCurrentThreadId,Threadld,TrueMyCursor.Handle:=Getcursor(AttachThreadInput(GetCurrentThreadId,threadld,FalseGetIconInfo(Mycursor.Handle,pIconInfocursorx:=DrawPos.x­round(pIconInfo.xHotspotcursory:=DrawPos.y­round(pIconInfo.yHo