webmain.pas

《Delphi开发人员指南》配书原码

{
Things to do to make this sample work:

1. Register the server before hitting the ISAPI DLL
2. Either copy the files from <DELPHI>\SOURCE\WEBMIDAS to your virtual
   "/webmidas" directory, or modify the TMidasPageProducers to point to the
   place where the files exist.
3. Copy the DLL to a script-capable directory (e.g. c:\inetpub\scripts)
4. Go to http://localhost/scripts/inetxisapi.dll in your browser
}
unit WebMain;

interface

uses
  Windows, Messages, SysUtils, Classes, HTTPApp, XMLBrokr, Db, DBClient,
  MConnect, MidItems, CompProd, PagItems, MidProd, ReconcileProd;

type
  TWebModule1 = class(TWebModule)
    DCOMConnection1: TDCOMConnection;
    CustomerXML: TXMLBroker;
    EmployeeCDS: TClientDataSet;
    Customers: TMidasPageProducer;
    DataForm1: TDataForm;
    DataGrid2: TDataGrid;
    FieldGroup1: TFieldGroup;
    DataNavigator1: TDataNavigator;
    TextColumn: TTextColumn;
    TextColumn2: TTextColumn;
    SelectOptionsColumn: TSelectOptionsColumn;
    FieldText: TFieldText;
    FieldText2: TFieldText;
    FieldText3: TFieldText;
    FieldText4: TFieldText;
    FieldText5: TFieldText;
    FieldText6: TFieldText;
    StatusColumn1: TStatusColumn;
    TextColumn3: TTextColumn;
    TextColumn4: TTextColumn;
    ReconcilePageProducer1: TReconcilePageProducer;
    DataForm2: TDataForm;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  WebModule1: TWebModule1;

implementation

{$R *.DFM}

end.