메세지는 아무래도 Explorer에서 가로채는것 같아
다음의 방법으로 조치했습니다.


Function TTestX.GetIHTMLDocument2  : IHTMLDocument2;
var
  pIOleObject : IOleObject;
  pIOleClient : IOleClientSite;
  pIOleContainer : IOleContainer;
  pDOC : IHTMLDocument2;
  pUnk : IUnknown;
  aURL : WideString;
begin
  Result := nil;
  pUnk := ComObject;
  if Assigned( pUnk ) then begin
    if SUCCEEDED(pUnk.QueryInterface(IOleObject, pIOleObject)) and Assigned( pIOleObject ) then begin
      if SUCCEEDED(pIOleObject.GetClientSite(pIOleClient)) and Assigned( pIOleClient ) then begin
        if SUCCEEDED(pIOleClient.GetContainer(pIOleContainer)) and Assigned( pIOleContainer ) then begin
          if SUCCEEDED( pIOleContainer.QueryInterface(IHTMLDocument2,pDOC)) and Assigned(pDOC) then begin
             Result := pDoc;
          end;
        end;
      end;
    end;
  end;
end;

Function TTestX.TestActiveFormProj1_TLB : Boolean;
var
  pDOC : IHTMLDocument2;
  ov:OleVariant;
  iDisp: IDispatch;
  iColl:IHTMLElementCollection;
  i  : integer;

  aActiveFormX : IActiveFormX;
begin
  Result := False;
  pDoc := GetIHTMLDocument2;
  if Assigned(pDOC) then begin
  begin
    ov:='OBJECT';
    IDisp:=pDoc.all.tags(ov); //<--- 웹페이지에서 Object TAG 를 찾는다..
    if assigned(IDisp) then begin
       IDisp.QueryInterface(IHTMLElementCollection,iColl);
       if assigned(iColl) then begin
          for i:=1 to iColl.Get_length do begin
            iDisp:=iColl.item(pred(i),0);
            iDisp.QueryInterface(IActiveFormX,aActiveFormX);
            if assigned(aActiveFormX) then begin
// 이 부분이 제가 필요했던 부분입니다.
              aActiveFormX.TextMessage := 'TEXT';
              Result := true;

            end;
          end;
        end;
      end;
    end;
  end;
end;


ActiveX가 익숙하지 못하여 여러군데에서 걸리는군요.

안녕하세요.. 마당쇠 여덕수입니다..

이벤트를 이용하는게 어떠실른지요?
해당 OCX를 담고 있는 html 에서 VB스크립등으로 이벤트를 받아서 다른 OCX의 관련된 메소드를 호출하는 방식으로요...

그럼...

html소스를 건들지 않고 할 수 있는 방법은 없을까요?

정이 안되면 DDE나 TCP/IP 까지 생각하고 있는데....
메세지 때문에 이렇게 까지 해야하는 생각이 들어서요.