Q&A

  • Twebbrowser 에서 HTML 읽어오기
웹브라우저를 구성하고 HTML 소스를 읽어오려고 합니다.



근데 이 사이트의 소스는 읽어올수가 없네요..



어떻게 한 걸까요?



http://www.cme.com/cgi-bin/gflash.cgi



이 주소를 브라우저에서 읽으면



procedure TForm1.Timer1Timer(Sender: TObject);

var

HTMLDoc : Variant;

HTMLStr : String;

begin



webbrowser1.navigate('http://www.cme.com/cgi-bin/gflash.cgi');



--> 여기까지만 하면 잘 나와여...



--> 근데 아래 문장으로 읽어오려고 하면 ERROR !!



Memo1.Clear;

HTMLDoc := WebBrowser1.Document;



if VarIsEmpty(HTMLDoc) then exit;

HTMLStr := HTMLDoc.Body.InnerHTML;

Memo1.text := HTMLStr;



timer1.interval := 5000;

end;



end;



어제부터 이거 가지고 헤메고 있습니다.



고수님들의 조언을 부탁드립니다.





1  COMMENTS
  • Profile
    불쌍이 2001.03.27 05:25
    초보 wrote:

    > 웹브라우저를 구성하고 HTML 소스를 읽어오려고 합니다.

    >

    > 근데 이 사이트의 소스는 읽어올수가 없네요..

    >

    > 어떻게 한 걸까요?

    >

    > http://www.cme.com/cgi-bin/gflash.cgi

    >

    > 이 주소를 브라우저에서 읽으면

    >

    > procedure TForm1.Timer1Timer(Sender: TObject);

    > var

    > HTMLDoc : Variant;

    > HTMLStr : String;

    > begin

    >

    > webbrowser1.navigate('http://www.cme.com/cgi-bin/gflash.cgi');

    >

    > --> 여기까지만 하면 잘 나와여...

    >

    > --> 근데 아래 문장으로 읽어오려고 하면 ERROR !!

    >

    > Memo1.Clear;

    > HTMLDoc := WebBrowser1.Document;

    >

    > if VarIsEmpty(HTMLDoc) then exit;

    > HTMLStr := HTMLDoc.Body.InnerHTML;

    > Memo1.text := HTMLStr;

    >

    > timer1.interval := 5000;

    > end;

    >

    > end;

    >

    > 어제부터 이거 가지고 헤메고 있습니다.

    >

    > 고수님들의 조언을 부탁드립니다.

    >

    >



    FastNet중에서 NMHTTP 란 컴포넌트가 있어요..

    이걸 배치하시고...



    NMHTTP.Get('http://원하는 url');



    하시면



    NMHTTP.Body 에 스트링으로 소스가 들어갑니다...