1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| procedure TForm1.Button1Click(Sender: TObject);
var
// VCL objects
// Other objects
// Interfaces
fDoc : IHTMLDocument2 ;
fBody : IHTMLElement ;
// Integer
iResult : integer ;
// Float
// String
sError : widestring ;
// Boolean
begin
sError := 'Default error message' ;
iResult := 0;
WebBrowser1.Navigate('file:///D:/JBW/Prog/QAD%20(Quick%20And%20Dirty)/065%20-%20MSHMTL/Help_Decompilated/test.html');
fDoc := (WebBrowser1.document as IHTMLDocument2) ; // <= Là, fDoc n'est plus nil. Donc je suppose que je tiens un bon début.
fBody := fDoc.body ; // <= Ici, fBody est toujours à nil et de là, je n'arrive plus à rien, je ne sais plus quoi faire par où regarder...
end |
Partager