Subversion Repositories fastphp

Rev

Rev 45 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 45 Rev 56
Line 4... Line 4...
4 
 
 4 
 
5 
interface
 5 
interface
6 
 
 6 
 
7 
uses
 7 
uses
8 
  // TODO: "{$IFDEF USE_SHDOCVW_TLB}ShDocVw_TLB{$ELSE}ShDocVw{$ENDIF}" does not work with Delphi 10.2
 8 
  // TODO: "{$IFDEF USE_SHDOCVW_TLB}ShDocVw_TLB{$ELSE}ShDocVw{$ENDIF}" does not work with Delphi 10.2
9 
  Windows, ShDocVw_TLB, SysUtils, Forms;
 9 
  Windows, ShDocVw, SysUtils, Forms;
10 
 
 10 
 
11 
procedure WaitForBrowser(AWebBrowser: TWebbrowser);
 11 
procedure WaitForBrowser(AWebBrowser: TWebbrowser);
12 
 
 12 
 
13 
function WebBrowserLoadHTML(AWebBrowser: TWebBrowser; const AHTML: string;
 13 
function WebBrowserLoadHTML(AWebBrowser: TWebBrowser; const AHTML: string;
14 
                            const AFakeURL: string=''): boolean;
 14 
                            const AFakeURL: string=''): boolean;