전에 남의 사이트에서 정보 좀 훔칠려고 만든 프로그램소스를

뒤지니까 있네요...



var

HTMLDoc : Variant;

HTMLStr : String;

begin

Memo1.Clear;

HTMLDoc := WebBrowser1.Document;



if VarIsEmpty(HTMLDoc) then exit;

HTMLStr := HTMLDoc.Body.InnerHTML;

Memo1.Lines.Add(HTMLStr);

end;

unit Fmain;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, ExtCtrls, Db, Grids, DBGrids, DBTables, OleCtrls,MSHTML, ActiveX, SHDocVw,

DBCtrls;



//여기서 MSHTML, ActiveX를 손으로 넣어줍니다.





.

.

.

.



procedure TForm1.WebBDocumentComplete(Sender: TObject;

const pDisp: IDispatch; var URL: OleVariant);

var

HTMLDocument: IHTMLDocument2;

PersistFile: IPersistFile;

begin



HTMLDocument := Webb.Document as IHTMLDocument2;

PersistFile := HTMLDocument as IPersistFile;

PersistFile.Save(StringToOleStr('파일명.파일확장자'), True);

PersistFile.Save(StringToOleStr('파일명.파일확장자'), True);

while HTMLDocument.readyState <> 'complete' do

Application.ProcessMessages;

end;





위처럼만 하면 정확하게 브라우져에서 오른쪽 마우스의 소스 보기와 동일합니다.

답변 감사 합니다.

무지 간단 하내요^^

딴 사이트에서 받은건 무지 길던대

글구 전 사이트에 파일들 모을려구요^^

아직 멀었지만

답변 주신거 정말 감사 드립니다.

그럼 즐코를............



이명학 wrote:

> 전에 남의 사이트에서 정보 좀 훔칠려고 만든 프로그램소스를

> 뒤지니까 있네요...

>

> var

> HTMLDoc : Variant;

> HTMLStr : String;

> begin

> Memo1.Clear;

> HTMLDoc := WebBrowser1.Document;

>

> if VarIsEmpty(HTMLDoc) then exit;

> HTMLStr := HTMLDoc.Body.InnerHTML;

> Memo1.Lines.Add(HTMLStr);

> end;

>