HTML 보기 소스 예제
procedure TForm1.ReadHtmls;
var
HTMLDoc : Variant;
HTMLStr : String;
begin
HTMLDoc := WebBrowser1.Document;
if VarIsEmpty(HTMLDoc) then exit;
HTMLStr := HTMLDoc.Body.InnerHTML;
Memo1.Lines.Add(HTMLStr);
end;
여기 게시판에 있는 HTML 보기 소스 예제인 위의 코드를 이용해서
작업중인데 IE 5.0 에서는 문제가 없는데 5.5에서는 에러가 나오네요.
에러는 Access Violation at address 00457753 in module .... 로 나오는데
무슨 문제인지 아시는 분 답변꼭 부탁드립니다.
지금 프로젝트에서 매우 급한 문제라서.....
> HTML 보기 소스 예제
> procedure TForm1.ReadHtmls;
> var
> HTMLDoc : Variant;
> HTMLStr : String;
> begin
> HTMLDoc := WebBrowser1.Document;
>
> if VarIsEmpty(HTMLDoc) then exit;
> HTMLStr := HTMLDoc.Body.InnerHTML;
> Memo1.Lines.Add(HTMLStr);
> end;
>
> 여기 게시판에 있는 HTML 보기 소스 예제인 위의 코드를 이용해서
> 작업중인데 IE 5.0 에서는 문제가 없는데 5.5에서는 에러가 나오네요.
> 에러는 Access Violation at address 00457753 in module .... 로 나오는데
> 무슨 문제인지 아시는 분 답변꼭 부탁드립니다.
> 지금 프로젝트에서 매우 급한 문제라서.....
>
체크하는 부분이 좀 틀리네요.. 제가 쓰는거랑... 쿠쿠~
if VarIsEmpty(HTMLDoc) then exit; -> if not assigned(HTMLDoc) then Exit;
로 해 보세요.. 보니깐 WB에서 Document객체를 받아오는것 같은데..
함 해보시고.. 또 안되면.. 좀 구체적으로 올려주세요..