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

웹브라우져에서 모든프레임 완료시점.  델파이  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;

[출처] 웹브라우져에서 모든프레임 완료시점.|작성자 유돌이