type　　TRec　=　record{定义一个记录}//写入　procedure　TForm1.Button1Click(Sender:　TObject);　var　　rec:　TRec;　　ms:　TMemoryStream;　begin　　ms　:=　TMemoryStream.Create;　　rec.name　:=　'张三';　rec.age　:=　8;　　ms.Write(rec,　SizeOf(rec));　　rec.name　:=　'李四';　rec.age　:=　81;　　ms.Write

<br />//用字符指针读取流中的内容　<br />var　<br />　pc:　PChar;　<br />begin　<br />　pc　:=　mStream.Memory;<br />{<br />把字符指针指向内存流<br />}<br /><br />　ShowMeage(pc[0]);<br /> <br />//从流读入到缓冲区　<br />var　<br />　buffer:　array[0..2]　of　Char;<br />{<br />定义个字符缓冲区<br />}<br /><br

<br />TMsg02 = packed record<br />    case _DT: Byte of<br />      $01: (_Msg0201: TMsg0201);<br />      $02: (_Msg0202: TMsg0202);<br />      $03: (_Msg0203: TMsg0203);<br />      $04: (_Msg0204: TMsg0204);<br />      $05: (_Msg0205: TMsg0205);<br />     

<br />uses Zlib;<br /><br />//压缩函数<br />procedure Zip(var fs: TMemoryStream);<br />var<br />  cs: TCompressionStream;<br />  ms: TMemoryStream;<br />  num: Integer;<br />begin<br />  ifnot(Assigned(fs) and (fs.Size>0)) then Exit;<br /><br />    num := fs.S

1.服务器端: type     TMSG001   =   Packed   Record       //定义记录类型        userId: array[0..19] of char;        password: array[0..17] of char;    end;PSendMSG=^TMSG001;//定义指针类型var   pSend: PSendMSG;//定义指针pSend^.userId := '001';//生成要发送数据pSend^.password := '001';

<br />Type<br />　 TRecord = Record<br />　　　 Name: String[10];<br />　　　 address: String[50];<br />　 End;<br />　 TRecordFile = File Of TRecord;<br />Var<br />　 Form1: TForm1;<br />　 aRecordFile: TRecordFile;<br />　 aRecordFileName: String = 'c:PersonS.dat';<

<br />发送<br />try<br />　　　 s := 'Hello world!';<br />　　　 stream := TStringStream.Create(s);<br />　　　 IdTCPClient1.OpenWriteBuffer;<br />　　　 IdTCPClient1.WriteInteger(stream.Size);//注意这里：要先写入流的长度，在读取的时候如果使用      AThread.Connection.ReadStream(stream);<br />　

<br />{<br />函数<br />procedure pinghost(ip:string;var info:string);<br />ip:目标ＩＰ地址；<br />info:ping了以后产生的信息(1)或(2)；<br />(1)成功信息<br />ip 发送测试的字符数　返回时间<br />(2)出错信息<br />Can not find host!<br /><br />使用<br />uses ping;<br />procedure TForm1.Button1Click(Send

<br />{<br />author:cxg<br />断网自动检查并提示，自动重连<br />}<br />unit ClientTestConnected;<br />interface<br />uses<br />  SysUtils, Classes, SqlExpr,uNetCommon;<br />type<br />  TWaitThread = class(TThread)<br />  private<br />    { Private declarations }<br />