wap!delphi能做到！—— 应用于移动电话的WML(Wireless Markup Language）开发

wap!delphi能做到！—— 应用于移动电话的WML(Wireless Markup Language）开发(5)     < /go >
  < /do >
  < /p >
< /card >


---- 登录屏幕包括两个输入字段，一个是用户的ID ，另外一个是密码。这两个字段是使用WML的< INPUT >标识符来创建的，用户输入的各种各样的名字是由NAME属性定义的。
---- < DO >标识符定义了一个< go >的作用，它指向例程的ISAPI 的DLLS（确省的路径是/scripts/ma_ooqs.dll）。< go >使用标准的http 的post命令来发送用户输入的数据到这个dll中。注意< postfield >标识符自动的指示浏览器通过http协议来翻译用户输入的$(custid)和$(passWord) 变量。

---- 当用户点击登录命令的时候，这个wap手机连接到这个dll，这样使得这个dll执行如图所示的登录动作。首先，代码从Request.ContentFields 属性中提取出custid 和passWord字段。当被确认之后，（又专门的数据库来保存这些信息，通过遍历数据库的方法来确认它，这个遍历的函数是IsValidCustID，如下代码说示

function TMAWebModule.IsValidCustID
(CustID, PassWord: string): Boolean;
begin
  DebugMessage('IsValidCustID:'#13'CustID="' + CustID +
             #13'PassWord="' + PassWord +' "');
  Result := False;
  with Customer do begin
    try
      Open;
      if Locate('custno',CustID,[]) then
        if (LowerCase(CustomerState.AsString) =
            LowerCase(PassWord)) then
          Result := True;
    finally
      Close;
    end;
  end;
end;
 
procedure TMAWebModule.MAWebModuleLoginAction(
  Sender: TObject; Request: TWebRequest;