拓
拓荒者
Unregistered / Unconfirmed
GUEST, unregistred user!
以下函数,在有些操作系统下面可以正常使用,在有些系统下面,却提示"不支持接口",不知是怎么回事?
procedure TFrm_MDImain_SendMail.User_HTMLToTxt;
var
FHTML: IHTMLTxtRange;
begin
//将HTML内容转化为文本内容
DHTMLEdit.ExecCommand(DECMD_SELECTALL, OLECMDEXECOPT_DODEFAULT);
FHTML := IHTMLTxtRange(DHTMLEdit.DOM.selection.createRange);
TxtMail.Lines.Text := FHTML.Text;
DHTMLEdit.DOM.selection.empty;
end;
procedure TFrm_MDImain_SendMail.User_HTMLToTxt;
var
FHTML: IHTMLTxtRange;
begin
//将HTML内容转化为文本内容
DHTMLEdit.ExecCommand(DECMD_SELECTALL, OLECMDEXECOPT_DODEFAULT);
FHTML := IHTMLTxtRange(DHTMLEdit.DOM.selection.createRange);
TxtMail.Lines.Text := FHTML.Text;
DHTMLEdit.DOM.selection.empty;
end;