Delphi控件源码

开发平台：

Delphi

BabelIntf.pas：源码内容

							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.

						