【delphi开源代码栏目提醒】：网学会员delphi开源代码为您提供InMillInterface.pas参考，解决您在InMillInterface.pas学习中工作中的难题，参考学习。

    Unit InMillInterface;
    
    interface
    
    uses Types, XSBuiltIns;
    type
    
      ConverterPortType = interface(IInvokable)
        ['{9D83FF20-CEF6-4B18-9900-510E22D81C64}']
        function inchToMM(const param0: Single): Single;  stdcall;
        function mmToInch(const param0: Single): Single;  stdcall;
      end;
    
    
    implementation
    
    uses InvokeRegistry;
    
    initialization
      InvRegistry.RegisterInterface(TypeInfo(ConverterPortType), 'urn:target-converter-service', 'UTF-8');
    
    end.