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;