자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
Delphi Webbrowser에서 텍스트나 html 소스를 가져오고 싶습니다.
2015.12.04 11:50
안녕하세요.
(XE8)
멀티디바이스 애플리케이션으로 시작해서 웹 브라우져를 올린후에
webbrowser1.Navigate('www.naver.com');
하고나서
memo1.text에 html 소스를 보고 싶은데
어떻게 해야 볼수 있는지 모르겠습니다.
구글 검색을 해보니 webbrowser1.document를 이용하는 방법등이 검색되는데
사용을 못하겠습니다...
var
iall : IHTMLElement;
begin
if Assigned(WebBrowser1.Document) then
begin
iall := (WebBrowser1.Document AS IHTMLDocument2).body;
while iall.parentElement <> nil do
begin
iall := iall.parentElement;
end;
memo1.Text := iall.outerHTML;
end;
end;
어떻게 해야 될지 도움 부탁드립니다.
Delphi Webbrowser에서 텍스트나 html 소스를 가져오고 싶습니다.
2015.12.04 11:50
안녕하세요.
(XE8)
멀티디바이스 애플리케이션으로 시작해서 웹 브라우져를 올린후에
webbrowser1.Navigate('www.naver.com');
하고나서
memo1.text에 html 소스를 보고 싶은데
어떻게 해야 볼수 있는지 모르겠습니다.
구글 검색을 해보니 webbrowser1.document를 이용하는 방법등이 검색되는데
사용을 못하겠습니다...
var
iall : IHTMLElement;
begin
if Assigned(WebBrowser1.Document) then
begin
iall := (WebBrowser1.Document AS IHTMLDocument2).body;
while iall.parentElement <> nil do
begin
iall := iall.parentElement;
end;
memo1.Text := iall.outerHTML;
end;
end;
어떻게 해야 될지 도움 부탁드립니다.
검색한 방법은 VCL 프레임워크의 TWebBrowser를 이용하는 방법입니다.
파이어몽키에서는 웹브라우저의 소스코드를 확인할 수 없습니다.
TWebBrowser는 URL의 내용을 웹페이지로 표시하는 목적의 컴포넌트입니다.
만약, 웹페이지로 표시하지 않고 HTML 코드를 얻고 싶은 경우,
REST 클라이언트(RESTRequest, RESTClient 등)을 이용하거나 TIdhttp 컴포넌트로 URL 요청한 경우 응답 HTML을 받아 올 수 있습니다.