unit1.pas

Delphi 7组件与分布式应用开发源码,介绍了基础的组件应用实例

unit Unit1;

interface

uses
  SysUtils, Classes, HTTPApp, HTTPProd, CompProd, PagItems, MidProd,
  XMLBrokr, DB, DBClient, MConnect, DBWeb, Variants;

type
  TWebModule1 = class(TWebModule)
    DCOMConnection1: TDCOMConnection;
    XMLBroker1: TXMLBroker;
    InetXPageProducer1: TInetXPageProducer;
    ClientDataSet1: TClientDataSet;
    DataSetTableProducer1: TDataSetTableProducer;
    procedure InetXPageProducer1HTMLTag(Sender: TObject; Tag: TTag;
      const TagString: String; TagParams: TStrings;
      var ReplaceText: String);
  private
    { Private declarations }
  public

  end;

var
  WebModule1: TWebModule1;

implementation

{$R *.dfm}

procedure TWebModule1.InetXPageProducer1HTMLTag(Sender: TObject; Tag: TTag;
  const TagString: String; TagParams: TStrings; var ReplaceText: String);
var
  i: Integer;
  TableName: OleVariant;
begin
  //当点击“提交”按钮时，执行以下语句
  if (Tag = tgCustom) and (CompareText(TagString, 'SQLResult') = 0) then
      //tgCustom是标识类型，Tag=tgCustom说明这是一个自定义的标识
  begin
    if Request.PathInfo = '/SQLResult' then
    begin
      if Request.ContentFields.Values['txt_sql'] <> '' then
      begin
        DataSetTableProducer1.DataSet := nil;
        DataSetTableProducer1.Columns.Clear;
        ClientDataSet1.Close;
        ClientDataSet1.FieldDefs.Clear;
        ClientDataSet1.CommandText := Request.ContentFields.Values['txt_sql'];
        ClientDataSet1.Open;
        DataSetTableProducer1.DataSet := ClientDataSet1;
        ReplaceText := DataSetTableProducer1.Content;
      end;
    end;
  end;
  //当点击“取得所有库表名称”按钮时，执行以下语句
  if (Tag = tgCustom) and (CompareText(TagString, 'TableName') = 0) then
  begin
    if Request.PathInfo = '/GetAllTableName' then
    begin
      DCOMConnection1.AppServer.GetAllTableName(TableName);
      for i := VarArrayLowBound(TableName, 1) to VarArrayHighBound(TableName, 1) do
        ReplaceText := ReplaceText + TableName[i] + #13;
    end;
  end;
end;

end.