psibasecomponent.pas

一个delphi的p2p控件的源代码

unit PsiBaseComponent;

//******************************************************************************
// The original software is under
// Copyright (c) 1993 - 2000, Chad Z. Hower (Kudzu)
//   and the Indy Pit Crew - http://www.nevrona.com/Indy/
//
// Amended : November 2000, by Michael M. Michalak MACS for use with
// MorphTek.com Inc Peer to Peer Open Source Components - http://www.morphtek.com
//
//******************************************************************************

interface

uses
  Classes;

// ***********************************************************
// TPsiBaseComponent is the base class for all Psi components.
// ***********************************************************
type
  TPsiBaseComponent = class(TComponent)
  public
    function GetVersion: string;
    property Version: string read GetVersion;
  published
  end;

implementation

uses
  PsiGlobal;

function TPsiBaseComponent.GetVersion: string;
begin
  Result := gsPsiVersion;
end;

end.