Bonjour,

J'utilise un TWebBrowser dans lequel j'ai un <div> ayant l'ID "contenu".
J'arrive à extraire ce contenu et à l'afficher.
Ensuite, je veux remplacer ce contenu dans le DIV et là, ça coince.

Si je mets un texte tout simple genre "Bonjour", ça fonctionne.
Mais si je mets un texte au format HTML, je ramasse une erreur :

Le projet Project3.exe a déclenché la classe d'exception EOleException avec le message 'Erreur OLE 800A0259'.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
var
  S: string;
  Elem: IHTMLElement;
begin
  Elem := GetElementById(WebBrowser1.Document, 'contenu') as IHTMLElement;
  if Assigned(Elem) then
  begin
    S := Elem.innerHTML;
    ShowMessage(S);
    //    Elem.innerHTML := '<p>Bonjour</p>';  // <-- Erreur
    Elem.innerHTML := 'Bonjour';               // Fonctionne
  end;
Si quelqu'un sait pourquoi, je veux bien un peu d'aide parce que ne pas pouvoir mettre du HTML dans du innerHTML, j'avoue que ça me perturbe un peu

Trouvé :-(

aaaarrggghhhhhhhhh ...

J'ai compris. Je me suis trompé, l'id est sur un <p> et pas un <div>.
Et mettre un <p> dans un <p> , il n'aime pas du tout ....