程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> Delphi的Indy通信中發送流文件的注意事項(2)

Delphi的Indy通信中發送流文件的注意事項(2)

編輯:Delphi

2.客戶端連接到服務器後,發送一個或多個流,當斷開的時候,服務器將所有流合並在一起接收。

{*------------------------------------------------------------------------------
  客戶端發送流,假定還未建立連接
------------------------------------------------------------------------------*}

procedure TClIEntForm.Button3Click(Sender: TObject);
var s: string; stream: TStream;
begin
  IdTCPClIEnt1.Connect;
  try
    s := 'Hello world!';
    stream := TStringStream.Create(s);
    IdTCPClIEnt1.OpenWriteBuffer;
    IdTCPClIEnt1.WriteStream(stream, true);
  finally
    IdTCPClIEnt1.CloseWriteBuffer;
    stream.Free;
    IdTCPClIEnt1.Disconnect;
  end;
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,-1,true);//當斷開連接時候接收流
    stream.Position := 0;
    Memo1.Lines.LoadFromStream(stream);

  end;

end;

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved