Afficher le code Html dans Delphi !

**cincap** · 15/01/2010, 12h35

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**ero-sennin** · 15/01/2010, 13h14

Salut Cincap

Tout est dans la FAQ

EDIT
A mon avis, en relisant plus attentivement ton code, c'est le about: qui est à mettre à la place de Horloge dans le Navigate.

A+,
Ero

**cincap** · 15/01/2010, 14h10

@ ero-sennin , merci pour l'info, j'ai testé avec About mais il tente aussi d'ouvrir le navigateur.

Ce que j'aimerai c'est uniquement d'afficher cette page directement dans ma fiche sans devoir la charger.

Sinon, je vais créer un fichier ressource, je suppose que l'on peut mettre un fichier Html.

@+,

Cincap

**ero-sennin** · 15/01/2010, 14h14

Quand tu parles de navigateur, tu parles de celui autre que le TWebBrowser ?
Je cerne pas vraiment le souci en fait

Tu as essayé la seconde méthode décrite dans la FAQ ?

**cincap** · 15/01/2010, 14h40

@ ero-sennin, oui apparemment avec l'exemple de la faq il ouvre le navigateur hors de l'application.

Je pense me tourner vers le fichier ressource, il y a juste que je ne comprends pas la ligne en rouge :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
procedure TForm1.ChargerRessourceHTML(NomRessource:string);
var
  Adresse: string;
  NomModule: array[0..255] of Char;
begin
  GetModuleFileName(hInstance, NomModule, SizeOf(NomModule));
  Adresse:='res://' + StrPas(NomModule) + '/RT_HTML/'+NomRessource;  WebBrowser1.Navigate(Adresse);
end;

@+,

Cincap

**cincap** · 16/01/2010, 07h03

Bonjour à toutes et à tous,

J'ai vérifié mon fichier "Rc" et il est correct donc partant de la, je charge les infos de la ressource et sauvegarde dans le dossier de l'application, puis à la fermeture je les enlève.

Cela fonctionne bien.

Pourtant je pensais avec un memorystream pouvoir utiliser directement les infos de mon fichier "Rc" mais je bloque malgré certaines infos du web.

Si quelqu'un pense à quelque chôse, se serait super.

@+,

Cincap

**exoseven** · 16/01/2010, 08h58

La fonction de la faq fonctionne très bien sans ouvrir un autre navigateur mais si tu tiens a utiliser les ressources va lire cet article où tout est expliqué

**cincap** · 16/01/2010, 09h31

@ exoseven, j'ai lu l'article de ton lien et c'est de loin le meilleur article sur une ressource Html.

Je te remercie de m'avoir mis sur la voie.

En effet, lorsque l'exemple est présent c'est nettement plus compréhensible.

Encore merci à tous, je peux fermer ce topic.

@+,

Cincap

Afficher le code Html dans Delphi !

Delphi

Discussions similaires

Partager

Partager