님의 소스는 IHTMLDocument2에서 원본 소스로 변환을 시키는 코드입니ㅏ..



이는 Broswer를 폼에 놓고 사용을 할때 하면되지만..



단순히 HTML소스만을 가져오실려면.. indy의



http Client 컴포넌트를 사용하시면 가볍게 처리할수 있습니다..



참고 하시길...





김용안 wrote:

> 델파이를 처음 사용하는 완전 초보입니다.

> 웹페이지(www.nasdaq.com)에서 나스닥과 다우존스의 값들을 들고와서 파일로 만들어야 합니다.

> 근데...

> 어떻게 하는지 모르겠어요.

> 일단 소스를 보고 그 값을 들고 와야 할텐데...

> 웹소스 보는법을 어떻게 찾기는 했는데

> ----------------------------------------------------------------------------------

> 소스보기.txt

> function TMainForm.RevealSource(const Document : IHTMLDocument2; Buf : TStream)

> :Boolean;

> var

> WebS : IPersistStreamInit;

> begin

> Result :=False;

> if SUCCEEDED(Document.QueryInterface(IID_IPersistStreamInit, WebS) ) then

> if SUCCEEDED( WebS.Save(TStreamAdapter.Create(Buf), True( ) then

>

> Result :=True;

> end;

> 또는 한줄로 간단히

> (Document as IPersistStreamInit).Save(TstreamAdapter.Create(Buf), True)

> 이렇게 하면 되겠죠.

> 파일로 저장할때는 TFileStream을 넣고 그냥 보여줄때는 TMemoryStream을 넣고 등등으로 하면 되겠네요~~

> ----------------------------------------------------------------------------------

> 이렇게 되어있는데. 무슨 말인지도 모르겠구요.

> 책을 봐도 소스보는 부분에 관한건 없구요.

> ㅠ.ㅠ 갈켜주세요..

> 그리고 위의 말은 너무 어려워요... 해석좀.

>