BabelIntf.pas
资源名称:delphi.rar [点击查看]
上传用户:fh681027
上传日期:2022-07-23
资源大小:1959k
文件大小:0k
源码类别:
Delphi控件源码
开发平台:
Delphi
- unit BabelIntf;
- interface
- uses Types, XSBuiltIns;
- type
- BabelFishPortType = interface(IInvokable)
- ['{DF96B8F8-DD8E-43A1-9276-4F821D9EA3FA}']
- function BabelFish(const translationmode: String;
- const sourcedata: String): String; stdcall;
- end;
- implementation
- uses InvokeRegistry;
- initialization
- InvRegistry.RegisterInterface(
- TypeInfo(BabelFishPortType), '', '');
- end.