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

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

Delphi控件源码

开发平台：

Delphi

IeFirstDm.pas：源码内容
  1. unit IeFirstDm;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, HTTPApp, MidItems, Db, DBClient,
  7.   MConnect, SConnect, CompProd, PagItems, MidProd, XMLBrokr, HTTPProd,
  8.   WebComp, DBXpress, FMTBcd, Provider, SqlExpr, DBTables;
  10. type
  11.   TWebModule1 = class(TWebModule)
  12.     XMLBroker1: TXMLBroker;
  13.     PageProducer1: TPageProducer;
  14.     DataSetProvider1: TDataSetProvider;
  15.     InetXPageProducer1: TInetXPageProducer;
  16.     DataForm1: TDataForm;
  17.     DataNavigator1: TDataNavigator;
  18.     Table1: TTable;
  19.     DataGrid1: TDataGrid;
  20.     EmpNo: TTextColumn;
  21.     LastName: TTextColumn;
  22.     FirstName: TTextColumn;
  23.     PhoneExt: TTextColumn;
  24.     HireDate: TTextColumn;
  25.     Salary: TTextColumn;
  26.     StatusColumn1: TStatusColumn;
  27.     procedure XMLBroker1GetResponse(Sender: TObject; Request: TWebRequest;
  28.       Response: TWebResponse; var Handled: Boolean);
  29.   private
  30.     { Private declarations }
  31.   public
  32.     { Public declarations }
  33.   end;
  35. var
  36.   WebModule1: TWebModule1;
  38. implementation
  40. {$R *.DFM}
  42. procedure TWebModule1.XMLBroker1GetResponse(Sender: TObject;
  43.   Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
  44. begin
  45.   Response.Content := '<h1>Updated</h1><p>' + InetXPageProducer1.Content;
  46.   Handled := True;
  47. end;
  49. end.