corea2k wrote:

> 델파이에서 외부HTML을 가져와서 Load/View하는 방법이 궁금하거든여...

>

> 쉽고 일반적인 방법이 있나요 ???



major왈

일단은 제 생각에는 아래처럼 간단히 보실라면 아래와 같이 한번 해보시고 나서 나중에 나머지 처리를 해 보심이 좋을 듯 합니다.

답변이 될지는 모르지만 도움이 되었으면 합니다.

unit Unit1;



interface



uses

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

OleCtrls, SHDocVw, StdCtrls, Buttons, NMURL, Psock, NMHttp, ExtCtrls;



type

TForm1 = class(TForm)

WebBrowser1: TWebBrowser;

Memo1: TMemo;

NMURL1: TNMURL;

NMHTTP1: TNMHTTP;

Panel1: TPanel;

Edit1: TEdit;

BitBtn1: TBitBtn;

Button1: TButton;

procedure BitBtn1Click(Sender: TObject);

procedure Edit1Exit(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation



{$R *.DFM}



procedure TForm1.BitBtn1Click(Sender: TObject);

var

HTMLDoc : Variant;

HTMLStr : String;

begin

HTMLDoc := WebBrowser1.Document;

if VarIsEmpty(HTMLDoc) then exit;

HTMLStr := HTMLDoc.Body.InnerHTML;

Memo1.Lines.Add(HTMLStr);

end;



procedure TForm1.Edit1Exit(Sender: TObject);

begin

NMURL1.InputString := Edit1.Text;

WebBrowser1.Navigate(Edit1.Text);

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

Close;

end;



end.

내용은 일단 간단하니까..^^;;

금방 이해를 하시겠죠..

그럼 수고하세요

.