开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
ConvertWebMod.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：1k
源码类别：

Delphi控件源码

开发平台：

Delphi

ConvertWebMod.pas：源码内容
  1. unit ConvertWebMod;
  3. interface
  5. uses
  6.   SysUtils, Classes, HTTPApp, WSDLPub, SOAPPasInv, SOAPHTTPPasInv,
  7.   SoapHTTPDisp, WebBrokerSOAP;
  9. type
  10.   TWebModule1 = class(TWebModule)
  11.     HTTPSoapDispatcher1: THTTPSoapDispatcher;
  12.     HTTPSoapPascalInvoker1: THTTPSoapPascalInvoker;
  13.     WSDLHTMLPublish1: TWSDLHTMLPublish;
  14.     procedure WebModule1WebActionItem1Action(Sender: TObject;
  15.       Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
  16.   private
  17.     { Private declarations }
  18.   public
  19.     { Public declarations }
  20.   end;
  22. var
  23.   WebModule1: TWebModule1;
  25. implementation
  27. {$R *.DFM}
  29. uses
  30.   InvokeRegistry, ConvertIntf;
  32. procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
  33.   Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
  34. begin
  35.   Response.Content :=
  36.     '<h3>GetMethExternalName - ToEuro</h3><p>' +
  37.     InvRegistry.GetMethExternalName(TypeInfo(IConvert), 'ToEuro') +
  39.     '<h3>GetInterfaceExternalName - IConvert</h3><p>' +
  40.     InvRegistry.GetInterfaceExternalName(TypeInfo(IConvert)) +
  42.     '<h3>GetNamespaceByGUID - IConvert</h3><p>' +
  43.     InvRegistry.GetNamespaceByGUID (IConvert);
  44. end;
  46. end.