아... 다시 질문을 하셨군요...

우선 가장 정석적인 방법에 대해 적어보겠습니다.

이건 구글에서 흔히 검색되어지는것입니다. 정석이라고들 하는데...

제가 볼때는 90% 이상은 적용이 되는듯... 나머지 10%는???? 글세요...

아래 코드를 섰을때 크게 문제는 없었습니다.

=================================================================
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var
CurWebrowser: IWebBrowser;
TopWebBrowser: IWebBrowser;
Document: OleVariant;
WindowName: string;
begin
CurWebrowser := pDisp as IWebBrowser;
TopWebBrowser := (Sender as TWebBrowser).DefaultInterface;
if CurWebrowser = TopWebBrowser then
ShowMessage('Complete document was loaded')
else
begin
Document := CurWebrowser.Document;
WindowName := Document.ParentWindow.Name;
ShowMessage(Format('Frame "%s" was loaded', [WindowName]));
end;
end;


미믹스 wrote:
> 얼마전에 아래와 같은 질문을 올렸었습니다.
>
>
> > 미믹스 wrote:
> > > 안녕하세요.
> > >
> > > 델마당에서 많은 도움을 받고 있는 델파이 초보자입니다. ^^;
> > >
> > > 이번에 웹페이지를 델파이에서 로딩하는 부분을 작성하고 있습니다.
> > > 약 10페이지를 순서대로 불러와야 할 것 같은데요.
> > >
> > > 아래와 같이 웹페이지 로딩 완료를 체크하고 있습니다.
> > > // -------------------------------------------------------
> > > while Web.ReadyState <> READYSTATE_COMPLETE do
> > > Application.ProcessMessages;
> > > // -------------------------------------------------------
> > >
> > > 위와 같이 사용하면 인터넷이 많이 느리거나(정상적인 속도에서도 발생)하면 로딩완료되지 않고 익스플로러가 멈추는지 모르겠지만 다음으로 진행하지 않고 프로그램이 중지합니다.
> > > 프로그램이 무한루프에 빠지는 것이 아니고 exit; 한듯 멈추는 현상이 발생하는 것 같습니다.
> > > 그렇다보니 페이지를 진행하다 멈추거나하는 현상이 있습니다.
> > >
> > > 이부분을 어떻게 해결해야 하나요?
>
>
>
> [나란트]님께서 답변을 해주셨는데 제가 능력이 아직 부족하여 처리를 못하고 있습니다.
>
> 임베디드WB 컴포넌트를 이용하여 wait 라는 메쏘드로 기다리는 부분을 Thread로 처리하여 사용하고 계시다고 하더라구요.
> wait 부분을 넘어가지 않으면 다음으로 진행하던가 다시 시도할 수 있도록 처리하구요.
>
>
> 여기 저기 검색을 해서 Thread 기본 문법(?)을 배웠습니다.
> 그런데 위와 같이 적용을 하려고 하니 어떻게 처리를 해야 할지 모르겠더라구요.
>
> 간단한 소스라도 부탁드리겠습니다.
> 그럼 수고하세요 ^^