안녕하세요...
델파이 6 으로 OCX를 개발하고 있습니다.
TWebBrowser 를 사용하지 않고 OCX가 담겨 있는 페이지를 다른 페이지로 이동 할려고 하는데.....델파이에서 직접 작업이 끝나고 이동하게 할수있는지요?
쉽게 a.html(ocx탑재), b.html(일반 페이지) 가 있을때
a.html 에서 ocx처리를 다하고 b.html로 이동하게 하는거져....새창이 뜨는게 아니고 자기 자신이 b.html로 이동하게 말이져.
자바 스크립트를 쓰지 않고 그냥 그페이지 이동을 하고 싶은데 방법을 아시는 고수님 답변 부탁드립니다.
걍 IWebBrowser2인터페이스 얻어서 Navigate시켜주세요...
uses절에 SHDocVw유닛 추가 시켜주시구요...
var
ClientSite: IOleClientSite;
WebBrowserApp: iwebbrowserApp;
ServiceProvider: IServiceProvider;
WebBrowser2: iwebbrowser2;
SiteURL: OleVariant;
begin
if (ComObject as IOleObject).GetClientSite(ClientSite) = S_OK then
begin
if (ClientSite <> nil) then
begin
ClientSite.QueryInterface(IServiceProvider, ServiceProvider);
if (ServiceProvider <> nil) then
begin
ServiceProvider.QueryService( IWebBrowserApp, iwebbrowserApp, WebBrowserApp);
if (WebBrowserApp <> nil) then
begin
WebBrowser2 := iwebbrowser2(WebBrowserApp);
SiteURL := 'http://www.delphi.co.kr';
WebBrowser2.Navigate2(SiteURL, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;
end;
end;
end;
end;
^^ 항상 즐코하세요...