TIdGopher

type TIdGopher = class(TIdTCPClientCustom)

protected

  FOnMenuItem: TIdGopherMenuEvent;

  procedure DoMenu();

  procedure ProcessGopherError;

  function MenuItemFromString();

  function ProcessDirectory();

  function LoadExtendedDirectory();

  procedure ProcessFile();

  procedure ProcessTextFile();

  procedure InitComponent; override;

public

  function GetMenu();

  function Search();

  procedure GetFile();

  procedure GetTextFile();

  function GetExtendedMenu();

published

  property OnMenuItem: TIdGopherMenuEvent; [rw]

  property Port: TIdPort;

  property Host: string;

end;

TIdGopher

TIdTCPClientCustom

TIdTCPConnection

TIdComponent

TIdBaseComponent

TIdInitializerComponent

TObject