binintf.pas

详细讲述如何用delphi进行com编程

unit BinIntf;

interface

type
  IOneDBin = interface
    ['{7856B7E3-EF75-11D2-B3AB-0040F67455FE}']
    procedure SetMaxValue(AMaxValue: Integer);
    procedure AddItem(AQuantity: Integer; ADescription: WideString; AValue: Integer);
    procedure Optimize;
    function NextBin: Boolean;
    function NextItem(var ADescription: WideString; var AValue: Integer): Boolean;
  end;

  IOneDBin2 = interface(IOneDBin)
    ['{15B382F0-F0E0-11D2-908E-0040F6741DE2}']
    function GetName: WideString;
    function NumBins: Integer;
    function PercentWaste: Double;
  end;

const
  Class_NextFit: TGUID = '{7856B7E2-EF75-11D2-B3AB-0040F67455FE}';
  Class_FirstFit: TGUID = '{E97BFEF7-F664-11D2-9099-0040F6741DE2}';
  Class_BestFit: TGUID = '{E97BFEF8-F664-11D2-9099-0040F6741DE2}';

implementation

end.