Afficher le code Html dans Delphi !
Bonjour à toutes et à tous,
Avec le composant TWebBrowser (nommé Wb, que je ne maîtrise pas), et un code Delphi j'aimerai afficher le résultat directement dans ma fiche.
Donc, ce n'est pas de charger un fichier Html et de l'afficher, pour cela c'est Ok.
J'ai essayé avec ceci mais apparemment il cherche une page :
Code:
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
|
procedure TForm1.Button1Click(Sender: TObject);
var
Flags, TargetFrameName, PostData, Headers: OleVariant;
sHTML : String;
begin
sHTML :=
//**********creation dynamique de la page
'<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">'#10#13+
#10#13+
'<html>'#10#13+
'<head>'#10#13+
'<title>Horloge</title>'#10#13+
'<META http-equiv="Refresh" content="''">'#10#13+
'<style type="text/css">'#10#13+
'table { border: 1px solid #000000; }'#10#13+
'</style>'#10#13+
'</head>'#10#13+
'<BODY ms_positioning="gridlayout" leftMargin=0 background="Couchersoleil.jpg" >';
Wb.Navigate('Horloge' + sHTML, Flags, TargetFrameName, PostData,Headers);
end; |
Si quelqu'un avait une idée !
Merci d'avance,
2+,
Cincap
