1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102
| unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, OleCtrls, SHDocVw, StdCtrls, es_boty;
type
tMonComposant=class
public
Info:string;
Alarme:ttimer;
Navigateur:twebbrowser;
constructor create(Parametres:string);
destructor destroy;override;
procedure OnTimer(Sender: TObject);
procedure OnDocumentComplete(Sender: TObject;const pDisp: IDispatch; var URL: OleVariant);
end;
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
WebBrowser1: TWebBrowser;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
var MaitreListe:tstringlist;
destructor tMonComposant.destroy;
begin
alarme.free;
Navigateur.free;
end;
constructor tMonComposant.create(Parametres:string);
begin
alarme:=ttimer.create(nil);
alarme.Enabled:=false;
alarme.Interval:=60000;
alarme.OnTimer:=OnTimer;
Navigateur:=twebbrowser.Create(nil);
Navigateur.OnDocumentComplete:=OnDocumentComplete;
Navigateur.Navigate(Parametres);
end;
procedure TForm1.FormDestroy(Sender: TObject);
var i:integer;
begin
for i:=0 to MaitreListe.count-1 do
MaitreListe.Objects[i].Free;
maitreliste.Free;
end;
procedure tMonComposant.OnTimer(Sender: TObject);
begin
if Navigateur.Busy then Navigateur.Stop;
Navigateur.Refresh2;
end;
procedure tMonComposant.OnDocumentComplete(Sender: TObject;const pDisp: IDispatch; var URL: OleVariant);
begin
if pDisp <> TWebBrowser(Sender).ControlInterface then exit;
showmessage('Composant Ok!');
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
maitreListe:=tstringlist.create;
edit1.Text:='www.google.com';
end;
procedure TForm1.Button1Click(Sender: TObject);
var Moncomposant:TMonComposant;
begin
MonComposant:=tMonComposant.create(Edit1.text);
MaitreListe.AddObject(edit1.text,MonComposant);
webbrowser1.Navigate(edit1.text);
end;
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
if pDisp <> TWebBrowser(Sender).ControlInterface then exit;
showmessage('Fiche Ok!');
end;
end. |
Partager