www.pudn.com > Indy_9_00_14_src.zip > IdFinger.pas

{ $HDR$} 
{**********************************************************************} 
{ Unit archived using Team Coherence                                   } 
{ Team Coherence is Copyright 2002 by Quality Software Components      } 
{                                                                      } 
{ For further information / comments, visit our WEB site at            } 
{ http://www.TeamCoherence.com                                         } 
{**********************************************************************} 
{} 
{ $Log:  10157: IdFinger.pas  
{ 
{   Rev 1.0    2002.11.12 10:38:02 PM  czhower 
} 
unit IdFinger; 
 
{*******************************************************} 
{                                                       } 
{       Indy Finger Client TIdFinger                    } 
{                                                       } 
{       Copyright (C) 2000 Winshoes Working Group       } 
{       Original author J. Peter Mugaas                 } 
{       2000-April-23                                   } 
{       Based on RFC 1288                               } 
{                                                       } 
{*******************************************************} 
{2000-April-30  J. Peter Mugaas 
  -adjusted CompleteQuery to permit recursive finger queries such 
   as "test@test.com@example.com".  I had mistakenly assumed that 
   everything after the first @ was the host name. 
  -Added option for verbose output request from server - note that 
   many do not support this.} 
interface 
 
uses 
  Classes, 
  IdAssignedNumbers, 
  IdTCPClient; 
 
type 
  TIdFinger = class(TIdTCPClient) 
  protected 
    FQuery: String; 
    FVerboseOutput: Boolean; 
    Procedure SetCompleteQuery(AQuery: String); 
    Function GetCompleteQuery: String; 
  public 
    constructor Create(AOwner: TComponent); override; 
    {This connects to a server, does the finger querry specified in the Query 
    property and returns the results of the querry} 
    function Finger: String; 
  published 
    {This is the querry to the server which you set with the Host Property} 
    Property Query: String read FQuery write FQuery; 
    {This is the complete querry such as "user@host"} 
    Property CompleteQuery: String read GetCompleteQuery write SetCompleteQuery; 
    {This indicates that the server should give more detailed information on 
    some systems.  However, this will probably not work on many systems so it is 
    False by default} 
    Property VerboseOutput: Boolean read FVerboseOutPut write FVerboseOutPut 
      default False; 
  end; 
 
implementation 
 
uses 
  IdGlobal, 
  IdTCPConnection, 
  SysUtils; 
 
{ TIdFinger } 
 
constructor TIdFinger.Create(AOwner: TComponent); 
begin 
  inherited; 
  Port := IdPORT_FINGER; 
end; 
 
{This is the method used for retreiving Finger Data which is returned in the 
 result} 
function TIdFinger.Finger: String; 
var QStr : String; 
begin 
  QStr := FQuery; 
  if VerboseOutPut then 
  begin 
    QStr := QStr + '/W';     {Do not Localize} 
  end; //if VerboseOutPut then 
  Connect; 
  try 
    {Write querry} 
    Result := '';         {Do not Localize} 
    WriteLn(QStr); 
    {Read results} 
    Result := AllData; 
  finally 
    Disconnect; 
  end;  // try..finally. 
end; 
 
function TIdFinger.GetCompleteQuery: String; 
begin 
  Result := FQuery + '@' + Host;  {Do not Localize} 
end; 
 
procedure TIdFinger.SetCompleteQuery(AQuery: String); 
var p : Integer; 
begin 
  p := RPos('@', AQuery, -1);       {Do not Localize} 
  if (p <> 0) then begin 
    if ( p < Length ( AQuery ) ) then 
    begin 
      Host := Copy(AQuery, p + 1, Length ( AQuery ) ); 
    end; // if ( p < Length ( AQuery ) ) then 
    FQuery := Copy(AQuery, 1, p - 1); 
  end  //if (p <> 0) then begin 
  else 
  begin 
    FQuery := AQuery; 
  end;  //else..if (p <> 0) then begin 
end; 
 
end.