cs_bazbazus
Messages postés120Date d'inscriptionlundi 26 janvier 2009StatutMembreDernière intervention27 août 2015
-
26 mars 2010 à 01:30
cs_bazbazus
Messages postés120Date d'inscriptionlundi 26 janvier 2009StatutMembreDernière intervention27 août 2015
-
6 avril 2010 à 23:08
bonjour a tous
je veux lance le contenu d'un memo
exemple :
memo1.lines.add='essai';
webbrowser.navigate(memo1.lines.text);// mais je sais que c pas possible
il ya une solution mais pas efficace :
memo1.lines.savetofile('essai.html');
webbrowser.navigat('essai.html');
Cirec
Messages postés3833Date d'inscriptionvendredi 23 juillet 2004StatutModérateurDernière intervention18 septembre 202250 26 mars 2010 à 15:29
pourquoi faire simple ...
en discutant avec PCPT sur le sujet, il m'informe qu'il existe un moyen encore plus simple/direct pour le même résultat :
[hr]procedure TForm1.Button1Click(Sender: TObject);
[b]begin
/b// on passe directement le code comme ceci // Merci à PCPT pour cette astuce WebBrowser1.Navigate('About:' + Memo1.Text);
end;
[hr]
Cirec
Messages postés3833Date d'inscriptionvendredi 23 juillet 2004StatutModérateurDernière intervention18 septembre 202250 26 mars 2010 à 12:42
Ouai effectivement c'est pas très pratique de devoir enregistrer d'abord le code sur le disque avant de pouvoir le charger[hr]procedure TForm1.FormCreate(Sender: TObject);
[b]begin
/b// obligatoire sinon ça ne fonctionne pas WebBrowser1.Navigate('About:');
end;
procedure TForm1.Button1Click(Sender: TObject);
[b]begin
/b// et on "injecte le nouveau code HTML WebBrowser1.OleObject.Document.body.innerHTML := 'essai
<hr>';
end;[hr]
voilà je crois que ça c'est plus cool pour ce que tu veux faire