Delhi socket服务器和客户端互操作
来源:互联网 发布:centos 个人 编辑:程序博客网 时间:2024/06/08 02:07
SOCKET TCP
procedure idtcpsrvr1Execute(AThread: TIdPeerThread);
procedure idtcpsrvr1Connect(AThread: TIdPeerThread);
idtcpsrvr1: TIdTCPServer;
idtcpclnt1: TIdTCPClient;
client:
连接服务器->发送数据消息
//连接服务器
idtcpclnt1.Host:='127.0.0.1';
idtcpclnt1.Port:=168;
idtcpclnt1.Connect();
ShowMessage('连接成功');
var
sm:TStringStream;
msize:Integer;
sm:=TStringStream.Create(Trim(edt1.Text));
msize:=sm.Size;
cxm1.Lines.Add('发送时流大小为:'+inttostr(msize));
idtcpclnt1.WriteInteger(msize); //发送的字节数据的大小
idtcpclnt1.WriteStream(sm);//发送的数据流
sm.Free;//释放TStringStream对象
//SERVER
打开TCP 连接
idtcpsrvr1.DefaultPort:=168;
idtcpsrvr1.Active:=True;
ShowMessage('程序启动成功');
//提示有客户端请求消息过来
procedure TForm1.idtcpsrvr1Connect(AThread: TIdPeerThread);
begin
cxm1.Lines.Add('有用户连接');
end;
//在 idtcpsrvr1Execute时间里面接受数据消息
var
s:string;
sm:TStringStream;
msize:integer;
sm:= TStringStream.Create(''); //创建字符串流对象
msize:=AThread.Connection.ReadInteger(); //读取数据流的大小
cxm1.Lines.Add('接受的字符串大小为:'+inttostr( msize)) ;
AThread.Connection.ReadStream(sm,msize); //读取数据的内容
cxm1.Lines.Add(sm.DataString); //讲数据添加到cxm1里面
- Delhi socket服务器和客户端互操作
- DELHI实现十进制和二进制互转
- socket 服务器和客户端
- SOCKET 服务器和客户端通信
- socket编程客户端和服务器
- Socket服务器和客户端程序(1)
- 简易socket客户端和多线程服务器实现
- socket学习第一节:服务器和客户端通信
- 服务器和客户端的socket编程
- Socket 服务器和客户端的说明
- python简单的socket 服务器和客户端
- 简单Socket实现客户端和服务器连接
- Socket之服务器和客户端通讯
- Socket 简单实现服务器和客户端
- Ruby SSL socket 服务器和客户端
- socket服务器和客户端的建立步骤
- Socket通信之客户端和服务器对话
- 简单的python socket服务器和客户端
- 向前兼容,向后兼容
- qml 中支持的数据类型
- 5.Chrome数据同步服务浅析--书签分析篇
- OCP-1Z0-051 第55题 in和or的性能比较
- SQL编程->函数(一)
- Delhi socket服务器和客户端互操作
- QT: c++ 中通过objectName访问qml中的对象
- 设计模式开篇
- 两端对齐label
- 职场女性备孕如何调整
- 每个人应该知道的NVelocity用法
- FZU 2169 shadow
- ubuntu不识别设备
- 第十四天 乐在其中-Android与远端之GET方式