Indy的Demo的一个问题

[smzgl]

在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的地方,但是程序一样可以执行下去,是怎么回事啊?

[dabaicai]

按ctrl 点鼠标追着看看啊

[GARNETT2183]

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

[smzgl]

看不明楼上的话

[suncheng_hong]

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

[luxuewei5214]

应该是一个api函数

[smzgl]

看不到啊

[rokiroki]

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

WSGetServByPort 是它的一个方法而已。