如何读取TWebBrowser状态(Status Code)

[ailibuli]

我想要TWebBrowser Status Code.(example: Status Code=200 or Status Code=401 ...)

[startjoy]

可由下面的属性取得：
TWebBrowser.ReadyState

返回值：
Constant　　　　　　 Value 　　　Meaning

READYSTATE_UNINITIALIZED 0 Default initialization state. The Control 　　　　　　　　　　　　　　　　　　has not begun loading any properties.
READYSTATE_LOADING　　 1 The control is loading its properties.
READYSTATE_LOADED 　　　　　2　 The control has initialized its properties 　　　　　　　　　　　　　　　　　　but is not yet interactive.
READYSTATE_INTERACTIVE 3 The control is interactive, but not all of 　　　　　　　　　　　　　　　　　　its data is available. (It is downloading a 　　　　　　　　　　　　　　　　　　　document or frame).
READYSTATE_COMPLETE 4 The control is interactive and all of its 　　　　　　　　　　　　　　　　　　data is available. (The current document is 　　　　　　　　　　　　　　　　　　　fully downloaded).

[ailibuli]

谢谢Your answer > startjoy(星星雨),
but I want to do Log file.
需要获取web服务器运行状态.
如:HTTP/1.1 200 OK 等等...
Do you help me?