P
Passion
Unregistered / Unconfirmed
GUEST, unregistred user!
WebBrowser控件的BeforeNavigate2事件中:
type TWebBrowserBeforeNavigate2 = procedure(Sender: TObject; const pDisp:
IDispatch; var URL: OleVariant; var Flags: OleVariant; var
TargetFrameName: OleVariant; var PostData: OleVariant; var Headers:
OleVariant; var Cancel: WordBool) of object;
property OnBeforeNavigate2: TWebBrowserBeforeNavigate2;
里头的那个Var Headers应该怎样访问到?因为是OleVariant,所以就不知道怎样转换了
。照道理它应该是HTTp请求头的其他字符列表才是。但用String和WideString转换都得
到空的值。
后来又发现这个Headers就是String值,但设置的和发送的不一样。比如我想设置访问页
面的时候的Cookie,在Headers中写上Headers := 'Cookie: xxxxxxx;'结果用网络监听软件
所发送的内容还有好几行,但并无这一句Cookie的,而如果写Headers := 'XCookie: xxxxxxx;'
或者别的什么乱七八糟的,发送出去的便又有了。
现在的问题是,怎样访问或者改写WebBrowser所发送的全部HEADER?如果不能,怎样改写
所要发送的Cookie?Headers参数似乎用处不大。
type TWebBrowserBeforeNavigate2 = procedure(Sender: TObject; const pDisp:
IDispatch; var URL: OleVariant; var Flags: OleVariant; var
TargetFrameName: OleVariant; var PostData: OleVariant; var Headers:
OleVariant; var Cancel: WordBool) of object;
property OnBeforeNavigate2: TWebBrowserBeforeNavigate2;
里头的那个Var Headers应该怎样访问到?因为是OleVariant,所以就不知道怎样转换了
。照道理它应该是HTTp请求头的其他字符列表才是。但用String和WideString转换都得
到空的值。
后来又发现这个Headers就是String值,但设置的和发送的不一样。比如我想设置访问页
面的时候的Cookie,在Headers中写上Headers := 'Cookie: xxxxxxx;'结果用网络监听软件
所发送的内容还有好几行,但并无这一句Cookie的,而如果写Headers := 'XCookie: xxxxxxx;'
或者别的什么乱七八糟的,发送出去的便又有了。
现在的问题是,怎样访问或者改写WebBrowser所发送的全部HEADER?如果不能,怎样改写
所要发送的Cookie?Headers参数似乎用处不大。