외부의 웹브라우저에 연결만되면 될것 같네요.


아래의 소스는 현재 열린 웹브라우저에 접근하는 소스입니다.
참조하시길 바랍니다..

그러나 여러개의 브라우저 중 어느 것을 선택할 지 판단하는 부분이 남아 있을것 같습니다.
그것은 IHtmlDocument2의 프로퍼티를 참조하시면 어느 정도 접근할 수 있지 않을까 싶네요..

그럼 즐코~



<!--CodeS-->
function TTest.BrowserCheck : String;
var
  ShWindows: IShellWindows;
  PBrowser :IWebBrowser2;
  iDoc : IHtmlDocument2; //IDispatch;
  i : integer;
begin
  ShWindows := CoShellWindows.Create;
  Result := '';
  for i := 0 to ShWindows.Count - 1 do
  begin
    try
      PBrowser := ShWindows.Item(i) as IWebBrowser2;
      PBrowser.Document.QueryInterface(IHtmlDocument2,iDoc);
      if Assigned(iDoc) then
         Document.thisform.address.value:='aa'; << 여기다...
    except
      Result := Result + '읽을 수 없는 웹문서';
    end;
  end;
end;
<!--CodeE-->

제가 한번해볼려고 아래와 같이 소스코드를 작성했더니
[Error]Unit1.pas [27]: Function needs result type이란 메세지가 뜨더라고요.

<!--CodeS-->
    function  BrowserCheck : String;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function TForm.BrowserCheck : String;
var
  ShWindows: IShellWindows;
  PBrowser :IWebBrowser2;
  iDoc : IHtmlDocument2; //IDispatch;
  i : integer;
begin
  ShWindows := CoShellWindows.Create;
  Result := '';
  for i := 0 to ShWindows.Count - 1 do
  begin
    try
      PBrowser := ShWindows.Item(i) as IWebBrowser2;
      PBrowser.Document.QueryInterface(IHtmlDocument2,iDoc);
      if Assigned(iDoc) then
         Document.thisform.address.value:='aa'; << 여기다...
    except
      Result := Result + '읽을 수 없는 웹문서';
    end;
  end;
end;
<!--CodeE-->

왜 그런건가요?