Rev 91 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 91 | Rev 107 | ||
|---|---|---|---|
| Line 7... | Line 7... | ||
| 7 | uses |
7 | uses |
| 8 | // TODO: "{$IFDEF USE_SHDOCVW_TLB}_TLB{$ENDIF}" does not work with Delphi 10.2 |
8 | // TODO: "{$IFDEF USE_SHDOCVW_TLB}_TLB{$ENDIF}" does not work with Delphi 10.2 |
| 9 | // so you have to change the reference SHDocVw / SHDocVw_TLB yourself |
9 | // so you have to change the reference SHDocVw / SHDocVw_TLB yourself |
| 10 | Windows, Messages, SysUtils, Variants, Classes, Graphics, |
10 | Windows, Messages, SysUtils, Variants, Classes, Graphics, |
| 11 | Controls, Forms, Dialogs, OleCtrls, SHDocVw, ExtCtrls, StrUtils, |
11 | Controls, Forms, Dialogs, OleCtrls, SHDocVw, ExtCtrls, StrUtils, |
| 12 | StdCtrls, activex, UrlMon; |
12 | StdCtrls, activex, UrlMon, WebBrowserUtils; |
| 13 | 13 | ||
| 14 | type |
14 | type |
| 15 | TForm2 = class(TForm) |
15 | TForm2 = class(TForm) |
| 16 | WebBrowser1: TWebBrowser; |
16 | WebBrowser1: TWebBrowser; |
| 17 | Timer1: TTimer; |
17 | Timer1: TTimer; |
| Line 32... | Line 32... | ||
| 32 | implementation |
32 | implementation |
| 33 | 33 | ||
| 34 | {$R *.dfm} |
34 | {$R *.dfm} |
| 35 | 35 | ||
| 36 | uses |
36 | uses |
| 37 | WebBrowserUtils, FastPHPUtils, Functions, ShellAPI; |
37 | FastPHPUtils, Functions, ShellAPI; |
| 38 | 38 | ||
| 39 | // TODO: Add a lot of nice stuff to let the PHP script communicate with this host application |
39 | // TODO: Add a lot of nice stuff to let the PHP script communicate with this host application |
| 40 | // For example, allow window resizing etc. (See Microsoft HTA for inspiration) |
40 | // For example, allow window resizing etc. (See Microsoft HTA for inspiration) |
| 41 | // TODO: Ajax gives Access Denied error... Create own security manager? |
41 | // TODO: Ajax gives Access Denied error... Create own security manager? |
| 42 | // TODO: History doesn't work? |
42 | // TODO: History doesn't work? |