HTML Editor - IHTMLDocument2.execCommand Beispiele gesucht

[erich.wanker]

Hallo Leute,

Ich hab mir mit Delphi7/Indy9 einen Mailclient gebastelt.
Funktioniert auch einwandfrei (reine Text-Nachrichten via TMemo)

Jetzt will ich aber HTML-Mails erstellen und senden.
Dazu hab ich mir einen TWEBBrowser genommen..

zuerst mal eine leere Seite..

Delphi-Quellcode:

procedure LoadHTMLToWebbrowser(AWebBrowser: TWebBrowser; AHTMLCode: TStrings);
var
  myDocument:OleVariant;
begin
  if AWebBrowser.Document = nil then AWebBrowser.Navigate('about:blank');
  myDocument:=AWebBrowser.Document;
  myDocument.Clear;
  myDocument.Write(AHTMLCode.Text);
  myDocument.Close;
end;

Dann in den Eingabemodus wechseln..

Delphi-Quellcode:

procedure TfrmMain.SpeedButton2Click(Sender: TObject);
begin
(WebBrowser1.Document as IHTMLDocument2).designMode := 'On';  
end;

und jetzt will ich ein paar Buttons für diverse Formatierungsfunktionen erstellen..

Delphi-Quellcode:

procedure ein Button wurde gedrückt
begin
 ...IHTMLDocument2.execCommand
end;

Und darum geht´s ..
Hat jemand IHTMLDocument2.execCommand - Beispiele oder irgendwo ein CodeSnipsel rumliegen ?
Es sollen die Standardfunktionen (Schriftart, Schriftgröße, Farbe, Ausrichtung, Aufzählung und so weiter möglich sein


Die empfangenen Mails stelle ich via TWebBrowser dar .. klappt teilweise (embedded IMages Problem und keine Lösung..)



Vielen Dank
Erich
−−

Using:
Delphi7 | Jedi | Reportbuilder | LmdTools | Zeos | InfoPower | RXLib | MAD | Firebird |

[toms]

Hallo

Im SuperMemo Source Code findest du einige Beispiele.