INDY流的發送和接收

發送

try

　　　 s := 'Hello world!';

　　　 stream := TStringStream.Create(s);

　　　 IdTCPClient1.OpenWriteBuffer;

　　　 IdTCPClient1.WriteInteger(stream.Size);//注意這裡：要先寫入流的長度，在讀取的時候如果使用      AThread.Connection.ReadStream(stream);

　　　 IdTCPClient1.WriteStream(stream, true);

　 finally

　　　 IdTCPClient1.CloseWriteBuffer;

　　　 stream.Free;

　 end;

接收

procedure TServerForm.IdTCPServer1Execute(AThread: TIdPeerThread);

var stream: Tstream;

begin

　 if not AThread.Terminated and AThread.Connection.Connected then

　 begin

　　　 stream := TStringStream.Create('');

　　　 AThread.Connection.ReadStream(stream);//這句相當于ReadStream(stream，-1，false)，就是根據流的前四個位元組讀出流長度，然後再将流讀出

　　　 stream.Position := 0;

　　　 Memo1.Lines.LoadFromStream(stream);

　 end;