Subversion Repositories fastphp

Rev

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

Rev 44 Rev 45
Line 3... Line 3...
3 
{$Include 'FastPHP.inc'}
 3 
{$Include 'FastPHP.inc'}
4 
 
 4 
 
5 
interface
 5 
interface
6 
 
 6 
 
7 
uses
 7 
uses
8 
  Windows, {$IFDEF USE_SHDOCVW_TLB}ShDocVw_TLB{$ELSE}ShDocVw{$ENDIF}, SysUtils, Forms;
 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 
 
 10 
 
10 
procedure WaitForBrowser(AWebBrowser: TWebbrowser);
 11 
procedure WaitForBrowser(AWebBrowser: TWebbrowser);
11 
 
 12 
 
12 
function WebBrowserLoadHTML(AWebBrowser: TWebBrowser; const AHTML: string;
 13 
function WebBrowserLoadHTML(AWebBrowser: TWebBrowser; const AHTML: string;
13 
                            const AFakeURL: string=''): boolean;
 14 
                            const AFakeURL: string=''): boolean;