【delphi开源代码栏目提醒】:本文主要为网学会员提供GetServicePrv.pas,希望对需要GetServicePrv.pas网友有所帮助,学习一下!
Unit GetServicePrv;
interface
uses Types, XSBuiltIns;
type
IGetArea = interface(IInvokable)
['{15FF25B9-30F0-4C57-9896-C04CD45BBAD2}']
function GetUS(const iAreaCode: Integer): WideString; stdcall;
function GetInternational(const iCountryCode: Integer): WideString; stdcall;
end;
implementation
uses InvokeRegistry;
initialization
InvRegistry.RegisterInterface(TypeInfo(IGetArea), 'urn:GetAreaIntf-IGetArea', '');
end.