(查看post数据)用TWebBrowser控件怎么得到网页提交给服务器的Post信息怎么才看得到_Delphi资料

首页 Delphi资料好文收藏股海冲浪自制小软件 E4A易安卓手机编程 ASP资料 Python PHP资料在线字典留言板

(查看post数据)用TWebBrowser控件怎么得到网页提交给服务器的Post信息怎么才看得到

阅读 459 次更新时间：2014/4/18

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






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;