最简单的TTcpServer与TTcpClient通信实例-Delphi
来源:互联网 发布:机械行业推广优化方案 编辑:程序博客网 时间:2024/06/08 18:41
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Sockets, StdCtrls;
type
//工作流程:
//程序运行后点[连接]连接TcpClient和TcpServer
//点[发送]将edit1中的文本发送到TcpServer,TcpServer接收到以后添加到Mserver,并回复一条消息.
//TcpClient1收到TcpServer回复的消息后添加到TcpServer
//所有控件都说到了吧?Let's Go!
TFrmMain = class(TForm)
Edit1: TEdit;
Button1: TButton; //连接
Button2: TButton; //发送
Mserver: TMemo;
MClient: TMemo;
TcpServer1: TTcpServer; //active:=True;host:=127.0.0.1;port:=2011;其它默认值
TcpClient1: TTcpClient; //remotehost:=127.0.0.1;remoteport:=2011;其它默认值
procedure TcpServer1Accept(Sender: TObject;
ClientSocket: TCustomIpClient);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
//这个类实现TTcpClient接收TTcpserver回复的消息
TClientReceiveThread = class(TThread)
procedure Execute; override;
end;
var
FrmMain: TFrmMain;
ClientReceiveThread: TClientReceiveThread;
implementation
{$R *.dfm}
procedure TClientReceiveThread.Execute;
begin
with FrmMain do
begin
while TcpClient1.Connected do //死循环!必须的!!!
MClient.Lines.Add(TcpClient1.Receiveln);
end;
end;
//TcpServer1的OnAccept事件
procedure TFrmMain.TcpServer1Accept(Sender: TObject;
ClientSocket: TCustomIpClient);
var
s: String;
begin
while ClientSocket.connected do //死循环!必须的!!!
begin
s := ClientSocket.Receiveln; //收
MServer.Lines.Add(s);
s := DateTimeToStr(Now);
ClientSocket.Sendln(s); //发
end;
end;
procedure TFrmMain.Button1Click(Sender: TObject);
begin
//连接服务器,如果成功创建客户端接收线程
if TcpClient1.Connect then ClientReceiveThread := TClientReceiveThread.Create(false);
end;
procedure TFrmMain.Button2Click(Sender: TObject);
begin
TcpClient1.Sendln(Edit1.Text);
end;
//真的很简单,最后一句话:
uses
type
//工作流程:
//程序运行后点[连接]连接TcpClient和TcpServer
//点[发送]将edit1中的文本发送到TcpServer,TcpServer接收到以后添加到Mserver,并回复一条消息.
//TcpClient1收到TcpServer回复的消息后添加到TcpServer
//所有控件都说到了吧?Let's Go!
//这个类实现TTcpClient接收TTcpserver回复的消息
var
implementation
{$R *.dfm}
procedure TClientReceiveThread.Execute;
begin
end;
//TcpServer1的OnAccept事件
procedure TFrmMain.TcpServer1Accept(Sender: TObject;
var
begin
end;
procedure TFrmMain.Button1Click(Sender: TObject);
begin
//连接服务器,如果成功创建客户端接收线程
end;
procedure TFrmMain.Button2Click(Sender: TObject);
begin
end;
//真的很简单,最后一句话:
end.
转自:http://blog.sina.com.cn/s/blog_5383794d0100nt9u.html
0 0
- 最简单的TTcpServer与TTcpClient通信实例-Delphi
- delphi TTcpClient TTcpServer分析
- 用TTcpClient和TTcpServer进行文件的传输
- 用TTcpClient和TTcpServer进行文件的传输
- 再说“用TTcpClient和TTcpServer进行文件的传输”
- 用TTcpClient和TTcpServer进行文件的传输
- DELPHI TTcpServer控件使用实例
- Socket通信最简单实例
- Socket通信实例(一)——Java与Java最简单的通讯
- 最简单的delphi加载C++dll实例
- OSG简介与最简单的实例
- OSG简介与最简单的实例
- delphi与flash通信交互的文本简单实现
- .net与java webService通信的最简单方法
- Flex 与 C# socket 通信(最简单的例子)
- express 4.x与angular最简单的通信
- delphi下使用indy进件socket通信的简单实例介绍
- 简单的TCP通信实例
- 数组
- 尾插法实现LinkedList
- SSH的基本概念
- live555 fNumTruncatedBytes〉0
- 17.2.24 caffe中solver层的参数概述
- 最简单的TTcpServer与TTcpClient通信实例-Delphi
- 国际最新消息:Google 宣布成功攻破 SHA-1 加密
- android developer tiny share-20170217
- OkhttpUtils的Cookie存储问题
- 文章标题
- binder初始篇
- IP组播技术介绍及实现例子
- spring+PageHelper+mybatis(三)
- Activity和Fragment之间的数据通信