|
ｿｽ@ｿｽｿｽWebBrowserｿｽｿｽNavigateｿｽｿｽｿｽｿｽｿｽｿｽrｿｽｿｽｿｽﾅ奇ｿｽｿｽSｿｽﾉ止ｿｽﾟゑｿｽﾉゑｿｽ
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
yoshida 2011/03/28(ｿｽｿｽ) 18:34:47
ｿｽｿｽｿｽﾂゑｿｽｿｽｿｽｿｽｿｽbｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽB1ｿｽ_ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽyｿｽﾇ擾ｿｽz
ｿｽｿｽｿｽATWebBrowserｿｽ利用ｿｽｿｽｿｽｿｽｿｽ^ｿｽuｿｽuｿｽｿｽｿｽEｿｽUｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌブｿｽｿｽｿｽEｿｽUｿｽﾅは、ｿｽｿｽｿｽｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽｿｽﾆ、
WebBrowser.Free
ｿｽﾆゑｿｽｿｽｿｽｿｽ`ｿｽﾅコｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽｿｽ除ｿｽｿｽｿｽｿｽ謔､ｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽ
ｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽWebBrowserｿｽｿｽｿｽyｿｽ[ｿｽWｿｽｿｽﾇみ搾ｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾅ抵ｿｽ(Navigateｿｽｿｽ)
ｿｽｿｽｿｽﾆ、WebBrowser.Freeｿｽﾌ鯉ｿｽAInternetExplorerｿｽｿｽｿｽｿｽｿｽｿｽｿｽ繧ｪｿｽｿｽA
ｿｽｿｽｿｽｿｽｿｽﾅペｿｽ[ｿｽWｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽyｿｽｿｽ閧ｽｿｽｿｽｿｽｿｽｿｽﾆ】
WebBrowser.FreeｿｽﾆゑｿｽｿｽｿｽｿｽｿｽAｿｽｿｽﾘの擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅ抵ｿｽ‾ｿｽｿｽｿｽｿｽｿｽﾄ、
WebBrowserｿｽｿｽﾂゑｿｽｿｽｿｽｿｽｿｽｿｽB
(IEｿｽｿｽｿｽｿｽｿｽｿｽｿｽ繧ｪｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽｿｽｿｽｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽｿｽpｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾈ形ｿｽﾉゑｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽB)
ｿｽyｿｽｿｽｿｽｿｽﾜでゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ】
ｿｽPｿｽ@WebBrowser.Freeｿｽﾌ前ｿｽﾉ、WebBrowser.StopｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽ@ｿｽﾅゑｿｽｿｽｿｽｿｽAIEｿｽｿｽｿｽｿｽｿｽｿｽｿｽ繧ｪｿｽ骭ｻｿｽﾛは托ｿｽｿｽﾏゑｿｽ轤ｸｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽ@ｿｽ痰ｦｿｽﾎゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽJｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽAｿｽｿｽｿｽﾌ症状がでまゑｿｽｿｽB
ｿｽ@http://syarecowa.moo.jp/
ｿｽQｿｽ@WebBrowser.Freeｿｽﾌ前ｿｽﾉ、
ｿｽ@WebBrowser.Navigate('about:blank')
while WebBrowser.ReadyState <> READYSTATE_COMPLETE do
Application.ProcessMessages;
ｿｽ@ｿｽｿｽｿｽｿｽ黷ｱｿｽﾝ、
ｿｽ@ｿｽｿｽｿｽｿｽｿｽIｿｽﾉ擾ｿｽｿｽｿｽｿｽ中断ｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾆゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽ@ｿｽｿｽｿｽｿｽﾍ、ｿｽPｿｽｿｽｿｽﾍ托ｿｽｿｽｿｽｿｽｿｽｿｽﾊゑｿｽｿｽ繧ｪｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽdｿｽｿｽｿｽyｿｽ[ｿｽW
ｿｽ@ｿｽｿｽJｿｽｿｽｿｽｿｽｿｽ閧ｷｿｽｿｽﾆ、ｿｽｿｽﾍゑｿｽPｿｽﾆ難ｿｽｿｽｿｽｿｽ謔､ｿｽﾈ鯉ｿｽｿｽﾛゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽyｿｽﾂ具ｿｽｿｽz
ｿｽﾂ具ｿｽｿｽﾍ、Win XP Home + IE8 + Delphi 6 personalｿｽﾅゑｿｽｿｽB
monaa 2011/03/30(ｿｽｿｽ) 09:58:20
ｿｽﾄ鯉ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
Windows7 + IE8 + Delphi2009
//http://www.wwlnk.com/boheme/delphi/tips/tec1620.htm
procedure TForm1.Button1Click(Sender: TObject);
var
TabSheet : TTabSheet;
WebBrowser : TWebBrowser;
begin
TabSheet := TTabSheet.Create(Self);
TabSheet.Parent := PageControl1;
TabSheet.PageControl := PageControl1;
TabSheet.Caption := 'ｿｽuｿｽｿｽｿｽEｿｽU';
WebBrowser := TWebBrowser.Create(Self);
TOleControl(WebBrowser).Parent := TabSheet;
WebBrowser.Align := alClient;
WebBrowser.Navigate ('http://syarecowa.moo.jp/');
WebBrowser.Free;
end;
yoshida 2011/03/30(ｿｽｿｽ) 18:54:48
ｿｽ@ｿｽざｿｽざｿｽｿｽｿｽﾘゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾅゑｿｽｿｽｿｽｿｽANavigateｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽFreeｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽﾎ、ｿｽmｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽﾛは起ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽｿｽｿｽﾆなゑｿｽﾌは、Navigateｿｽｿｽｿｽﾄゑｿｽｿｽﾎらくｿｽｿｽｿｽﾄ、
ｿｽyｿｽ[ｿｽWｿｽｿｽｿｽ齦費ｿｽﾇみ搾ｿｽｿｽﾜゑｿｽﾄゑｿｽｿｽｿｽﾅ抵ｿｽｿｽﾉ起ｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽB
ｿｽ@Browser.Freeｿｽｿｽｿｽｿｽｿｽ^ｿｽCｿｽ‾ｿｽｿｽｿｽOｿｽﾈのでゑｿｽｿｽｿｽｿｽA
ｿｽ@WebBrowser.Free;
ｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾘり離ｿｽｿｽｿｽﾄ、ｿｽﾊのボｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾈどに趣ｿｽｿｽsｿｽｿｽｿｽﾄみゑｿｽﾆ、
ｿｽﾄ鯉ｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽかｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌではなゑｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽiｿｽｿｽｿｽﾌボｿｽ^ｿｽｿｽｿｽｿｽ^ｿｽCｿｽ‾ｿｽｿｽｿｽOｿｽﾆゑｿｽｿｽﾄは、ｿｽｿｽｿｽｿｽURLｿｽｿｽJｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾉ出ｿｽﾄゑｿｽｿｽｿｽ
ｿｽuｿｽXｿｽNｿｽｿｽｿｽvｿｽgｿｽGｿｽｿｽｿｽ[ｿｽvｿｽﾌダｿｽCｿｽAｿｽｿｽｿｽOｿｽﾌボｿｽ^ｿｽｿｽｿｽｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽﾄ閉ゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽBｿｽｿｽｿｽﾌとゑｿｽｿｽｿｽFreeｿｽｿｽｿｽｿｽﾆ、IEｿｽｿｽｿｽｿｽｿｽｿｽｿｽ繧ｪｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽj
ｿｽｿｽｿｽｿｽﾏゑｿｽ 2011/03/30(ｿｽｿｽ) 19:26:21
>ｿｽiｿｽｿｽｿｽﾌボｿｽ^ｿｽｿｽｿｽｿｽ^ｿｽCｿｽ‾ｿｽｿｽｿｽOｿｽﾆゑｿｽｿｽﾄは、ｿｽｿｽｿｽｿｽURLｿｽｿｽJｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾉ出ｿｽﾄゑｿｽｿｽｿｽ
>ｿｽuｿｽXｿｽNｿｽｿｽｿｽvｿｽgｿｽGｿｽｿｽｿｽ[ｿｽvｿｽﾌダｿｽCｿｽAｿｽｿｽｿｽOｿｽﾌボｿｽ^ｿｽｿｽｿｽｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽﾄ閉ゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
>ｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽBｿｽｿｽｿｽﾌとゑｿｽｿｽｿｽFreeｿｽｿｽｿｽｿｽﾆ、IEｿｽｿｽｿｽｿｽｿｽｿｽｿｽ繧ｪｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽj
ｿｽｿｽｿｽﾌようｿｽﾉゑｿｽｿｽﾄゑｿｽAIEｿｽｿｽｿｽｿｽｿｽｿｽｿｽ繧ｪｿｽ骭ｻｿｽﾛは再鯉ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾇ。
KHE00221 2011/03/31(ｿｽｿｽ) 06:02:16
ｿｽuｿｽXｿｽNｿｽｿｽｿｽvｿｽgｿｽGｿｽｿｽｿｽ[ｿｽvｿｽｿｽｿｽoｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾆゑｿｽ
ｿｽﾇみ搾ｿｽｿｽﾝは終ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽH
monaa 2011/03/31(ｿｽｿｽ) 12:45:21
FreeｿｽｿｽｿｽｿｽｿｽｿｽButton2Clickｿｽﾉ移難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ20ｿｽｿｽﾙど趣ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾄ鯉ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
5%ｿｽﾈ会ｿｽｿｽﾌ費ｿｽｿｽｿｽｿｽｿｽｿｽﾅは確ｿｽFｿｽﾌゑｿｽｿｽ謔､ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
yoshidaｿｽｿｽｿｽｿｽﾌ環具ｿｽｿｽﾅは擾ｿｽLｿｽRｿｽ[ｿｽhｿｽﾅどの抵ｿｽｿｽxｿｽﾌ頻ｿｽxｿｽﾅ費ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽﾈんか托ｿｽｿｽﾌコｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽﾄゑｿｽCｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ蛯､ｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽB
yoshida 2011/03/31(ｿｽｿｽ) 20:59:40
ｿｽ@ｿｽﾝなゑｿｽｿｽｿｽAｿｽｿｽｿｽいｿｽｿｽﾈ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾝ、ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽ@ｿｽｿｽｿｽAｿｽｿｽｿｽsｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽAｿｽVｿｽｿｽｿｽﾈ費ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽmｿｽｿｽｿｽﾉ、ｿｽPｿｽｿｽｿｽｿｽFreeｿｽｿｽｿｽ驍ｾｿｽｿｽｿｽﾈゑｿｽｿｽｿｽﾍゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾌコｿｽ[ｿｽhｿｽﾌゑｿｽｿｽｿｽｿｽAOnNavigateComplete2ｿｽﾆ、OnDocumentComplete
ｿｽﾌ包ｿｽｿｽｿｽｿｽﾌ、ｿｽuNavigateｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽｿｽAWebBrowserｿｽﾉフｿｽHｿｽ[ｿｽJｿｽXｿｽｿｽ
ｿｽｿｽｿｽﾄゑｿｽvｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽﾉ厄ｿｽ閧ｪｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽBｿｽｿｽｿｽｿｽｿｽ轤ｭｿｽA
ｿｽｿｽｿｽﾌコｿｽ[ｿｽhｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾄ鯉ｿｽｿｽｿｽｿｽｿｽﾍゑｿｽｿｽﾅゑｿｽｿｽB(ｿｽｿｽｿｽﾈゑｿｽｿｽﾆゑｿｽAｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽﾅは再鯉ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB)
ｿｽ@Freeｿｽﾌ前ｿｽﾉ各ｿｽCｿｽxｿｽｿｽｿｽgｿｽ無鯉ｿｽｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾌで、ｿｽｿｽｿｽｿｽｿｽｿｽTｿｽｿｽﾛ、
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ闌ｩｿｽｿｽｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽﾝなゑｿｽｿｽﾜにゑｿｽｿｽ關費ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽA
ｿｽ¥ｿｽｿｽｿｽあゑｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽ@ｿｽｿｽｿｽｿｽｿｽAｿｽuNavigateｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽｿｽAWebBrowserｿｽﾉフｿｽHｿｽ[ｿｽJｿｽXｿｽ当てゑｿｽv
ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍ、ｿｽ}ｿｽEｿｽXｿｽﾌホｿｽCｿｽ[ｿｽｿｽｿｽ利用ｿｽｿｽｿｽﾄ会ｿｽｿｽKｿｽﾉブｿｽｿｽｿｽEｿｽWｿｽｿｽｿｽOｿｽｿｽsｿｽｿｽ
ｿｽｿｽｿｽﾟにどゑｿｽｿｽｿｽｿｽﾄゑｿｽsｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈので、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾂつ、IEｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽ繧ｪｿｽｿｽﾈゑｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽB
ｿｽ@ｿｽｿｽｿｽｿｽｿｽﾌ趣ｿｽｿｽｿｽﾆ、ｿｽｿｽｿｽｿｽｿｽﾉ変ゑｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾅ近ゑｿｽｿｽｿｽｿｽﾆ悩ｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽﾅ、ｿｽｿｽｿｽﾐ会ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ考ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽﾌで、ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽしｿｽｿｽ
ｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
---------------------------------------------------------
// Usesｿｽﾉは、ActiveXｿｽｿｽ闢ｮｿｽﾅ追会ｿｽｿｽｿｽｿｽｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser.Navigate('http://syarecowa.moo.jp/');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
// Button1ｿｽｿｽｿｽｿｽｿｽｿｽANavigateｿｽｿｽｿｽ黷ｽｿｽyｿｽ[ｿｽWｿｽﾅ出ｿｽｿｽｿｽXｿｽNｿｽｿｽｿｽvｿｽgｿｽGｿｽｿｽｿｽ[
// ｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ会ｿｽｿｽｿｽｿｽB
WebBrowser.Stop;
WebBrowser.OnNavigateComplete2 := nil;
WebBrowser.OnDocumentComplete := nil;
WebBrowser.Free;
end;
procedure TForm1.WebBrowserNavigateComplete2(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var
Rect: TRect;
begin
if WebBrowser.Document <> nil then begin
Windows.GetClientRect(WebBrowser.Handle, Rect);
(WebBrowser.Application as IOleObject).DoVerb(OLEIVERB_UIACTIVATE,
nil, WebBrowser, 0, WebBrowser.Handle, Rect);
end;
end;
procedure TForm1.WebBrowserDocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var
Rect: TRect;
begin
if WebBrowser.Document <> nil then begin
Windows.GetClientRect(WebBrowser.Handle, Rect);
(WebBrowser.Application as IOleObject).DoVerb(OLEIVERB_UIACTIVATE,
nil, WebBrowser, 0, WebBrowser.Handle, Rect);
end;
end;
initialization
OleInitialize(nil);
finalization
OleUninitialize;
yoshida 2011/03/31(ｿｽｿｽ) 21:07:37
ｿｽ竭ｫｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽLｿｽRｿｽ[ｿｽhｿｽﾍ、
Button1: TButton
Button2: TButton
WebBrowser: TWebBrowser
ｿｽｿｽ3ｿｽﾂのコｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾌみ、ｿｽVｿｽKｿｽvｿｽｿｽｿｽWｿｽFｿｽNｿｽgｿｽﾌフｿｽHｿｽ[ｿｽｿｽｿｽｿｽ
ｿｽhｿｽｿｽｿｽbｿｽvｿｽｿｽｿｽﾄ配ｿｽuｿｽｿｽｿｽAｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽﾃ的ｿｽﾉ奇ｿｽｿｽ闢厄ｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽB
ｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾌ難ｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍ行ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽが、ｿｽｿｽｿｽｿｽPｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽﾟ、ｿｽｿｽｿｽｿｽｿｽﾄ擾ｿｽLｿｽﾌようｿｽﾈ形ｿｽﾆゑｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽmｿｽｿｽｿｽｿｽ 2011/03/31(ｿｽｿｽ) 22:37:55
ｿｽｿｽｿｽｿｽWebBrowserｿｽﾉフｿｽHｿｽ[ｿｽJｿｽXｿｽ当てるたｿｽﾟのコｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽｿｽﾆ、
ｿｽuFreeｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽIEｿｽｿｽｿｽｿｽｿｽｿｽｿｽ繧ｪｿｽｿｽvｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾛゑｿｽｿｽNｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽmｿｽFｿｽﾅゑｿｽｿｽｿｽｿｽB
if WebBrowser.Document <> nil then begin
Windows.GetClientRect(WebBrowser.Handle, Rect);
(WebBrowser.Application as IOleObject).DoVerb(OLEIVERB_UIACTIVATE,
nil, WebBrowser, 0, WebBrowser.Handle, Rect);
end;
ｿｽﾅゑｿｽAｿｽｿｽｿｽﾌコｿｽ[ｿｽhｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽﾄゑｿｽsｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾄゑｿｽA
ｿｽｿｽｿｽｿｽｿｽ OnNavigateComplete2ｿｽｿｽ OnDocumentCompleteｿｽﾌ暦ｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽKｿｽvｿｽﾍなゑｿｽｿｽﾄ、OnDocumentCompleteｿｽﾌ趣ｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽｿｽｿｽﾇ。
ｿｽuNavigateｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽｿｽAWebBrowserｿｽﾉフｿｽHｿｽ[ｿｽJｿｽXｿｽ当てゑｿｽvｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾄ、
ｿｽuDocumentｿｽﾇ搾ｿｽｿｽﾝゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAWebBrowserｿｽﾉフｿｽHｿｽ[ｿｽJｿｽXｿｽ当てゑｿｽvｿｽｿｽｿｽﾋ。
monaa 2011/04/01(ｿｽｿｽ) 14:08:36
ｿｽﾄ鯉ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾈんかジｿｽｿｽｿｽｿｽｿｽ}ｿｽIｿｽﾈプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ。
FreeｿｽｿｽｿｽｿｽDocumentｿｽｿｽﾄび出ｿｽｿｽｿｽﾆ親ｿｽﾌ終ｿｽｿｽｿｽｿｽｿｽﾉ子ｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽｿｽﾈ難ｿｽｿｽｿｽﾉなゑｿｽｿｽﾄゑｿｽ謔､ｿｽﾅゑｿｽｿｽBｿｽiｿｽmｿｽMｿｽﾍなゑｿｽｿｽﾅゑｿｽｿｽj
ｿｽﾈのゑｿｽDocumentｿｽﾌコｿｽ[ｿｽhｿｽｿｽﾊのゑｿｽﾌに置ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽだとコｿｽｿｽｿｽｿｽｿｽgｿｽAｿｽEｿｽgｿｽｿｽｿｽｿｽｿｽｿｽOKｿｽﾅゑｿｽｿｽB
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser.Navigate('http://syarecowa.moo.jp/');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
//WebBrowser.Stop; //ｿｽ除ｿｽｿｽｿｽﾄゑｿｽOK
//WebBrowser.OnNavigateComplete2 := nil; //ｿｽ除ｿｽｿｽｿｽﾄゑｿｽOK
//WebBrowser.OnDocumentComplete := nil; //ｿｽ除ｿｽｿｽｿｽﾄゑｿｽOK
WebBrowser.Free;
end;
procedure TForm1.WebBrowserNavigateComplete2(ASender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var
Rect: TRect;
begin
//if WebBrowser.Document <> nil then begin //ｿｽ除
Windows.GetClientRect(WebBrowser.Handle, Rect);
(WebBrowser.Application as IOleObject).DoVerb(OLEIVERB_UIACTIVATE,
nil, WebBrowser, 0, WebBrowser.Handle, Rect);
//end;
end;
procedure TForm1.WebBrowserDocumentComplete(ASender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var
Rect: TRect;
begin
//if WebBrowser.Document <> nil then begin //ｿｽ除
Windows.GetClientRect(WebBrowser.Handle, Rect);
(WebBrowser.Application as IOleObject).DoVerb(OLEIVERB_UIACTIVATE,
nil, WebBrowser, 0, WebBrowser.Handle, Rect);
//end;
end;
ｿｽmｿｽｿｽｿｽH 2011/04/01(ｿｽｿｽ) 15:33:39
ｿｽｿｽｿｽﾅゑｿｽAｿｽｿｽｿｽﾌコｿｽ[ｿｽhｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽﾄゑｿｽsｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾄゑｿｽA
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ OnNavigateComplete2ｿｽｿｽ OnDocumentCompleteｿｽﾌ暦ｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽKｿｽvｿｽﾍなゑｿｽｿｽﾄ、OnDocumentCompleteｿｽﾌ趣ｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽｿｽｿｽﾇ。
ｿｽｿｽｿｽﾌイｿｽxｿｽｿｽｿｽgｿｽﾍゑｿｽｿｽﾈゑｿｽﾌ間隔ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ費ｿｽｿｽｿｽｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽｿｽｿｽｿｽﾌで、
ｿｽｿｽｿｽ}ｿｽEｿｽXｿｽﾌホｿｽCｿｽ[ｿｽｿｽｿｽ利用ｿｽｿｽｿｽﾄ会ｿｽｿｽKｿｽﾉブｿｽｿｽｿｽEｿｽWｿｽｿｽｿｽOｿｽｿｽsｿｽｿｽｿｽｿｽｿｽﾟにどゑｿｽｿｽｿｽｿｽﾄゑｿｽsｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽﾆゑｿｽｿｽｿｽｿｽvｿｽｿｽｿｽ満ゑｿｽｿｽｿｽｿｽｿｽｿｽﾟには暦ｿｽｿｽｿｽｿｽﾉ難ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍなゑｿｽｿｽB
ｿｽﾇゑｿｽｿｽ轤ｩｿｽｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽﾆゑｿｽｿｽﾄゑｿｽAｿｽｿｽｿｽｿｽｿｽOnNavigateComplete2ｿｽﾌ包ｿｽｿｽｿｽｿｽうｿｽB
yoshida 2011/04/02(ｿｽy) 16:12:51
ｿｽｿｽｿｽ答ゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽAmonaaｿｽlｿｽﾌゑｿｽｿｽ示ゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽﾎらくｿｽｿｽｿｽしｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾌ鯉ｿｽｿｽﾊ、ｿｽｿｽｿｽｿｽｿｽｿｽﾆ望ｿｽﾝどゑｿｽｿｽｿｽﾌ難ｿｽｿｽｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽﾔにわたｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾌで、ｿｽ{ｿｽｿｽｿｽﾉゑｿｽｿｽ黷ｵｿｽｿｽｿｽ況でゑｿｽｿｽBｿｽﾇゑｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽA1ｿｽｿｽｿｽﾔほど趣ｿｽｿｽgｿｽpｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅは、ｿｽSｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽlｿｽqｿｽﾅゑｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽﾎらくｿｽA
ｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽgｿｽpｿｽｿｽｿｽﾄみて、ｿｽｿｽ閧ｪｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾄ閉ゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽ答ゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ、ｿｽ{ｿｽｿｽｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽﾇゑｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
-----------------------------------------------------------------
ｿｽﾈゑｿｽｿｽAｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽ2ｿｽﾂのイｿｽxｿｽｿｽｿｽgｿｽﾉ設定しｿｽﾄゑｿｽｿｽｿｽﾌは、ｿｽｿｽｿｽﾌようｿｽﾈ暦ｿｽｿｽRｿｽﾅゑｿｽｿｽB
ｿｽEｿｽｿｽｿｽKｿｽﾉ鯉ｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽﾎ、ｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽtｿｽHｿｽ[ｿｽJｿｽXｿｽｿｽﾝ定しｿｽｿｽｿｽｿｽｿｽB
ｿｽ@ｿｽｿｽｿｽ@OnNavigateComplete2
ｿｽEｿｽ鞫懶ｿｽtｿｽ@ｿｽCｿｽｿｽ1ｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽ謔､ｿｽﾈペｿｽ[ｿｽWｿｽﾌ場合ｿｽｿｽｿｽﾆ、ｿｽｿｽLｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽﾅゑｿｽ
ｿｽ@ｿｽtｿｽHｿｽ[ｿｽJｿｽXｿｽｿｽｿｽLｿｽｿｽｿｽﾉなゑｿｽﾈゑｿｽｿｽ鼾ｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽ@ｿｽｿｽｿｽ@ｿｽﾛ鯉ｿｽｿｽﾆゑｿｽｿｽﾄ、OnDocumentComplete
KHE00221 2011/04/02(ｿｽy) 16:17:05
procedure TForm3.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://syarecowa.moo.jp/');
Timer1.Interval := 2000;//1000ｿｽﾅゑｿｽ2000ｿｽﾅゑｿｽ
Timer1.Enabled :=True;
end;
procedure TForm3.Timer1Timer(Sender: TObject);
begin
WebBrowser1.Free;
end;
ｿｽｿｽｿｽｿｽﾅ再鯉ｿｽｿｽﾅゑｿｽｿｽｿｽ
WebBrowser.Navigate ('http://syarecowa.moo.jp/');
ｿｽｿｽｿｽｿｽｿｽﾄ奇ｿｽｿｽSｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽOｿｽｿｽ Free ｿｽｿｽｿｽｿｽｿｽ
IEｿｽﾅ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽｿｽB
ｿｽtｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾂゑｿｽｿｽｿｽ IE ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽｿｽB
yoshida 2011/04/10(ｿｽｿｽ) 20:04:43
ｿｽ@ｿｽｿｽｿｽｿｽｿｽbｿｽﾉなゑｿｽﾜゑｿｽｿｽB
ｿｽ@ｿｽｿｽｿｽ黷ｩｿｽｿｽAｿｽ¥ｿｽｿｽｿｽｿｽｿｽﾔゑｿｽｿｽｿｽｿｽﾄチｿｽFｿｽbｿｽNｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽいｿｽ無ｿｽｿｽｿｽﾈ使ｿｽｿｽｿｽｿｽ
ｿｽｿｽAｿｽzｿｽ閧ｵｿｽﾈゑｿｽｿｽｿｽｿｽｿｽﾈどゑｿｽvｿｽｿｽｿｽﾂゑｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽJｿｽｿｽﾔゑｿｽｿｽﾄゑｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽﾏ更ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆにゑｿｽｿｽGｿｽｿｽｿｽ[ｿｽﾍ茨ｿｽﾘ出ｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽﾉ良好ｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽmｿｽFｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽﾌゑｿｽｿｽﾟ、ｿｽ{ｿｽｿｽｿｽﾍ会ｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽ@ｿｽｿｽｿｽﾚのゑｿｽｿｽ答ゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽmonaaｿｽlｿｽｿｽｿｽｿｽﾟ、ｿｽQｿｽlｿｽﾆなゑｿｽｿｽｿｽｿｽｿｽｿｽいｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽXｿｽAｿｽｿｽｿｽｿｽｿｽﾍ、ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽ
ｿｽuｿｽoｿｽOｿｽｿｽｿｽﾄ鯉ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽvｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽwｿｽEｿｽｿｽｿｽﾈゑｿｽｿｽｿｽﾎ、ｿｽｿｽｿｽｿｽｿｽﾆ搾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽ
ｿｽYｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽﾆと思ｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽ{ｿｽｿｽｿｽﾉどゑｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
