unit1.pas

delphi源码 ,inteweb编程示例

unit Unit1;

interface

uses
  SysUtils, Classes, HTTPApp, HTTPProd;

type
  TWebModule1 = class(TWebModule)
    PageProducer1: TPageProducer;
    procedure WebModule1WebActionItem2Action(Sender: TObject;
      Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  WebModule1: TWebModule1;

implementation

{$R *.dfm}

procedure TWebModule1.WebModule1WebActionItem2Action(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
  s: String;
begin
  Response.Content := '<h3>我喜爱的体育运动有：</h3>';
  s := '';
  if Request.ContentFields.IndexOfName('C1') <> -1 then
  begin
    if Request.ContentFields.Values['C1'] = 'ON' then s := s + '篮球' + ' ';
  end;
  if Request.ContentFields.IndexOfName('C2') <> -1 then
  begin
    if Request.ContentFields.Values['C2'] = 'ON' then s := s + '排球' + ' ';
  end;
  if Request.ContentFields.IndexOfName('C3') <> -1 then
  begin
    if Request.ContentFields.Values['C3'] = 'ON' then s := s + '羽毛球' + ' ';
  end;
  if Request.ContentFields.IndexOfName('C4') <> -1 then
  begin
    if Request.ContentFields.Values['C4'] = 'ON' then s := s + '跑步' + ' ';
  end;
  if Request.ContentFields.IndexOfName('C5') <> -1 then
  begin
    if Request.ContentFields.Values['C5'] = 'ON' then s := s + '骑自行车' + ' ';
  end;
  if Request.ContentFields.IndexOfName('C6') <> -1 then
  begin
    if Request.ContentFields.Values['C6'] = 'ON' then s := s + '下棋' + ' ';
  end;
  if Request.ContentFields.IndexOfName('T1') <> -1 then
  begin
    s := s + Request.ContentFields.Values['T1'];
  end;
  Response.Content := Response.Content + '<p>' + s + '</p>';
  Handled := True;

end;

end.