1. Request처리
IRequest는 QueryString와 Form으로 처리.
TWebRequest는 QueryFields와 ContentFields로 처리.

2. 소스

TRequestType = (ireq,webreq);

var
FIRequest : IRequest;
FWebRequest : TWebRequest;
FRequestType : TRequestType;

Function GetParameter(paramName : String): String;
begin
  if FRequestType = ireq then
  begin
      Result := String(FIRequest.QueryString.Item[paramName]);

      if Result = '' then
        Result := String(FIRequest.Form.Item[paramName]);
  end
  else if FRequestType = webreq then
  begin
      Result := FWebRequest.QueryFields.Values[paramName];
     
      if Result = '' then
        Result := FWebRequest.ContentFields.Values[paramName];
  end;

end;

Posted by Gu Youn
,