XE8-indy10中TIdTCPConnection.Connected函数的源码

最新推荐文章于 2020-11-09 15:53:15 发布

阏男秀

最新推荐文章于 2020-11-09 15:53:15 发布

阅读量1.4k

点赞数

分类专栏： RAD Builder XE8 文章标签： indy10 Delphi

本文链接：https://blog.csdn.net/yannanxiu/article/details/48677243

版权

RAD Builder XE8 专栏收录该内容

15 篇文章 3 订阅

订阅专栏

indy10中TIdTCPConnection.Connected函数的源码：

function TIdTCPConnection.Connected: Boolean;
var
  // under ARC, convert a weak reference to a strong reference before working with it
  LIOHandler: TIdIOHandler;
begin
  // Its been changed now that IOHandler is not usually nil, but can be before the initial connect
  // and also this keeps it here so the user does not have to access the IOHandler for this and
  // also to allow future control from the connection.
  LIOHandler := IOHandler;
  Result := Assigned(LIOHandler);
  if Result then begin
    Result := LIOHandler.Connected;
  end;
end;