Discussion :

[xenos]

Salut,

Je développe un logiciel avec Delphi 2006 sous WinXP.

L'utilisateur écrit du code html dans un Mémo. Je voudrais visionner directement le travail effectué.

Malheureusement, il y a un problème entre le TStrings du Mémo et le String du WebBrowser.

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject);
var
  Flags, TargetFrameName, PostData, Headers: OleVariant;
  sHTML: TStrings;
 
begin
  sHTML := Memo1.Lines;
  WebBrowser1.Navigate('about:' + sHTML, Flags, TargetFrameName, PostData, Headers);  
end;

J'ai cherché dans la FAQ http://delphi.developpez.com/faq/?pa...wser#buildpage, mais toutes les solutions proposées ne fonctionnent qu'avec du String.

Je n'arrive pas à trouver un terrain d'entente pour les deux composants ...

D'avance merci pour vos réponses.

[MD Software]

Eh bien constitue un String à partir du TStrings

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Button1Click(Sender: TObject);
var
  Flags, TargetFrameName, PostData, Headers: OleVariant;
  sHTML: String;
  i : integer; 
begin
  sHTML := '';
 
  for i:=0 to Memo1.Lines.count-1 do 
    sHTML := sHTML + Memo1.Lines[i];
 
  WebBrowser1.Navigate('about:' + sHTML, Flags, TargetFrameName, PostData, Headers); 
end;

Tu peux éventuellement ajouter des caractères entre chaque ligne (retour chariot, espace ....)

[Rayek]

Pas besoin d'une boucle pour mettre un memo en string

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.Button1Click(Sender: TObject);
var
  Flags, TargetFrameName, PostData, Headers: OleVariant;
    i : integer; 
begin
 
  WebBrowser1.Navigate('about:' + Memo1.Text, Flags, TargetFrameName, PostData, Headers); 
end;

[MD Software]

Pas besoin d'une boucle pour mettre un memo en string

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.Button1Click(Sender: TObject);
var
  Flags, TargetFrameName, PostData, Headers: OleVariant;
    i : integer; 
begin
 
  WebBrowser1.Navigate('about:' + Memo1.Text, Flags, TargetFrameName, PostData, Headers); 
end;

C'est tout à fait vrai. Cependant, il peut vouloir remplacer les sauts de lignes par autre chose de plus HTML

[xenos]

Merci pour vos réponses MDSoftware et Malatar.

Vos codes fonctionnent très bien.

bonne fin d'soirée.