idtcpserver demo
来源:互联网 发布:苹果5s怎么关闭网络 编辑:程序博客网 时间:2024/05/18 02:15
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;
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;
阅读全文
0 0
- idtcpserver demo
- IDTCPSERVEr
- Delphi笔记-Indy10.5.5 IdTcpServer 与 IdTcpClient Demo --服务器端
- Delphi笔记-Indy10.5.5 IdTcpServer 与 IdTcpClient Demo
- Indy IdTcpserver
- idtcpserver用法
- close idtcpserver
- Socket通讯使用IdTCPServer
- 关于idtcpserver的使用
- idtcpserver接收stream
- IdTCPClient / IdTCPServer + 心跳机制
- idtcpserver流操作
- delphi idtcpserver&idtcpclient 演示
- idtcpserver 多线程同步问题
- IdTCPClient和IdTCPServer主要属性
- IdTCPClient和IdTCPServer主要属性
- idTcpServer给idTcpClient发送消息
- 关于idtcpserver收包错位的问题
- 《gradle 用户指南》中文版 第二部分、使用现有构建
- Unity 开发中常见问题 Unity bug reporter
- Xamarin.Forms 用户界面——控件——布局——创建自定义布局
- Android source code
- 欢迎使用CSDN-markdown编辑器
- idtcpserver demo
- Hibernate一对多的关系
- C# 字符串重编码——任意字符串转化为全字母串
- unity 3D c# 协程的典型用法-Unity官方案例精讲笔记
- 判断二叉树是否为二叉搜索树
- 醒
- java编程思想笔记-并发之并发锁synchronized详解(二)
- Xamarin.Forms 用户界面——控件——ListView
- tp3.2.3无限级分类