|
�븞�뀞�븯�꽭�슂?
留ㅻ쾲 �룄���留� 諛쏅떎媛� �븳踰� �삱�젮遊낅땲�떎.
�씡�뒪�뵆濡쒕윭 �솕硫댁뿉�꽌 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.
|
IE Web browser Parsing
