unit2.pas

基于WAP的手机无线应用的源代码

unit Unit2;

interface

uses
  SysUtils, Classes, HTTPApp, DB, ADODB;

type
  TWebModule2 = class(TWebModule)
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    procedure WebModule2WebActionItem1Action(Sender: TObject;
      Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
    procedure WebModule2WebActionItem2Action(Sender: TObject;
      Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  WebModule2: TWebModule2;

implementation

uses WebReq;

{$R *.DFM}

procedure TWebModule2.WebModule2WebActionItem1Action(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
  Response.ContentType := 'text/vnd.wap.wml';
  Response.Content :=
  '<?xml version="1.0"?> ' + #10#13 +
  '<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN"' +
  ' "http://www.wapforum.org/DTD/wml_1.1.xml">' + #10#13 +
  #10#13 +
  '<wml>' +
  '<card id="China" title="China ID Card">' +
  '<p>' +
  'First 6 number: <input name="code" format="*N"/><br/>' +
  '</p>' +
  '<do type="prev" label="Query">' +
  ' <go method="post" href="http://localhost:1024/Project1.MyFirstWAP/check">' +
  ' <postfield name="code" value="$(code)"/>' +
  ' </go>' +
  '</do>' +
  '</card>' +
  '</wml>';
End;

procedure TWebModule2.WebModule2WebActionItem2Action(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
  RegStr:String;
begin
  RegStr := Request.ContentFields.Values['code'];
  WebModule2.ADOQuery1.Close;
  WebModule2.ADOQuery1.SQL.Clear;
  WebModule2.ADOQuery1.SQL.Add('Select * from id where code="' + RegStr +'"');
  WebModule2.ADOQuery1.Open;

  if  WebModule2.ADOQuery1.RecordCount > 0 then
    RegStr := RegStr + ':' + WebModule2.ADOQuery1.FieldByName('name').AsString
    else
      RegStr := RegStr + ':No record match!';

  Response.ContentType := 'text/vnd.wap.wml';
  Response.Content :=
  '<?xml version="1.0"?> ' + #10#13 +
  '<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN"' +
  ' "http://www.wapforum.org/DTD/wml_1.1.xml">' + #10#13 +
  #10#13 +
  '<wml>' +
  '<card id="China" title="China ID Card">' +
  '<p>' +
  RegStr +
  '</p>' +
  '<do type="next" label="Home">' +
  ' <go href="http://localhost:1024/Project1.MyFirstWAP"/>'+
  '</do>' +
  '</card>' +
  '</wml>';
  {关闭数据集}
  WebModule2.ADOQuery1.Close;
end;

initialization
  if WebRequestHandler <> nil then
    WebRequestHandler.WebModuleClass := TWebModule2;

end.