> Hi,
>
> I need to make an Active Form in Delphi 5 which will run as part of a
> webpage. As part of this, I need to be able to obtain the URL of the
> browser window hosting the Active Form, and change it to something
> else (like those Flash navigation menus you see do).
>
> Can this be done?
It should be possible. I've not worked with ActiveForms for a long time, but
IIRC you can get a handle/reference to the hosting webbrowser's interface
(IWebBrowser2). This does expose the lcoation URL, and also methods for
navigaitng to a new url. (Compare for example the methods and properties
surfaced by the TWebBrowser VCL wrapper for the IWebBrowser2 interfac, see
also for example
http://msdn.microsoft.com/workshop/browser/webbrowser/reference/ifaces/iwebbrowser2/iwebbrowser2.asp)
<pause>
Update: I've just googled it and found an example:
uses SHDocVw, MSHTML_TLB;
var
Form: IMyActiveForm;
OleObj: IOleObject;
Site: IOleClientSite;
Container: IOleContainer;
Doc: IHTMLDocument2;
ServiceProvider: IServiceProvider;
WB: IWebBrowser2;
..
if Supports(Form, IOleObject, OleObj) and
(OleObj.GetClientSite(Site) = S_OK) then
begin
OleCheck(Site.GetContainer(Container));
{ Get the HTML document, if you want it }
Doc := Container as IHTMLDocument2;
{ Get the browser itself }
ServiceProvider := Container as IServiceProvider;
ServiceProvider.QueryService(
IWebBrowserApp, IWebBrowser2, WB);
{ Do something with them }
Caption := WB.FullName + ' ' + Doc.tostring;
HTH
Walter Prins
-----------------------------------------------------
Home page: http://groups.yahoo.com/group/delphi-en/
To unsubscribe: [EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/delphi-en/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
