用TWebBrowser控件怎么得到网页提交给服务器的Post信息怎么才可以看的到呢，怎么转化成string？

Question

This is one easy way to turn the PostData information into a string. It will
be in an "item1=value1&item2=value2" form:function PostDataToString(const PostData: OleVariant): string;
var
V: OleVariant;
begin
V := Variant(TVarData(PostData).VPointer^);
if VarType(V) = (varArray + varByte)
then Result := PChar(TVarData(V).vArray.Data)
else Result := '';
end;

Answer 1

postData是onBeforeNavigate2事件传入的，参考下例:procedure TForm1.wbBeforeNavigate2(Sender: TObject; const pDisp: IDispatch;
  var URL, Flags, TargetFrameName, PostData, Headers: OleVariant;
  var Cancel: WordBool);
var
s:string;
begin
s:=PostDataToString(PostData);
s:=urldecode(s);
edit1.Text:=s;
cancel:=true;
end;

Answer 2

很简单，你只要在服务器端的DefaultAction中取得就可以，如： sname:= request.contentfields.values['name'],读到的就是string.