Subversion Repositories fastphp

Rev

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

Rev 42 Rev 60
Line 4... Line 4...
4 
 
 4 
 
5 
interface
 5 
interface
6 
 
 6 
 
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 
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
 10 
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
10 
  Controls, Forms, Dialogs, OleCtrls, SHDocVw_TLB, ExtCtrls, StrUtils,
 11 
  Controls, Forms, Dialogs, OleCtrls, SHDocVw, ExtCtrls, StrUtils,
11 
  StdCtrls, activex, UrlMon;
 12 
  StdCtrls, activex, UrlMon;
12 
 
 13 
 
13 
type
 14 
type
14 
  TForm2 = class(TForm)
 15 
  TForm2 = class(TForm)
15 
    WebBrowser1: TWebBrowser;
 16 
    WebBrowser1: TWebBrowser;
16 
    Timer1: TTimer;
 17 
    Timer1: TTimer;
17 
    procedure Timer1Timer(Sender: TObject);
 18 
    procedure Timer1Timer(Sender: TObject);
18 
    procedure WebBrowser1BeforeNavigate2(ASender: TObject;
 19 
    procedure WebBrowser1BeforeNavigate2(ASender: TObject;
19 
      const pDisp: IDispatch; {$IFDEF USE_SHDOCVW_TLB}const{$ELSE}var{$ENDIF} URL, Flags, TargetFrameName, PostData,
 20 
      const pDisp: IDispatch; const URL, Flags, TargetFrameName, PostData,
20 
      Headers: OleVariant; var Cancel: WordBool);
 21 
      Headers: OleVariant; var Cancel: WordBool);
- 
 
 22 
    procedure WebBrowser1WindowClosing(ASender: TObject;
- 
 
 23 
      IsChildWindow: WordBool; var Cancel: WordBool);
21 
  strict private
 24 
  strict private
22 
    function EmbeddedWBQueryService(const rsid, iid: TGUID; out Obj{: IInterface}): HRESULT;
 25 
    function EmbeddedWBQueryService(const rsid, iid: TGUID; out Obj{: IInterface}): HRESULT;
23 
  end;
 26 
  end;
24 
 
 27 
 
25 
var
 28 
var
Line 149... Line 152...
149 
 
 152 
 
150 
  WebBrowser1.LoadHTML(RunPHPScript(phpScript), phpScript);
 153 
  WebBrowser1.LoadHTML(RunPHPScript(phpScript), phpScript);
151 
end;
 154 
end;
152 
 
 155 
 
153 
procedure TForm2.WebBrowser1BeforeNavigate2(ASender: TObject;
 156 
procedure TForm2.WebBrowser1BeforeNavigate2(ASender: TObject;
154 
  const pDisp: IDispatch; {$IFDEF USE_SHDOCVW_TLB}const{$ELSE}var{$ENDIF} URL, Flags, TargetFrameName, PostData,
 157 
  const pDisp: IDispatch; const URL, Flags, TargetFrameName, PostData,
155 
  Headers: OleVariant; var Cancel: WordBool);
 158 
  Headers: OleVariant; var Cancel: WordBool);
156 
var
 159 
var
157 
  myURL, myUrl2, getData: string;
 160 
  myURL, myUrl2, getData: string;
158 
  p: integer;
 161 
  p: integer;
159 
  background: boolean;
 162 
  background: boolean;
Line 235... Line 238...
235 
    end;
 238 
    end;
236 
  end;
 239 
  end;
237 
  {$ENDREGION}
 240 
  {$ENDREGION}
238 
end;
 241 
end;
239 
 
 242 
 
- 
 
 243 
procedure TForm2.WebBrowser1WindowClosing(ASender: TObject;
- 
 
 244 
  IsChildWindow: WordBool; var Cancel: WordBool);
- 
 
 245 
begin
- 
 
 246 
  Close;
- 
 
 247 
  Cancel := true;
- 
 
 248 
end;
- 
 
 249 
 
240 
end.
 250 
end.