delphi

웹브라우져에서 모든프레임 완료시점

knoen 2013. 12. 28. 22:47


웹브라우져에서 모든프레임 완료시점.  델파이 

2010/11/04 13:38

복사http://blog.naver.com/cysnim12/130096713029

전용뷰어 보기

var

    CurDispatch1 : IDispatch;

 

procedure DoNavigateComplete2(const pDisp: IDispatch; var URL: OleVariant);
begin
  if CurDispatch1 = nil then
  begin
    CurDispatch1 := pDisp;
  end;
end;

 

procedure DoDocumentComplete(const pDisp: IDispatch; var URL: OleVariant);

begin
  if (pDisp = CurDispatch1) then
  begin
    // 해당 Page Load 완료시
    CurDispatch1 := nil;
  end;
end;