如何用IDFingerServer组件得到某用户的详细信息

Question

我想得到某用户的详细信息,如用户名,IP地址等,使用IDFingerServer组件,请问具体怎么做呢?
1、在IdFingerServer的"OnCommandVerboseFinger"中输入以下代码：
procedure TForm1.IdFingerServer1CommandVerboseFinger(
  AThread: TIdPeerThread; const AUserName: String);
begin
AThread.Connection.WriteLn('verbose query');
if AuserName='lzmsoft' then
begin
    AThread.Connection.WriteLn('查询的名称:'+AuserName);
    AThread.Connection.WriteLn(Format('用户完整信息:%s -IP Address:%s',[AThread.Connection.LocalName,'192.168.0.3']));end;
end;
2、请问还需要IDFinger组件吗？这个组件的属性需要如何来设置呢？又需要写哪些代码呢?
3、用户名等输入的待查询的信息要在哪输入，用到哪个组件，Edit行吗？
4、显示此用户的具体信息又用到哪个组件呢？Memo行吗？

Answer 1

我想得到某用户的详细信息,如用户名,IP地址等,使用IDFingerServer组件,请问具体怎么做呢?
1、在IdFingerServer的"OnCommandVerboseFinger"中输入以下代码：
procedure TForm1.IdFingerServer1CommandVerboseFinger(
  AThread: TIdPeerThread; const AUserName: String);
begin
AThread.Connection.WriteLn('verbose query');
if AuserName='lzmsoft' then
begin
    AThread.Connection.WriteLn('查询的名称:'+AuserName);
    AThread.Connection.WriteLn(Format('用户完整信息:%s -IP Address:%s',[AThread.Connection.LocalName,'192.168.0.3']));end;
end;
2、请问还需要IDFinger组件吗？这个组件的属性需要如何来设置呢？又需要写哪些代码呢?
3、用户名等输入的待查询的信息要在哪输入，用到哪个组件，Edit行吗？
4、显示此用户的具体信息又用到哪个组件呢？Memo行吗？书上介绍不太详细,我又是初学,望各位朋友指点

Answer 2

To:ckc(火)
那要想实现上述功能,用别的什么组件呢?

Answer 3

我想得到某用户的详细信息,如用户名,IP地址等,使用IDFingerServer组件,请问具体怎么做呢?
1、在IdFingerServer的"OnCommandVerboseFinger"中输入以下代码：
procedure TForm1.IdFingerServer1CommandVerboseFinger(
  AThread: TIdPeerThread; const AUserName: String);
begin
AThread.Connection.WriteLn('verbose query');
if AuserName='lzmsoft' then
begin
    AThread.Connection.WriteLn('查询的名称:'+AuserName);
    AThread.Connection.WriteLn(Format('用户完整信息:%s -IP Address:%s',[AThread.Connection.LocalName,'192.168.0.3']));end;
end;
2、请问还需要IDFinger组件吗？这个组件的属性需要如何来设置呢？又需要写哪些代码呢?
3、用户名等输入的待查询的信息要在哪输入，用到哪个组件，Edit行吗？
4、显示此用户的具体信息又用到哪个组件呢？Memo行吗？

Answer 4

我想得到某用户的详细信息,如用户名,IP地址等,使用IDFingerServer组件,请问具体怎么做呢?
1、在IdFingerServer的"OnCommandVerboseFinger"中输入以下代码：
procedure TForm1.IdFingerServer1CommandVerboseFinger(
  AThread: TIdPeerThread; const AUserName: String);
begin
AThread.Connection.WriteLn('verbose query');
if AuserName='lzmsoft' then
begin
    AThread.Connection.WriteLn('查询的名称:'+AuserName);
    AThread.Connection.WriteLn(Format('用户完整信息:%s -IP Address:%s',[AThread.Connection.LocalName,'192.168.0.3']));end;
end;
2、请问还需要IDFinger组件吗？这个组件的属性需要如何来设置呢？又需要写哪些代码呢?
3、用户名等输入的待查询的信息要在哪输入，用到哪个组件，Edit行吗？
4、显示此用户的具体信息又用到哪个组件呢？Memo行吗？