Indy网络控件TIdTCPClient没有OnRead之类事件,客户端和服务端怎么实现交互收发?

ooolinux 2018-01-02 11:17:34
Indy网络控件TIdTCPClient没有OnRead之类事件,客户端和服务端怎么实现交互收发?
比如一个网络下棋程序,客户端下了一步棋,发送一条消息,服务端收到一条消息,可以下棋,下了一步棋,发送一条消息,那么客户端在哪个事件处理函数里读取这条消息呢?
...全文
1020 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
ooolinux 2018-01-11
  • 打赏
  • 举报
回复
转的: With that said, this kind of code would be better implemented using a worker thread instead of a timer. 1 - Create a new class derived from TThread (File > New > Other > Thread Object) type TDataEvent = procedure(const Data: string) of object; TReadingThread = class(TThread) private FClient: TIdTCPClient; FData: string; FOnData: TDataEvent; procedure DataReceived; protected procedure Execute; override; public constructor Create(AClient: TIdTCPClient); reintroduce; property OnData: TDataEvent read FOnData write FOnData; end; constructor TReadingThread.Create(AClient: TIdTCPClient); begin inherited Create(True); FClient := AClient; end; procedure TReadingThread.Execute; begin while not Terminated do begin FData := IdTCPClient1.IOHandler.ReadLn; if (FData <> '') and Assigned(FOnData) then Synchronize(DataReceived); end; end; procedure TReadingThread.DataReceived; begin if Assigned(FOnData) then FOnData(FData); end; 2 - Modify your connection code: IdTCPClient1.Connect; try Thread := TReadingThread.Create(IdTCPClient1); Thread.OnData := DataReceived; Thread.Resume; except IdTCPClient1.Disconnect; raise; end; ... if Assigned(Thread) then Thread.Terminate; try IdTCPClient1.Disconnect; finally if Assigned(Thread) then begin Thread.WaitFor; FreeAndNil(Thread); end; end; ... procedure TForm1.DataReceived(const Data: string); begin ShowMessage(Data); end;
Mr Dang 2018-01-03
  • 打赏
  • 举报
回复
开一个读线程一直查询 ,有数据到 发布事件。 主线程订阅事件 。
ooolinux 2018-01-03
  • 打赏
  • 举报
回复
@a295281315 感觉这样用起来就有点麻烦了, 不如 TClientSocket、TServerSocket 简单。 发布事件、订阅事件是啥?
使用TIdAntiFreeze对抗“冻结”   Indy使用一个特殊的组件TIdAntiFreeze来透明地解决客户程序用户界面“冻结”的问题。TIdAntiFreeze在Indy内部定时中断对栈的调用,并在中断期间调用Application.ProcessMessages方法处理消息,而外部的Indy调用继续保存阻塞状态,就好像TIdAntiFreeze对象不存在一样。你只要在程序中的任意地方添加一个TIdAntiFreeze对象,就能在客户程序中利用到阻塞式Socket的所有优点而避开它的一些显著缺点。   Indy使用了线程技术   阻塞式Socekt通常都采用线程技术,Indy也是如此。从最底层开始,Indy的设计都是线程化的。因此用Indy创建服务器和客户程序跟在Unix下十分相似,并且Delphi的快速开发环境和Indy对WinSock的良好封装使得应用程序创建更加容易。   Indy服务器模型   一个典型的Unix服务器有一个或多个监听进程,它们不停地监听进入的客户连接请求。对于每一个需要服务的客户,都fork一个新进程来处理该客户的所有事务。这样一个进程只处理一个客户连接,编程就变得十分容易。   Indy服务器工作原理同Unix服务器十分类似,只是Windows不像Unix那样支持fork,而是支持线程,因此Indy服务器为每一个客户连接分配一个线程。   图1显示了Indy服务器的工作原理。Indy服务器组件创建一个同应用程序主线程分离的监听线程来监听客户连接请求,对于接受的每一个客户,都创建一个新的线程来为该客户提供服务,所有与这一客户相关的事务都由该线程来处理。   使用组件TIdThreadMgrPool,Indy还支持线程池。   线程与Indy客户程序   Indy客户端组件并未使用线程。但是在一些高级的客户程序中,程序员可以在自定义的线程中使用Indy客户端组件,以使用户界面更加友好。

1,593

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 网络通信/分布式开发
社区管理员
  • 网络通信/分布式开发社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧