url提交参数类

url提交参数类

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

type   /// <summary>   /// 准备url   /// </summary>   TynUrl = class   private     FUrl, FCommand: string;     FParams: TStringList;     function GetText: string;   public     constructor Create;     destructor Destroy; override;     property url: string read FUrl write FUrl;     property command: string read FCommand write FCommand;     property params: TStringList read FParams write FParams;     property text: string read GetText;   end;

　　

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

{ TynUrl }   constructor TynUrl.Create; begin   FParams := TStringList.Create; end;   destructor TynUrl.Destroy; begin   FreeAndNil(FParams);   inherited; end;   function TynUrl.GetText: string; var   i: Integer;   s: string; begin   Result := FUrl + '/' + FCommand;   for i:=0 to FParams.Count -1 do   begin     if i = 0 then       s := s + FParams.Names[i] + '=' + TNetEncoding.URL.Encode(FParams.ValueFromIndex[i])     else       s := s + '&' + FParams.Names[i] + '=' + TNetEncoding.URL.Encode(FParams.ValueFromIndex[i]);   end;   Result := Result + '?' + s; end;