如何解析delphi中webbrowser的beforenavigate2事件中的postdata
1个回答
展开全部
procedure TfrmMain.wbMainBeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
var
i:integer;
postStr:String;
postAry:array of byte;
begin
postAry := PostData ;
for i:=0 To Length(postAry) do
postStr := postStr + chr(postAry[i]);
ShowMessage(postStr);
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
var
i:integer;
postStr:String;
postAry:array of byte;
begin
postAry := PostData ;
for i:=0 To Length(postAry) do
postStr := postStr + chr(postAry[i]);
ShowMessage(postStr);
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询