idtcpserver demo

本文介绍了一个使用Delphi实现TCP客户端与服务器间通信的基本示例。包括客户端连接服务器、发送字符串消息及服务器接收并显示消息的过程。客户端通过TCP协议连接到本地服务器,并发送固定字符串“大家好”。服务器接收该消息并将其显示在Memo组件中。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

procedure TForm1.Button1Click(Sender: TObject); //连接按钮
begin
  IdTCPClient1.Host:='127.0.0.1';
  IdTCPClient1.Connect;
end;

procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread);
begin
  Memo1.Lines.Add('有用户连接');
end;

procedure TForm1.Button2Click(Sender: TObject); //发送按钮
var
  sm:TStringStream;
  msize:Integer;
begin
  sm:=TStringStream.Create('大家好');
  msize:=sm.Size;
  Memo1.Lines.Add('发送时流大小为:'+inttostr(msize));
  IdTCPClient1.WriteInteger(msize);
  IdTCPClient1.WriteStream(sm);
  sm.Free;
end;

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
  s:string;
  sm:TStringStream;
  msize:integer;
begin
  sm:=TStringStream.Create('');
  msize:=AThread.Connection.ReadInteger();
  Memo1.Lines.Add('接收到的大小为:'+inttostr(msize));
  AThread.Connection.ReadStream(sm,msize);
  Memo1.Lines.Add(sm.DataString);
  sm.Free;
end;
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值