ubitmapproviderintf.pas

来自「Delphi开发webservice的一套例子」· PAS 代码 · 共 22 行

Unit uBitmapProviderIntf;

interface

uses Types, XSBuiltIns;
type

  IBitmapProvider = interface(IInvokable)
    ['{7C28B747-160C-44AB-9006-230BDC274CD3}']
    function GetBitmap(const sBtName: WideString): WideString;  stdcall;
  end;


implementation

uses InvokeRegistry;

initialization
  InvRegistry.RegisterInterface(TypeInfo(IBitmapProvider), 'urn:BitmapProviderIntf-IBitmapProvider', '');

end.