外部网页调用delphi函数

第一步：要创建Type library--IWebLogin添加登录接口

第二步：创建Package添加Type Library单元,编辑webloginform.bp。

第三步：程序中添加TypeLibrary单元，新建TypeLibrary_Impl单元实现  TWebLogInExternal= class(TAutoIntfObject, IWebLogin, IDispatch)

constructor TWebLogInExternal.Create;

var
  TypeLib: ITypeLib;
  TlbFileName: WideString;
begin
  TlbFileName := ExtractFilePath(ParamStr(0)) + 'sqfdwebloginform.bpl';
  OleCheck(LoadTypeLib(PWideChar(TlbFileName), TypeLib));
  inherited Create(TypeLib, ISqfdWebLogin);

end;

在此单元就可以实现工程中任何单元函数调用。