1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| procedure TMAIN.TimerSEQTimer(Sender: TObject);
begin
...
web := var_HTMLBrowser[var_SEQ_Number];
if Assigned(web) then
web.Free();
web := TWebBrowser.Create(nil); // à toi de gérer la libération à la fermeture
web := TWebBrowser.Create(nil);
var_HTMLPage[var_SEQ_Number].InsertControl(NewNet); // Parent, un TabSheet, à ton de gérer tes tableaux ou faire un tableau de strucutre ...
web .OnDocumentComplete := WebBrowserDocumentComplete;
web .Navigate2(Url, Flags, TargetFrameName, PostData, Headers);
var_HTMLBrowser[var_SEQ_Number] := web ;
PageControl.ActivePage := var_HTMLPage[var_SEQ_Number];
web.Navigate(Server_Path + '\' + var_HTMLFile[var_SEQ_Number]);
end; |
Partager