unit1.pas

来自「Delphi 7组件与分布式应用开发源码,介绍了基础的组件应用实例」· PAS 代码 · 共 37 行

unit Unit1;

interface

uses
  SysUtils, Classes, HTTPApp, HTTPProd;

type
  TWebModule1 = class(TWebModule)
    PageProducer1: TPageProducer;
    procedure PageProducer1HTMLTag(Sender: TObject; Tag: TTag;
      const TagString: String; TagParams: TStrings;
      var ReplaceText: String);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  WebModule1: TWebModule1;

implementation

{$R *.dfm}

procedure TWebModule1.PageProducer1HTMLTag(Sender: TObject; Tag: TTag;
  const TagString: String; TagParams: TStrings; var ReplaceText: String);
begin
  if Tag = tgImage then
  begin
    ReplaceText := '<IMG SRC="/scripts/b2.jpg" WIDTH=250 HEIGHT=200>';
  end;
end;

end.