BabelIntf.pas
上传用户:fh681027
上传日期:2022-07-23
资源大小:1959k
文件大小:0k
源码类别:

Delphi控件源码

开发平台:

Delphi

  1. unit BabelIntf;
  2. interface
  3. uses Types, XSBuiltIns;
  4. type
  5.   BabelFishPortType = interface(IInvokable)
  6.     ['{DF96B8F8-DD8E-43A1-9276-4F821D9EA3FA}']
  7.     function BabelFish(const translationmode: String;
  8.       const sourcedata: String): String; stdcall;
  9.   end;
  10. implementation
  11. uses InvokeRegistry;
  12. initialization
  13.   InvRegistry.RegisterInterface(
  14.     TypeInfo(BabelFishPortType), '', '');
  15. end.