Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/HTMLCreate.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 32 |
//! 何行までためるかのサイズ |
//! 何行までためるかのサイズ |
| 33 |
FBuffSize: Integer; |
FBuffSize: Integer; |
| 34 |
//! ブラウザのIHTMLDocument2インタフェースを保持する openからcloseの間で |
//! ブラウザのIHTMLDocument2インタフェースを保持する openからcloseの間で |
| 35 |
FBrowserDoc: Variant; |
FBrowserDoc: OleVariant; |
| 36 |
public |
public |
| 37 |
constructor Create(Browser: TWebBrowser; BuffSize: Integer); |
constructor Create(Browser: TWebBrowser; BuffSize: Integer); |
| 38 |
destructor Destory; |
destructor Destory; |
| 1612 |
end; |
end; |
| 1613 |
procedure TBufferedWebBrowser.Open; |
procedure TBufferedWebBrowser.Open; |
| 1614 |
begin |
begin |
| 1615 |
FBrowserDoc := Idispatch( olevariant(FBrowser.ControlInterface).Document); |
FBrowserDoc := FBrowser.ControlInterface.Document; |
| 1616 |
FBrowserDoc.open; |
FBrowserDoc.open; |
| 1617 |
FBrowserDoc.charset := 'Shift_JIS'; |
FBrowserDoc.charset := 'Shift_JIS'; |
| 1618 |
end; |
end; |
|
|
Legend:
| Removed from v.1.38 |
|
| changed lines |
| |
Added in v.1.39 |
|
|
|