Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/HTMLCreate.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.38 by h677, Tue Mar 25 16:17:51 2008 UTC revision 1.39 by eggcake, Sun Apr 13 04:20:24 2008 UTC
# Line 32  type Line 32  type
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;
# Line 1612  begin Line 1612  begin
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

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26