Indy的Demo的一个问题

Question

在Indy提供的Demo中BasicClientServer\basic server中的服务端的一个函数如下:function TfrmMain.PortDescription(const PortNumber: integer): string;
begin
  with GStack.WSGetServByPort(PortNumber) do try
    Result := '';
    if Count > 0 then begin
      Result := Format('%d: %s', [PortNumber, CommaText]);    {Do not Localize}
    end;
  finally
    Free;
  end;
end;其中GStack.WSGetServByPort 似乎是一个抽象函数,也没有找到override的地方,但是程序一样可以执行下去,是怎么回事啊?

Answer 1

应该你没没有override的地方吧...

Answer 2

Indy的Demo哪里down的？
给个链接好吗 
谢谢

Answer 3

GStack是 IdStack.pas 中的一个中间对象，不要直接调用他的create 方法，直接在窗体上放 IdTcpServer组件后，就能直接使用这个对象。WSGetServByPort 是它的一个方法而已。