[TWebBrowser] Comment ajouter du texte ?

**el_diablos** · 01/07/2004, 14h23

Voila, je pose le décor, j'ai un composant TWebVrowser dans mon application. J'ouvre une page vierge qui est sur mon disque. Je voulais savoir si il existait une méthode afin d'ajouter du texte à l'intètieur de cette page (comme dans un TMemo) sans avoir besoin d'appeler la méthode de raffraichissement?

**gibet_b** · 01/07/2004, 16h40

Tiens c'est marrant, tu n'as plus faim, tu ne veux plus de BigMac et autres cochonneries ?

Cela dit, puisque je suis grand prince, je vais te donner mon avis sur ta question.

Etant donné que le TWebBrowser est en fait un navigateur, cela me parait peu probable que l'on puisse rajouter une ligne dans la page qu'il affiche via une méthode proposé par ce composant. Il y a cependant plusieurs solutions pour faire ce que veux :
- soit comme tu le sous-entends, tu modifies la page (le fichier) qu'il affiche et tu raffraichis
- soit tu utilises un composant d'édition HTML. Il en existe plusieurs si je ne m'abuse, MS proposant même un active X. Voici ce que j'ai trouvé dans un fameux moteur de recherche pour développeur :

Mais
puisque je suis très gentil : msHTML ! C un composant de IE, un cadeau de MS
! Pour le mettre en place il suffit de l'importer (Composant/Importer un
ActiveX/ et tu choisis DHTML Edit for IE5).
Tu trouveras de plus amples infos sur le site :
http://members.shaw.ca/iedelphi/dhtmledit.htm

**el_diablos** · 02/07/2004, 09h30

Désolé j'ai aps encore eu le temps de regarder exactement comment cela fonctionne, mais ca doit pouvoir me servir, je te remercie ...

**phenixauthor** · 02/07/2004, 12h29

salut,

petite précision :il est possible d'utiliser le webbrowser comme un traitement de texte, sans prb..
Un exemple: L'éditeur de Outlook Express ( composition des nouveaux mails ) utilise un Webbrowser.

Il est donc tt à fait possible de rajouter une ligne, de modifier les lignes existantes, de modifier les balises HTML ou de les analyser, de changer les couleurs... Bref, quasiment tout 8)

Jetez un coup d'oeil à la Faq de ce site, rubrique Delphi : il y a qq exemples pour le Webbrowser.

La liste des fonctions disponibles avec le Webbrowser ? et Hop :
http://msdn.microsoft.com/library/de.../document2.asp

Bon courage ;-)

**el_diablos** · 02/07/2004, 12h54

pour utiliser IHTMLDocument2 il faut installer l'activx msHTML non? Sinon on n'y a pas accès je crois

**phenixauthor** · 02/07/2004, 13h08

oui,il faut importer la librairie :

Composant-> Importer un controle Active X-> Microsoft HTML Object Library....

A noter qu'on peut utiliser au choix, soit le MSHTML ( Webbrowser ), soit le DHTML ( DHTMLEdit ) pour editer ou modifier une page Web.

Les deux sont similaires, avec qq petites différences...Les méthodes et fonctions sont généralement communes aux deux,il faut juste parfois adapter le code.

Je previens aussi les utilisateurs de DHTML :

Il y a un leger soucis avec les pack office ( 2000 / XP / 2003 ), tout programme qui utilise un DHTML sera peut-etre confronté au lancement de windows installer, qui voudra absolument ré-installer SON DHTML du Cd du pack office.
Autant dire que ca bug à mort, et c'est un euphémisme

Merci msieur crosoft

Il y a une solution, que j'utilise pour phenix, mais c'est surtout un paliatif.
Si ca interesse qq, je posterais la soluce qq part.

**el_diablos** · 02/07/2004, 13h50

Merci de ce conseil ca me servir =),
par contre j'ai poster un autre messaege la :
http://www.developpez.net/forums/viewtopic.php?t=217676
tu n'aurai pas une idée? =)

**phenixauthor** · 02/07/2004, 13h56

Mmh, perso je n'ai jamais developpé de dll, je comptais m'y mettre cet été..donc mon aide à ce sujet risque d'etre limité.

Ca plante à quel moment ? A la fermeture du prog , genre à la destruction du composant ? Tu insères une methode navigate, est-ce tu arrive à charger correctement une page HTML à la création ?

**gibet_b** · 02/07/2004, 14h07

Autant pour moi en ce qui concerne le TWebBrowser ! J'aurai appris quelque chose...

J'ai eu effectivement des problèmes avec le DHTML. Je me demandais si ca venait de moi.

1000 excuses pour ma mauvaise réponse !

**el_diablos** · 02/07/2004, 14h36

Il affiche bien le TweBBrowser dans la fenêtre et c'est juste après avoir fait le navigate qu'il plante, en fait dès qu'il est créé il plante, je me demande si ce n'ai aps un problème de gestion de mémoire avec le parent

**phenixauthor** · 02/07/2004, 14h58

ce que je ne comprends pas , c'est l'utilisation de mWnd et HWindow.

normallement, si on effectue le code directement d'une form, on a :

Code :

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

1
2
3
 
HtmlTmp:=TWebbrowser.Create(form22);
HtmlTmp.ParentWindow:=form22.Handle;

Donc si je suis ton code, et si je suppose que HWindow correspond au Handle de la form, on aurait donc :

Code :

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

1
2
3
 
ListObjectBrowser.Add(TWebBrowser.Create(FindControl(HWindow))); 
TWinControl(ListObjectBrowser.Items[0]).ParentWindow:= HWindow;

?

**el_diablos** · 02/07/2004, 15h48

mWnd correspond au Handle de lafenêtre princpal (Form) donc l'Owner charger de la destruction du nouveau composant et HWindow la fenêtre Child (Cliente) qui va recevoir le TWebbrowser pour l'affichage.

**phenixauthor** · 02/07/2004, 16h17

a mon avis, il vaut mieux dans ce cas utiliser uniquement Hwindow, la fenetre child sera chargée de la destruction du composant.

Ensuite, pourquoi le Tcomponent ? Marche très bien sans...

Essaie déja avec un Hande de form classique ( pas child ) pour tester, ensuite si ca marche bascule sur une fenetre Child..

personnellement, je n'utilise jamais le principe Child des forms directement...
Je préfere utiliser des forms standards, et si besoin je passe la propriété parent à la form principale

**el_diablos** · 02/07/2004, 17h07

Je testerai ca ce we, Bonne soirée à tous!

**micatmidog** · 02/07/2004, 17h33

On peut faire ça : mettre comme adresse about:texte que tu veux rajouter.

Taper ça dans votre barre d'adresse : about:bonjour, cela affichera bonjour.
Avec ça aussi about:<h1>bonjour</h1> pareil sauf que le texte est grossi.

Tu peux essayer comme ca bye

**el_diablos** · 03/07/2004, 16h19

Je ne comprend pas, j'ai tourner le code dans tous les sens et rien à y faire ca plante toujours. Le TWebBrowser se créé bien, il s'affiche dans la fenêtre. Ca commence à planter au navigate, il n'affiche que la partie information de l'exlorateur sur la droite sans le contenu et après petite fenêtre de bug:

le code :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
library Project1;
 
uses
//ShareMem, <= Peu ca qui plante?
  SysUtils,  Classes,  Windows,  ShDocVw,  OleCtrls,  Controls,  Contnrs;
var
  ListObjectBrowser : TObjectList;
{$R *.res}
 
function hidewin(mWnd: HWND; aWnd: HWND; data: PChar; parms: PChar; show: Boolean; nopause: Boolean): Integer; stdcall;
var
  HWindow: HWND;
  HEdit, HListBox, HStatic, HScrollBar : HWND;
  TRcList, TRcChan: TRect;
begin
  ListObjectBrowser:= TObjectList.Create;
  HWindow:= StrToInt(data);
 
  HEdit:= FindWindowEx(Hwindow,0,'Edit',nil);
  HListBox:= FindWindowEx(Hwindow,0,'ListBox',nil);
  HStatic:= FindWindowEx(Hwindow,0,'Static',nil);
  HScrollBar:= FindWindowEx(Hwindow,0,'ScrollBar',nil);
 
  ShowWindow(HStatic,SW_HIDE);
 
  ListObjectBrowser.Add(TWebBrowser.Create(FindControl(Hwindow)));
  TWebBrowser(ListObjectBrowser.Items[0]).ParentWindow:= Hwindow;
 
 
  GetClientRect(HListBox, TRcList);
  GetClientRect(HStatic, TRcChan);
  Browser.SetBounds(-1, -1, TRcChan.right + TRcList.right + 5, TRcChan.bottom + 5);
  Browser.Navigate('c:\');
 
  StrCopy(data, 'S_OK');
  result:=3;
end;
 
exports hidewin;
 
begin
end.

**el_diablos** · 05/07/2004, 16h27

Personne pout m'aider ...

**phenixauthor** · 05/07/2004, 16h43

salut,

Sisi je vais regarder ca plus en profondeur

Mais c'etait le we, et là j'etais occupé à transposer mes fonctions DHMTL en MSHTML, donc un peu long et compliqué...

Je suis donc open maintenant.

question : tu utilises la variable Browser dans ton code, mais quand est-elle initialisée ? ca me semble un peu bizarre comme ca, normalement on devrait avoir :

Code :

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

1
2
3
4
5
6
 
Browser:=TWebBrowser.Create(FindControl(Hwindow));
Browser.ParentWindow:= Hwindow;
ListObjectBrowser.Add(Browser); 
Browser.SetBounds(-1, -1, TRcChan.right + TRcList.right + 5, TRcChan.bottom + 5); 
Browser.Navigate('c:\');

Ensuite, le fait d'utiliser navigate('c:\') empeche toute utilisation ultérieur de code, genre dans les evenements Beforenavigate etc...
Donc si tu essaie de manipuler qq chose dans le Webbrowser après, il y a de grandes chances que ca plante ( genre Interface non supportée etc )
Je te conseille donc en premier de faire un simple navigate, genre :
Browser.navigate('c:\test.htm');

**el_diablos** · 06/07/2004, 09h17

C'est bon j'ai trouvé le problème, la dll se déchargeait automatiquement après l'appel de la fonction, ducoup mon TwebBrowser était détruit. Il fallait juste créer une fonction de chargement et de déchargement =)

[TWebBrowser] Comment ajouter du texte ?

Composants VCL Delphi

Vue hybride

Discussions similaires

Partager

Partager