delphi 中如何查看网页POSTDATA

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
begin

  ppDisp := WebBrowser2.Application;
  Cancel := False;
end;

procedure TForm1.WebBrowser2BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
  var
    I: Integer;
    sText :String;
    vPostData:OleVariant;
    nLen  :Integer;
    szData:String;
begin

    vPostData := PostData;
    if VarIsArray(vPostData,True) then
    begin
      nLen := VarArrayHighBound(vPostData,1) - VarArrayLowBound(vPostData,1)+1;
      SetLength(szData,nLen);
      for I := 0 to nLen - 1 do    // Iterate
      begin
        szData[I+1] := Chr(Byte(vPostData[I]));
      end;    // for
      sText := szData;
    end;
end;

delphi 中如何查看网页POSTDATA

原文：http://www.cnblogs.com/pinksoft/p/4920747.html