peerrecipeintf.pas

来自「一个老外写的P2P例子...有点简单」· PAS 代码 · 共 31 行

{ Invokable interface IPeerRecipe }

unit PeerRecipeIntf;

interface

uses InvokeRegistry, Types, XSBuiltIns;

type
  { Invokable interfaces must derive from IInvokable }
  IPeerRecipe = interface(IInvokable)
  ['{F1E9B1BA-6884-4375-92B7-2C0EA959525F}']
    procedure Connect(const AURL: string); stdcall;
    procedure Disconnect(const AURL: string); stdcall;
    procedure FindRecipe(const ATTL: Integer;
                         const AURL: string;
                         const AGUID: string;
                         const ASearch: string); stdcall;
    procedure RecipeFound(const AGUID, ARecipe: string); stdcall;
    { Methods of Invokable interface must not use the default }
    { calling convention; stdcall is recommended }
  end;

implementation

initialization
  { Invokable interfaces must be registered }
  InvRegistry.RegisterInterface(TypeInfo(IPeerRecipe));

end.