Delphi_流操作的语法

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

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

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

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

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

6、ongint)参数的定义跟上面的 Write 相同。注意：当写入的数据字节数与需要写入的字节数不相同时， 将产生 EWriteError 异常。3、CopyFrom:此方法的作用是从其它流中拷贝数据流。函数原形为：Function CopyFrom(Source:TStreamCount:Longint):Longint参数 Source 为提供数据的流，Count 为拷贝的数据字节数。当 Count 大于 0 时，CopyFrom 从Source 参数的当前位置拷贝 Count 个字节的数据；当 Count 等于 0 时，CopyFrom 设置 Source参数的 Position 属性为

7、0,然后拷贝 Source 的所有数据；TStream 还有其它派生类，其中最常用的是 TFileStream 类。使用 TFileStream 类来存取文件，首先要建立一个实例。声明如下：constructor Create(const Filename:stringMode:Word)Filename 为文件名（包括路径）,参数 Mode 为打开文件的方式，它包括文件的打开模式和共享模式，其可能的取值和意义如下：打开模式：fmCreate :用指定的文件名建立文件，如果文件已经存在则打开它。fmOpenRead :以只读方式打开指定文件fmOpenWrite :以只写方式打开指定文件fmO

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

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

10、nction Cjt_AddtoFile(SourceFile,TargetFile:string):Booleanvar Target,Source:TFileStream MyFileSize:integerbegin trySource:=TFileStream.Create(SourceFile,fmOpenRead or fmShareExclusive) Target:=TFileStream.Create(TargetFile,fmOpenWrite or fmShareExclusive)tryTarget.Seek(0,soFromEnd)/往尾部添加资源Target.Cop

11、yFrom(Source,0) MyFileSize:=Source.Size+Sizeof(MyFileSize)/计算资源大小，并写入辅程尾部Target.WriteBuffer(MyFileSize,sizeof(MyFileSize)finally Target.Free Source.Free endexcept Result:=False Exitend Result:=Trueend有了上面的基础，我们应该很容易看得懂这个函数。其中参数 SourceFile 是要添加的文件,参数TargetFile 是被添加到的目标文件。比如说把 a.exe 添加到 b.exe 里面可以：Cjt

12、_AddtoFile(a.exe,b.exe)如果添加成功就返回 True 否则返回假。根据上面的函数我们可以写出相反的读出函数：Function Cjt_LoadFromFile(SourceFile,TargetFile :string):Booleanvar Source:TFileStream Target:TMemoryStream MyFileSize:integer begintry Target:=TMemoryStream.Create Source:=TFileStream.Create(SourceFile,fmOpenRead or fmShareDenyNone) t

13、rySource.Seek(sizeof(MyFileSize),soFromEnd) Source.ReadBuffer(MyFileSize,sizeof(MyFileSize)/读出资源大小 Source.Seek(MyFileSize,soFromEnd)/定位到资源位置 Target.CopyFrom(Source,MyFileSizesizeof(MyFileSize)/取出资源Target.SaveToFile(TargetFile)/存放到文件finally Target.Free Source.Free endexceptResult:=false ExitendResult

14、:=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:string begin S:=Change

15、FileExt(Application.ExeName,.Cjt) if Edit1.Text=790617 thenbeginCjt_LoadFromFile(Application.ExeName,S)取出文件保存在当前路径下并命名原文件.CjtWinexec(pchar(S),SW_Show)运行原文件.CjtApplication.Terminate退出程序end elseApplication.MessageBox(密码不对,请重新输入！,密码错误,MB_ICONERROR+MB_OK)编译这个程序，并把 EXE 文件改名为 head.exe。新建一个文本文件 head.rc,内容为

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

17、lck 事件里面写下代码：if OpenDialog1.Execute then Edit1.Text:=OpenDialog1.FileName在 Button2 的 Cilck 事件里面写下代码：var S:String begin S:=ExtractFilePath(Edit1.Text)if ExtractRes(exefile,head,S+head.exe) then if Cjt_AddtoFile(Edit1.Text,S+head.exe) thenif DeleteFile(Edit1.Text) thenif RenameFile(S+head.exe,Edit1.Te

18、xt) thenApplication.MessageBox(文件加密成功!,信息,MB_ICONINFORMATION+MB_OK)else beginif FileExists(S+head.exe) then DeleteFile(S+head.exe) Application.MessageBox(文件加密失败!,信息,MB_ICONINFORMATION+MB_OK)endend其中 ExtractRes 为自定义函数，它的作用是把 head.exe 从资源文件中取出来。Function ExtractRes(ResType, ResName, ResNewName : String

19、):booleanvarRes : TResourceStreambegin tryRes := TResourceStream.Create(Hinstance, Resname, Pchar(ResType)try Res.SavetoFile(ResNewName) Result:=truefinallyRes.Freeend except Result:=false endend注意：我们上面的函数只不过是简单的把一个文件添加到另一个文件的尾部。实际应用中可以改成可以添加多个文件，只要根据实际大小和个数定义好偏移地址就可以了。比如说文件捆绑机就是把两个或者多个程序添加到一个头文件里面。

20、那些自解压程序和安装程序的原理也 是一样的，不过多了压缩而已。比如说我们可以引用一个 LAH 单元，把流压缩后再添加，这 样文件就会变的很小。读出来时先解压就可以了。另外，文中 EXE 加密器的例子还有很多不 完善的地方，比如说密码固定为790617，取出 EXE 运行后应该等它运行完毕后删除等等，读 者可以自行修改。三、实际应用之二：利用流制作可执行电子贺卡我们经常看到一些电子贺卡之类的制作软件，可以让你自己选择图片，然后它会生成一个 EXE 可执行文件给你。打开贺卡时就会一边放音乐一边显示出图片来。现在学了流操作之后， 我们也可以做一个了。添加图片过程我们可以直接用前面的 Cjt_Addt

21、oFile，而现在要做的是如何把图像读出并显示。我们用前面的 Cjt_LoadFromFile 先把图片读出来保存为文件再调入也是可以的，但是还有更简单的方法，就是直接把文件流读出来显示，有了流这个利器，一切都变的简单了。现在的图片比较流行的是 BMP 格式和 JPG 格式。我们现在就针对这两种图片写出读取并显示函数。Function Cjt_BmpLoad(ImgBmp:TImageSourceFile:String):BooleanvarSource:TFileStream MyFileSize:integer beginSource:=TFileStream.Create(SourceF

22、ile,fmOpenRead or fmShareDenyNone)try try Source.Seek(sizeof(MyFileSize),soFromEnd)Source.ReadBuffer(MyFileSize,sizeof(MyFileSize)/读出资源Source.Seek(MyFileSize,soFromEnd)/定位到资源开始位置ImgBmp.Picture.Bitmap.LoadFromStream(Source)finally Source.Free endexceptResult:=False ExitendResult:=Trueend上面是读出 BMP 图片的

23、，下面的是读出 JPG 图片的函数，因为要用到 JPG 单元，所以要在程序中添加一句:uses jpeg。Function Cjt_JpgLoad(JpgImg:TimageSourceFile:String):BooleanvarSource:TFileStream MyFileSize:integer Myjpg: TJpegImage begintryMyjpg:= TJpegImage.Create Source:=TFileStream.Create(SourceFile,fmOpenRead or fmShareDenyNone)try Source.Seek(sizeof(MyF

24、ileSize),soFromEnd) Source.ReadBuffer(MyFileSize,sizeof(MyFileSize) Source.Seek(MyFileSize,soFromEnd) Myjpg.LoadFromStream(Source) JpgImg.Picture.Bitmap.Assign(Myjpg)finallySource.Free Myjpg.free endexceptResult:=false ExitendResult:=trueend有了这两个函数，我们就可以制作读出程序了。下面我们以 BMP 图片为例：运行 Delphi，新建一个工程，放上一个显示

25、图像控件 Image1。在窗口的 Create 事件中写上一句就可以了：Cjt_BmpLoad(Image1,Application.ExeName)这个就是头文件了，然后我们用前面的方法生成一个 head.res 资源文件。下面就可以开始制作我们的添加程序了。全部代码如下：unit Unit1interface usesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, ExtDlgstypeTForm1 = class(TForm) Edit1: TEdi

26、tButton1: TButtonButton2: TButtonOpenPictureDialog1: TOpenPictureDialog procedure FormCreate(Sender: TObject) procedure Button1Click(Sender: TObject) procedure Button2Click(Sender: TObject) privateFunction ExtractRes(ResType, ResName, ResNewName : String):boolean Function Cjt_AddtoFile(SourceFile,Ta

27、rgetFile:string):Boolean Private declarations public Public declarations endvarForm1: TForm1implementation$R *.DFMFunction TForm1.ExtractRes(ResType, ResName, ResNewName : String):booleanvarRes : TResourceStreambegin tryRes := TResourceStream.Create(Hinstance, Resname, Pchar(ResType)tryRes.SavetoFil

28、e(ResNewName) Result:=truefinallyRes.Free end exceptResult:=falseendendFunction TForm1.Cjt_AddtoFile(SourceFile,TargetFile:string):Booleanvar Target,Source:TFileStream MyFileSize:integerbegin trySource:=TFileStream.Create(SourceFile,fmOpenRead or fmShareExclusive) Target:=TFileStream.Create(TargetFi

29、le,fmOpenWrite or fmShareExclusive)tryTarget.Seek(0,soFromEnd)/往尾部添加资源Target.CopyFrom(Source,0) MyFileSize:=Source.Size+Sizeof(MyFileSize)/计算资源大小，并写入辅程尾部Target.WriteBuffer(MyFileSize,sizeof(MyFileSize)finally Target.Free Source.Free endexceptResult:=False Exitend Result:=True endprocedure TForm1.For

30、mCreate(Sender: TObject)beginCaption:=Bmp2Exe 演示程序.作者:陈经韬Edit1.Text:=OpenPictureDialog1.DefaultExt := GraphicExtension(TBitmap) OpenPictureDialog1.Filter := GraphicFilter(TBitmap)Button1.Caption:=选择 BMP 图片 Button2.Caption:=生成 EXEendprocedure TForm1.Button1Click(Sender: TObject)beginif OpenPictureDia

31、log1.Execute thenEdit1.Text:=OpenPictureDialog1.FileNameendprocedure TForm1.Button2Click(Sender: TObject)varHeadTemp:Stringbeginif Not FileExists(Edit1.Text) then beginApplication.MessageBox(BMP 图片文件不存在，请重新选择!,信息,MB_ICONINFORMATION+MB_OK) Exitend HeadTemp:=ChangeFileExt(Edit1.Text,.exe) if ExtractRe

32、s(exefile,head,HeadTemp) thenif Cjt_AddtoFile(Edit1.Text,HeadTemp) thenApplication.MessageBox(EXE 文件生成成功!,信息,MB_ICONINFORMATION+MB_OK)else beginif FileExists(HeadTemp) then DeleteFile(HeadTemp)Application.MessageBox(EXE 文件生成失败!,信息,MB_ICONINFORMATION+MB_OK)end end end.怎么样？很神奇吧:)把程序界面弄的漂亮点，再添加一些功能，你会发

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

34、Socket 用到的 ThreadTimer，用到一个隐藏 的窗口（类为 TmrWindowClass）处理有硬伤。出问题的地方：Psock:TThreadTimer:WndProc(var msg:TMessage)if msg.message=WM_TIMER then他自己处理msg.result:=0 else msg.result:=DefWindowProc(0,.) end问题就出在调用 DefWindowProc 时，传输的 HWND 参数居然是常数 0，这样实际上DefWindowProc 是不能工作的，对任何输入的消息的调用均返回 0，包括WM_QUERYENDSESSIO

35、N，所以不能退出 windows。由于 DefWindowProc 的不正常调用，实际上除 WM_TIMER，其他消息由 DefWindowProc 处理都是无效的。解决的办法是在 PSock.pas在 TThreadTimer.Wndproc 内Result := DefWindowProc( 0, Msg, WPARAM, LPARAM )改为：Result := DefWindowProc( FWindowHandle, Msg, WPARAM, LPARAM )早期低版本的 OICQ 也有这个问题，如果不关闭 OICQ 的话，关闭计算机时屏幕闪了一下又返回了。好了，废话少说，让我们编写

36、我们的 OICQ 吧,这个实际上是 Delphi 自带的例子而已:)新建一个工程，在 FASTNET 面版拖一个 NMUDP 控件到窗口，然后依次放上三个EDIT,名字分别为 EditIP、EditPort、EditMyTxt，三个按钮 BtSend、BtClear、BtSave，一个MEMOMemoReceive，一个 SaveDialog 和一个状态条 StatusBar1。当用户点击 BtSend 时，建立一个内存流对象，把要发送的文字信息写进内存流，然后 NMUDP 把流发送出去。当 NMUDP有数据接收时，触发它的 DataReceived 事件，我们在这里再把接收到的流转换为字符信

37、息，然后显示出来。注意：所有的流对象建立后使用完毕后要记得释放(Free)，其实它的释构函数应该为Destroy，但如果建立流失败的话，用 Destroy 会产生异常，而用 Free 的话程序会先检查有没有成功建立了流，如果建立了才释放，所以用 Free 比较安全。在这个程序中我们用到了 NMUDP 控件，它有几个重要的属性。RemoteHost 表示远程电脑的IP 或者计算机名，LocalPort 是本地端口，主要监听有没有数据传入。而 RemotePort 是远程端口，发送数据时通过这个端口把数据发送出去。理解这些已经可以看懂我们的程序了。全部代码如下：unit Unit1interfac

38、e usesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls, ComCtrls,NMUDPtypeTForm1 = class(TForm) NMUDP1: TNMUDPEditIP: TEdit EditPort: TEditEditMyTxt: TEdit MemoReceive: TMemo BtSend: TButtonBtClear: TButton BtSave: TButtonStatusBar1: TStatusBar SaveDialog1: TSaveDial

39、ogprocedure BtSendClick(Sender: TObject)procedure NMUDP1DataReceived(Sender: TComponent NumberBytes: Integer FromIP: String Port: Integer)procedure NMUDP1InvalidHost(var handled: Boolean)procedure NMUDP1DataSend(Sender: TObject)procedure FormCreate(Sender: TObject) procedure BtClearClick(Sender: TOb

40、ject) procedure BtSaveClick(Sender: TObject)procedure EditMyTxtKeyPress(Sender: TObject var Key: Char)private Private declarations public Public declarations endvarForm1: TForm1implementation$R *.DFMprocedure TForm1.BtSendClick(Sender: TObject)varMyStream: TMemoryStream MySendTxt: String Iport,icode

41、:integerBeginVal(EditPort.Text,Iport,icode)if icode0 then beginApplication.MessageBox(端口必须为数字，请重新输入!,信息,MB_ICONINFORMATION+MB_OK) ExitendNMUDP1.RemoteHost := EditIP.Text 远程主机NMUDP1.LocalPort:=Iport 本地端口NMUDP1.RemotePort := Iport 远程端口MySendTxt := EditMyTxt.TextMyStream := TMemoryStream.Create 建立流tryM

42、yStream.Write(MySendTxt1, Length(EditMyTxt.Text)写数据NMUDP1.SendStream(MyStream) 发送流finallyMyStream.Free 释放流endendprocedure TForm1.NMUDP1DataReceived(Sender: TComponent NumberBytes: Integer FromIP: String Port: Integer)varMyStream: TMemoryStream MyReciveTxt: StringbeginMyStream := TMemoryStream.Create

43、 建立流try NMUDP1.ReadStream(MyStream)接收流 SetLength(MyReciveTxt,NumberBytes)NumberBytes 为接收到的字节数 MyStream.Read(MyReciveTxt1,NumberBytes)读数据MemoReceive.Lines.Add(接收到来自主机+FromIP+的信息:+MyReciveTxt)finallyMyStream.Free 释放流endendprocedure TForm1.NMUDP1InvalidHost(var handled: Boolean)beginApplication.Message

44、Box(对方 IP 地址不正确，请重新输入!,信息,MB_ICONINFORMATION+MB_OK)endprocedure TForm1.NMUDP1DataSend(Sender: TObject)beginStatusBar1.SimpleText:=信息成功发出!endprocedure TForm1.FormCreate(Sender: TObject)begin EditIP.Text:= EditPort.Text:=8868BtSend.Caption:=发送BtClear.Caption:=清除聊天记录BtSave.Caption:=保存聊天记录MemoR

45、eceive.ScrollBars:=ssBoth MemoReceive.ClearEditMyTxt.Text:=在这里输入信息,然后点击发送.StatusBar1.SimplePanel:=trueendprocedure TForm1.BtClearClick(Sender: TObject)beginMemoReceive.Clearendprocedure TForm1.BtSaveClick(Sender: TObject)beginif SaveDialog1.Execute then MemoReceive.Lines.SaveToFile(SaveDialog1.FileN

46、ame)endprocedure TForm1.EditMyTxtKeyPress(Sender: TObject var Key: Char)beginif Key=#13 then BtSend.Clickendend.上面的程序跟 OICQ 相比当然差之甚远，因为 OICQ 利用的是 Socket5 通信方式。它上线时先从服务器取回好友信息和在线状态，发送超时还会将信息先保存在服务器，等对方下次上线后再发送然后把服务器的备份删除。你可以根据前面学的概念来完善这个程序，比如说再添加一个 NMUDP 控件来管理在线状态，发送的信息先转换成 ASCII 码进行与或运行并加上一个头信息，接收方接

47、收信息后先判断信息头正确与否，如果正确才把信息解密显示出来，这样就提高了安全保密性。另外，UDP 协议还有一个很大的好处就是可以广播，就是说处于一个网段的都可以接收到信息而不必指定具体的 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，

48、发送信息时只要指定 IP 地址为55 就可以实现广播了。下面给出一个转换 IP 为广播 IP 的函数，快拿去完善自己的OICQ 吧.Function Trun_ip(S:string):string var s1,s2,s3,ss,sss,Head:string n,m:integerbegin sss:=Sn:=pos(.,s)s1:=copy(s,1,n) m:=length(s1) delete(s,1,m)Head:=copy(s1,1,(length(s1)1)n:=pos(.,s)s2:=copy(s,1,n) m:=length(s2) delete(s,1

49、,m) n:=pos(.,s) s3:=copy(s,1,n) m:=length(s3) delete(s,1,m) ss:=sssif strtoint(Head) in 1.126 then ss:=s1+255.255.255 /155 (A 类网)if strtoint(Head) in 128.191 then ss:=s1+s2+255.255/128191.XXX.255.255(B 类网)if strtoint(Head) in 192.254 then ss:=s1+s2+s3+255 /192254.XXX.XXX.255(C 类网)Result

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

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

52、ace usesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, JPEG,ExtCtrls, ScktComptypeTForm1 = class(TForm) ServerSocket1: TServerSocketprocedure ServerSocket1ClientRead(Sender: TObjectSocket: TCustomWinSocket)procedure FormCreate(Sender: TObject)procedure FormClose(Sender: TO

53、bject var Action: TCloseAction)privateprocedure Cjt_GetScreen(var Mybmp: TBitmap DrawCur: Boolean)自定义抓屏函数,DrawCur 表示抓鼠标图像与否 Private declarations public Public declarations endvarForm1: TForm1MyStream: TMemorystream内存流对象implementation$R *.DFMprocedure TForm1.Cjt_GetScreen(var Mybmp: TBitmap DrawCur: Boolean)varCursorx, Cursory: integerdc: hdcMycan: Tca