HTML 소스 코드에서 텍스트 코드를 분리하기

procedure TForm1.btnPassingClick(Sender: TObject);
var
 MyDocument: OleVariant;
begin
 MyDocument := WebBrowser1.Document;

 // HTML 소스 보기
 memTest.Lines.Add(MyDocument.Body.InnerHTML);  // HTML 소스
 // 일반 텍스트 보기
 memTest.Lines.Add(MyDocument.Body.InnerText);  // Text 소스
end;

위의 코드만으로는 Access Violation 에러가 발생합니다. 웹브라우저에 문서가 완전히 내려오기전에 접근을 하기 때문이구요. 문서에 접근 하기 전에 while WebBrowser1.ReadyState <> READYSTATE_COMPLETE do 를 해야 합니다.

do 밑에 Application.ProcessMessage; 추가하세요.