需要关于流的资料2

再发一贴，如果有地址请贴个地址给我！

解决方案 »

  1.   

    谈Delphi编程中"流"的应用
    　　什么是流？流,简单来说就是建立在面向对象基础上的一种抽象的处理数据的工具。在流中，定义了一些处理数据的基本操作，如读取数据，写入数据等，程序员是对流进行所有操作的，而不用关心流的另一头数据的真正流向。流不但可以处理文件，还可以处理动态内存、网络数据等多种数据形式。如果你对流的操作非常熟练，在程序中利用流的方便性，写起程序会大大提高效率的。
    下面，笔者通过四个实例:EXE文件加密器、电子贺卡、自制OICQ和网络屏幕传输来说明Delphi编程中"流"的利用。这些例子中的一些技巧曾经是很多软件的秘密而不公开的，现在大家可以无偿的直接引用其中的代码了。
    "万丈高楼平地起"，在分析实例之前，我们先来了解一下流的基本概念和函数，只有在理解了这些基本的东西后我们才能进行下一步。请务必认真领会这些基本方法。当然，如果你对它们已经很熟悉了，则可以跳过这一步。一、Delphi中流的基本概念及函数声明
    在Delphi中，所有流对象的基类为TStream类，其中定义了所有流的共同属性和方法。
    TStream类中定义的属性介绍如下：
    1、Size:此属性以字节返回流中数据大小。
    2、Position:此属性控制流中存取指针的位置。
    Tstream中定义的虚方法有四个：
    1、Read:此方法实现将数据从流中读出。函数原形为：
    Function Read(var Buffer;Count:Longint):Longint;virtual;abstract;
    参数Buffer为数据读出时放置的缓冲区，Count为需要读出的数据的字节数，该方法返回值为实际读出的字节数，它可以小于或等于Count中指定的值。
    2、Write:此方法实现将数据写入流中。函数原形为：
    Function Write(var Buffer;Count:Longint):Longint;virtual;abstract;
    参数Buffer为将要写入流中的数据的缓冲区，Count为数据的长度字节数，该方法返回值为实际写入流中的字节数。
    3、Seek:此方法实现流中读取指针的移动。函数原形为：
    Function Seek(Offset:Longint;Origint:Word):Longint;virtual;abstract;
    参数Offset为偏移字节数,参数Origint指出Offset的实际意义，其可能的取值如下：
    soFromBeginning:Offset为移动后指针距离数据开始的位置。此时Offset必须大于或者等于零。
    soFromCurrent:Offset为移动后指针与当前指针的相对位置。
    soFromEnd:Offset为移动后指针距离数据结束的位置。此时Offset必须小于或者等于零。该方法返回值为移动后指针的位置。
    4、Setsize:此方法实现改变数据的大小。函数原形为：
    Function Setsize(NewSize:Longint);virtual;
    另外，TStream类中还定义了几个静态方法：
    1、ReadBuffer:此方法的作用是从流中当前位置读取数据。函数原形为：
    Procedure ReadBuffer(var Buffer;Count:Longint);
    参数的定义跟上面的Read相同。注意：当读取的数据字节数与需要读取的字节数不相同时，将产生EReadError异常。
    2、WriteBuffer:此方法的作用是在当前位置向流写入数据。函数原形为：
    Procedure WriteBuffer(var Buffer;Count:Longint);
    参数的定义跟上面的Write相同。注意：当写入的数据字节数与需要写入的字节数不相同时，将产生EWriteError异常。
    3、CopyFrom:此方法的作用是从其它流中拷贝数据流。函数原形为：
    Function CopyFrom(Source:TStream;Count:Longint):Longint;
    参数Source为提供数据的流，Count为拷贝的数据字节数。当Count大于0时，CopyFrom从Source参数的当前位置拷贝Count个字节的数据；当Count等于0时，CopyFrom设置Source参数的Position属性为0,然后拷贝Source的所有数据；
    TStream还有其它派生类，其中最常用的是TFileStream类。使用TFileStream类来存取文件，首先要建立一个实例。声明如下：
    constructor Create(const Filename:string;Mode:Word);
    Filename为文件名（包括路径）,参数Mode为打开文件的方式，它包括文件的打开模式和共享模式，其可能的取值和意义如下：打开模式：
    fmCreate :用指定的文件名建立文件，如果文件已经存在则打开它。
    fmOpenRead :以只读方式打开指定文件
    fmOpenWrite :以只写方式打开指定文件
    fmOpenReadWrite:以写写方式打开指定文件
    共享模式：
    fmShareCompat :共享模式与FCBs兼容
    fmShareExclusive:不允许别的程序以任何方式打开该文件
    fmShareDenyWrite:不允许别的程序以写方式打开该文件
    fmShareDenyRead :不允许别的程序以读方式打开该文件
    fmShareDenyNone :别的程序可以以任何方式打开该文件TStream还有一个派生类TMemoryStream，实际应用中用的次数也非常频繁。它叫内存流，就是说在内存中建立一个流对象。它的基本方法和函数跟上面是一样的。
    好了，有了上面的基础后，我们就可以开始我们的编程之行了。
    -----------------------------------------------------------------------
    二、实际应用之一：利用流制作EXE文件加密器、捆绑、自解压文件及安装程序我们先来说一下如何制作一个EXE文件加密器吧。 
    EXE文件加密器的原理：建立两个文件，一个用来添加资源到另外一个EXE文件里面，称为添加程序。另外一个被添加的EXE文件称为头文件。该程序的功能是把添加到自己里面的文件读出来。Windows下的EXE文件结构比较复杂，有的程序还有校验和，当发现自己被改变后会认为自己被病毒感染而拒绝执行。所以我们把文件添加到自己的程序里面，这样就不会改变原来的文件结构了。我们先写一个添加函数，该函数的功能是把一个文件当作一个流添加到另外一个文件的尾部。函数如下：Function Cjt_AddtoFile(SourceFile,TargetFile:string):Boolean;
    var
    Target,Source:TFileStream;
    MyFileSize:integer;
    begin
    try
    Source:=TFileStream.Create(SourceFile,fmOpenRead or fmShareExclusive);
    Target:=TFileStream.Create(TargetFile,fmOpenWrite or fmShareExclusive);
    try
    Target.Seek(0,soFromEnd);//往尾部添加资源
    Target.CopyFrom(Source,0);
    MyFileSize:=Source.Size+Sizeof(MyFileSize);//计算资源大小，并写入辅程尾部
    Target.WriteBuffer(MyFileSize,sizeof(MyFileSize));
    finally
    Target.Free;
    Source.Free;
    end;
    except
    Result:=False;
    Exit;
    end;
    Result:=True;
    end;
    有了上面的基础，我们应该很容易看得懂这个函数。其中参数SourceFile是要添加的文件,参数TargetFile是被添加到的目标文件。比如说把a.exe添加到b.exe里面可以：Cjt_AddtoFile('a.exe',b.exe');如果添加成功就返回True否则返回假。
    根据上面的函数我们可以写出相反的读出函数：
    Function Cjt_LoadFromFile(SourceFile,TargetFile :string):Boolean;
    var
    Source:TFileStream;
    Target:TMemoryStream;
    MyFileSize:integer;
    begin
    try
    Target:=TMemoryStream.Create;
    Source:=TFileStream.Create(SourceFile,fmOpenRead or fmShareDenyNone);
    try
    Source.Seek(-sizeof(MyFileSize),soFromEnd);
    Source.ReadBuffer(MyFileSize,sizeof(MyFileSize));//读出资源大小
    Source.Seek(-MyFileSize,soFromEnd);//定位到资源位置
    Target.CopyFrom(Source,MyFileSize-sizeof(MyFileSize));//取出资源
    Target.SaveToFile(TargetFile);//存放到文件
    finally
    Target.Free;
    Source.Free;
    end;
    except
    Result:=false;
    Exit;
    end;
    Result:=true;
    end;
    其中参数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:=ChangeFileExt(Application.ExeName,'.Cjt');
    if Edit1.Text='790617' then 
    begin
    Cjt_LoadFromFile(Application.ExeName,S);
    {取出文件保存在当前路径下并命名"原文件.Cjt"}
    Winexec(pchar(S),SW_Show);{运行"原文件.Cjt"}
    Application.Terminate;{退出程序}
    end
    else 
    Application.MessageBox('密码不对,请重新输入！','密码错误',MB_ICONERROR+MB_OK);
    编译这个程序，并把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文件拷贝到程序当前目录下。这样一来就把刚才的head.exe跟程序一起编译了。
    在Button1的Cilck事件里面写下代码：
    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') then
    if DeleteFile(Edit1.Text) then
    if RenameFile(S+'head.exe',Edit1.Text) then
    Application.MessageBox('文件加密成功!','信息',MB_ICONINFORMATION+MB_OK)
    else
    begin
    if FileExists(S+'head.exe') then DeleteFile(S+'head.exe');
    Application.MessageBox('文件加密失败!','信息',MB_ICONINFORMATION+MB_OK)
    end;
    end;
    其中ExtractRes为自定义函数，它的作用是把head.exe从资源文件中取出来。
    Function ExtractRes(ResType, ResName, ResNewName : String):boolean;
    var
    Res : TResourceStream;
    begin
    try
    Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
    try
    Res.SavetoFile(ResNewName);
    Result:=true;
    finally
    Res
      

  2.   

    三、实际应用之二：利用流制作可执行电子贺卡我们经常看到一些电子贺卡之类的制作软件，可以让你自己选择图片，然后它会生成一个EXE可执行文件给你。打开贺卡时就会一边放音乐一边显示出图片来。现在学了流操作之后，我们也可以做一个了。 
    添加图片过程我们可以直接用前面的Cjt_AddtoFile，而现在要做的是如何把图像读出并显示。我们用前面的Cjt_LoadFromFile先把图片读出来保存为文件再调入也是可以的，但是还有更简单的方法，就是直接把文件流读出来显示，有了流这个利器，一切都变的简单了。
    现在的图片比较流行的是BMP格式和JPG格式。我们现在就针对这两种图片写出读取并显示函数。Function Cjt_BmpLoad(ImgBmp:TImage;SourceFile:String):Boolean;
    var
    Source:TFileStream;
    MyFileSize:integer;
    begin
    Source:=TFileStream.Create(SourceFile,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;
    end;
    except
    Result:=False;
    Exit;
    end;
    Result:=True;
    end;
    上面是读出BMP图片的，下面的是读出JPG图片的函数，因为要用到JPG单元，所以要在程序中添加一句:uses jpeg。Function Cjt_JpgLoad(JpgImg:Timage;SourceFile:String):Boolean;
    var
    Source:TFileStream;
    MyFileSize:integer;
    Myjpg: TJpegImage;
    begin
    try
    Myjpg:= TJpegImage.Create;
    Source:=TFileStream.Create(SourceFile,fmOpenRead or fmShareDenyNone);
    try
    Source.Seek(-sizeof(MyFileSize),soFromEnd);
    Source.ReadBuffer(MyFileSize,sizeof(MyFileSize));
    Source.Seek(-MyFileSize,soFromEnd);
    Myjpg.LoadFromStream(Source);
    JpgImg.Picture.Bitmap.Assign(Myjpg);
    finally
    Source.Free;
    Myjpg.free;
    end;
    except
    Result:=false;
    Exit;
    end;
    Result:=true;
    end;
    有了这两个函数，我们就可以制作读出程序了。下面我们以BMP图片为例：
    运行Delphi，新建一个工程，放上一个显示图像控件Image1。在窗口的Create事件中写上一句就可以了：
    Cjt_BmpLoad(Image1,Application.ExeName);
    这个就是头文件了，然后我们用前面的方法生成一个head.res资源文件。
    下面就可以开始制作我们的添加程序了。全部代码如下：
    unit Unit1;interfaceuses
    Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
    ExtCtrls, StdCtrls, ExtDlgs;type
    TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    OpenPictureDialog1: TOpenPictureDialog;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    private
    Function ExtractRes(ResType, ResName, ResNewName : String):boolean;
    Function Cjt_AddtoFile(SourceFile,TargetFile:string):Boolean;
    { Private declarations }
    public
    { Public declarations }
    end;var
    Form1: TForm1;implementation{$R *.DFM}
    Function TForm1.ExtractRes(ResType, ResName, ResNewName : String):boolean;
    var
    Res : TResourceStream;
    begin
    try
    Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
    try
    Res.SavetoFile(ResNewName);
    Result:=true;
    finally
    Res.Free;
    end;
    except
    Result:=false;
    end;
    end;
    Function TForm1.Cjt_AddtoFile(SourceFile,TargetFile:string):Boolean;
    var
    Target,Source:TFileStream;
    MyFileSize:integer;
    begin
    try
    Source:=TFileStream.Create(SourceFile,fmOpenRead or fmShareExclusive);
    Target:=TFileStream.Create(TargetFile,fmOpenWrite or fmShareExclusive);
    try
    Target.Seek(0,soFromEnd);//往尾部添加资源
    Target.CopyFrom(Source,0);
    MyFileSize:=Source.Size+Sizeof(MyFileSize);//计算资源大小，并写入辅程尾部
    Target.WriteBuffer(MyFileSize,sizeof(MyFileSize));
    finally
    Target.Free;
    Source.Free;
    end;
    except
    Result:=False;
    Exit;
    end;
    Result:=True;
    end;
    procedure TForm1.FormCreate(Sender: TObject);
    begin
    Caption:='Bmp2Exe演示程序.作者:陈经韬';
    Edit1.Text:='';
    OpenPictureDialog1.DefaultExt := GraphicExtension(TBitmap);
    OpenPictureDialog1.Filter := GraphicFilter(TBitmap);Button1.Caption:='选择BMP图片';
    Button2.Caption:='生成EXE';
    end;procedure TForm1.Button1Click(Sender: TObject);
    begin
    if OpenPictureDialog1.Execute then
    Edit1.Text:=OpenPictureDialog1.FileName;
    end;procedure TForm1.Button2Click(Sender: TObject);
    var
    HeadTemp:String;
    begin
    if Not FileExists(Edit1.Text) then
    begin
    Application.MessageBox('BMP图片文件不存在，请重新选择!','信息',MB_ICONINFORMATION+MB_OK)
    Exit;
    end;
    HeadTemp:=ChangeFileExt(Edit1.Text,'.exe');
    if ExtractRes('exefile','head',HeadTemp) then
    if Cjt_AddtoFile(Edit1.Text,HeadTemp) then
    Application.MessageBox('EXE文件生成成功!','信息',MB_ICONINFORMATION+MB_OK)
    else
    begin
    if FileExists(HeadTemp) then DeleteFile(HeadTemp);
    Application.MessageBox('EXE文件生成失败!','信息',MB_ICONINFORMATION+MB_OK)
    end;
    end;
    end.
    怎么样？很神奇吧:)把程序界面弄的漂亮点，再添加一些功能，你会发现比起那些要注册的软件来也不会逊多少吧。
      

  3.   

    实际应用之三：利用流制作自己的OICQOICQ是深圳腾讯公司的一个网络实时通讯软件，在国内拥有大量的用户群。但OICQ必须连接上互联网登陆到腾讯的服务器才能使用。所以我们可以自己写一个在局部网里面使用。
    OICQ使用的是UDP协议，这是一种无连接协议，即通信双方不用建立连接就可以发送信息，所以效率比较高。Delphi本身自带的FastNEt公司的NMUDP控件就是一个UDP协议的用户数据报控件。不过要注意的是如果你使用了这个控件必须退出程序才能关闭计算机，因为TNMXXX控件有BUG。所有nm控件的基础 PowerSocket用到的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_QUERYENDSESSION，所以不能退出windows。由于DefWindowProc的不正常调用，实际上除WM_TIMER，其他消息由DefWindowProc处理都是无效的。
    解决的办法是在 PSock.pas
    在 TThreadTimer.Wndproc 内
    Result := DefWindowProc( 0, Msg, WPARAM, LPARAM );
    改为：
    Result := DefWindowProc( FWindowHandle, Msg, WPARAM, LPARAM );
    早期低版本的OICQ也有这个问题，如果不关闭OICQ的话，关闭计算机时屏幕闪了一下又返回了。
    好了，废话少说，让我们编写我们的OICQ吧,这个实际上是Delphi自带的例子而已:)
    新建一个工程，在FASTNET面版拖一个NMUDP控件到窗口，然后依次放上三个EDIT,名字分别为EditIP、EditPort、EditMyTxt，三个按钮BtSend、BtClear、BtSave，一个MEMOMemoReceive，一个SaveDialog和一个状态条StatusBar1。当用户点击BtSend时，建立一个内存流对象，把要发送的文字信息写进内存流，然后NMUDP把流发送出去。当NMUDP有数据接收时，触发它的DataReceived事件，我们在这里再把接收到的流转换为字符信息，然后显示出来。
    注意：所有的流对象建立后使用完毕后要记得释放(Free)，其实它的释构函数应该为Destroy，但如果建立流失败的话，用Destroy会产生异常，而用Free的话程序会先检查有没有成功建立了流，如果建立了才释放，所以用Free比较安全。
    在这个程序中我们用到了NMUDP控件，它有几个重要的属性。RemoteHost表示远程电脑的IP或者计算机名，LocalPort是本地端口，主要监听有没有数据传入。而RemotePort是远程端口，发送数据时通过这个端口把数据发送出去。理解这些已经可以看懂我们的程序了。全部代码如下：
    unit Unit1;interfaceuses
    Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls, ComCtrls,NMUDP;type
    TForm1 = class(TForm)
    NMUDP1: TNMUDP;
    EditIP: TEdit;
    EditPort: TEdit;
    EditMyTxt: TEdit;
    MemoReceive: TMemo; 
    BtSend: TButton;
    BtClear: TButton;
    BtSave: TButton;
    StatusBar1: TStatusBar; 
    SaveDialog1: TSaveDialog;
    procedure 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: TObject);
    procedure BtSaveClick(Sender: TObject);
    procedure EditMyTxtKeyPress(Sender: TObject; var Key: Char);
    private
    { Private declarations }
    public
    { Public declarations }
    end;var
    Form1: TForm1;implementation{$R *.DFM}procedure TForm1.BtSendClick(Sender: TObject);
    var
    MyStream: TMemoryStream;
    MySendTxt: String;
    Iport,icode:integer;
    Begin
    Val(EditPort.Text,Iport,icode);
    if icode<>0 then
    begin
    Application.MessageBox('端口必须为数字，请重新输入!','信息',MB_ICONINFORMATION+MB_OK);
    Exit;
    end;
    NMUDP1.RemoteHost := EditIP.Text; {远程主机}
    NMUDP1.LocalPort:=Iport; {本地端口}
    NMUDP1.RemotePort := Iport; {远程端口}
    MySendTxt := EditMyTxt.Text;
    MyStream := TMemoryStream.Create; {建立流}
    try
    MyStream.Write(MySendTxt[1], Length(EditMyTxt.Text));{写数据}
    NMUDP1.SendStream(MyStream); {发送流}
    finally
    MyStream.Free; {释放流}
    end;
    end;
    procedure TForm1.NMUDP1DataReceived(Sender: TComponent;
    NumberBytes: Integer; FromIP: String; Port: Integer);
    var
    MyStream: TMemoryStream;
    MyReciveTxt: String;
    begin
    MyStream := TMemoryStream.Create; {建立流}
    try
    NMUDP1.ReadStream(MyStream);{接收流}
    SetLength(MyReciveTxt,NumberBytes);{NumberBytes为接收到的字节数}
    MyStream.Read(MyReciveTxt[1],NumberBytes);{读数据}
    MemoReceive.Lines.Add('接收到来自主机'+FromIP+'的信息:'+MyReciveTxt);
    finally
    MyStream.Free; {释放流}
    end;
    end;procedure TForm1.NMUDP1InvalidHost(var handled: Boolean);
    begin
    Application.MessageBox('对方IP地址不正确，请重新输入!','信息',MB_ICONINFORMATION+MB_OK);
    end;procedure TForm1.NMUDP1DataSend(Sender: TObject);
    begin
    StatusBar1.SimpleText:='信息成功发出!';
    end;procedure TForm1.FormCreate(Sender: TObject);
    begin
    EditIP.Text:='127.0.0.1';
    EditPort.Text:='8868';
    BtSend.Caption:='发送';
    BtClear.Caption:='清除聊天记录';
    BtSave.Caption:='保存聊天记录';
    MemoReceive.ScrollBars:=ssBoth;
    MemoReceive.Clear;
    EditMyTxt.Text:='在这里输入信息,然后点击发送.';StatusBar1.SimplePanel:=true;
    end;procedure TForm1.BtClearClick(Sender: TObject);
    begin
    MemoReceive.Clear;
    end;procedure TForm1.BtSaveClick(Sender: TObject);
    begin
    if SaveDialog1.Execute then MemoReceive.Lines.SaveToFile(SaveDialog1.FileName);
    end;procedure TForm1.EditMyTxtKeyPress(Sender: TObject; var Key: Char);
    begin
    if Key=#13 then BtSend.Click;
    end;
    end.
    上面的程序跟OICQ相比当然差之甚远，因为OICQ利用的是Socket5通信方式。它上线时先从服务器取回好友信息和在线状态，发送超时还会将信息先保存在服务器，等对方下次上线后再发送然后把服务器的备份删除。你可以根据前面学的概念来完善这个程序，比如说再添加一个NMUDP控件来管理在线状态，发送的信息先转换成ASCII码进行与或运行并加上一个头信息，接收方接收信息后先判断信息头正确与否，如果正确才把信息解密显示出来，这样就提高了安全保密性。
    另外，UDP协议还有一个很大的好处就是可以广播，就是说处于一个网段的都可以接收到信息而不必指定具体的IP地址。网段一般分A、B、C三类,
    1~126.XXX.XXX.XXX (A类网) :广播地址为XXX.255.255.255
    128~191.XXX.XXX.XXX(B类网):广播地址为XXX.XXX.255.255
    192~254.XXX.XXX.XXX(C类网):广播地址为XXX.XXX.XXX.255
    比如说三台计算机192.168.0.1、192.168.0.10、192.168.0.18，发送信息时只要指定IP地址为192.168.0.255就可以实现广播了。下面给出一个转换IP为广播IP的函数，快拿去完善自己的OICQ吧^-^.Function Trun_ip(S:string):string;
    var s1,s2,s3,ss,sss,Head:string;
    n,m:integer;
    begin
    sss:=S;
    n:=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,m);
    n:=pos('.',s);
    s3:=copy(s,1,n);
    m:=length(s3);
    delete(s,1,m);
    ss:=sss;
    if strtoint(Head) in [1..126] then ss:=s1+'255.255.255'; //1~126.255.255.255 (A类网)
    if strtoint(Head) in [128..191] then ss:=s1+s2+'255.255';//128~191.XXX.255.255(B类网)
    if strtoint(Head) in [192..254] then ss:=s1+s2+s3+'255'; //192~254.XXX.XXX.255(C类网)
    Result:=ss; 
    end;
      

  4.   

    写文件：
    s:='abcdef';
    fs:=TFileStream.Create('c:\temp',fmCreate);
    try
       fs.Write(s[1],Length(s));
    finally
          fs.free;
    end;读文件：
    fs:=TFileStream.Create('c:\temp',fmOpenRead);
    try
       SetLength(s,fs.Size);
       fs.Read(s[1],fs.Size);
    finally
        fs.free;
    end;
      

  5.   

    先把delphi写的tstream 看看然后看看她的子类！