귀하는 손님 이십니다
로그인
회원가입
  
  델마당 공식 은행계좌
  하나은행 227-910235-83607
  예금주 이상국(운영진)
프로젝트 게시판
투표게시판
델마당소개
기초부터 활용까지! 델파이 교육 - 데브기어
 광고문의 :
媛뺤쥖, 똻, 젙蹂 媛뺤쥖, 똻, 젙蹂 입니다.
글내용 - 媛뺤쥖, 똻, 젙蹂
 IE Web browser Parsing
KIMS
(源뿰옱)
2019-01-13 삤썑 12:11:37
카테고리: 똻
467회 조회



등록된 파일이 없습니다.
븞뀞븯꽭슂?
留ㅻ쾲 룄留 諛쏅떎媛 븳踰 삱젮遊낅땲떎.

씡뒪뵆濡쒕윭 솕硫댁뿉꽌 HTML쓣 遺덈윭떎 뜲씠꽣瑜 李얠븘 옣븯뒗뜲 젙옉 썝븯뒗 궡슜씠 솕硫댁뿏 蹂댁씠뒗뜲 HTML Source뿉 蹂댁씠吏 븡븘 븷瑜 癒밴퀬엳떎媛 븳 솕硫댁뿉 Frame씠 뿬윭媛 엳떎뒗寃껋쓣 븣寃뚮릺뿀뒿땲떎.
紐⑤뱺 Frame쓽 HTML Source瑜 Frame蹂꾨줈 옣빀땲떎.

Compiler : Delphi 7

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, OleCtrls, OleServer, mshtml, SHDocVw, ActiveX,
  ComCtrls, ComObj, Clipbrd;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  TempDateS,DateS: string;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  TempDateS := FormatDateTime('yyyymmddhhmmss', Now);
  DateS := Copy(TempDateS,1,8);
  Edit1.Text := 'www.korea.com';
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
  Form1 := nil;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i,x: integer;
  URL,iStr: string;
  IE: Variant;
  Frame: IDispatch;
  FrameDoc: IHTMLDocument2;
begin
  IE := CreateOleObject('InternetExplorer.Application');
  IE.Visible := true;
  URL := Edit1.Text;
  IE.Navigate(URL);
  while IE.Busy do sleep(500);
  sleep(1000);

  x := IE.Document.Frames.Length;
  if x > 0 then
  begin
    for i := 0 to (x - 1) do
    begin
      iStr := IntToStr(i);
      Frame := IE.Document.Frames.Item(i);
      FrameDoc := (Frame as IHTMLWindow2).Document as IHTMLDocument2;
      Memo1.Text := FrameDoc.Get_body.Get_outerHTML;
      Memo1.Lines.SaveToFile('WebPage_'+iStr+'_'+TempDateS+'.txt');
    end;
  end;
  IE.Quit;
  ShowMessage('HTML documents in frames have been saved.');
end;

end.