Gevonden:
Code:
It could be done through IServiceProvider interface.
Example:
uses
...ShDocVw, MsHTML...
[ActiveForm method]
var
sCookies: String;
SrvProv: IServiceProvider;
Browser: IWebBrowserApp;
begin
// discover container services (for cookies)
if Assigned(ActiveFormControl.ClientSite) and
(ActiveFormControl.ClientSite.QueryInterface(IServiceProvider, SrvProv) = S_OK) then
if (SrvProv.QueryService(IWebBrowserApp, IWebBrowserApp, Browser) = S_OK) then
sCookies := (Browser.Document as IHTMLDocument2).Cookie;
end;
Bookmarks