void __fastcall TfrmMessage::FormCreate(TObject *Sender)
{
AnsiString PiorityMap[] = {"Low", "Normal", "High"};
wbBody = new TDHTMLEdit(this);
wbBody->ControlInterface->AddRef();
wbBody->Parent = pHtmlBody;
wbBody->Align = alClient;
for (int i = 0; i < 3; i++)
{
cmbPriority->Items->Add(PiorityMap[i]);
}
}
//---------------------------------------------------------------------------
void __fastcall TfrmMessage::GetImageList(TStrings *AList)
{
AList->Clear();
IHTMLElement *item;
_di_IDispatch d;
OleVariant res;
AnsiString s;
for(int i = 0; i < wbBody->DOM->images->length; i++)
{
wbBody->DOM->images->item(i, 0, d);
if(d->QueryInterface(IID_IHTMLElement, (void **)&item) == S_OK)
{
item->getAttribute("src", 2, res);
s = (WideString)res;
if(ExtractFileName(s) == s)
{
s = GetMessageTempDir() + ExtractFileName(s);
}
AList->Add(s);
}
}
}
{
AnsiString PiorityMap[] = {"Low", "Normal", "High"};
wbBody = new TDHTMLEdit(this);
wbBody->ControlInterface->AddRef();
wbBody->Parent = pHtmlBody;
wbBody->Align = alClient;
for (int i = 0; i < 3; i++)
{
cmbPriority->Items->Add(PiorityMap[i]);
}
}
//---------------------------------------------------------------------------
void __fastcall TfrmMessage::GetImageList(TStrings *AList)
{
AList->Clear();
IHTMLElement *item;
_di_IDispatch d;
OleVariant res;
AnsiString s;
for(int i = 0; i < wbBody->DOM->images->length; i++)
{
wbBody->DOM->images->item(i, 0, d);
if(d->QueryInterface(IID_IHTMLElement, (void **)&item) == S_OK)
{
item->getAttribute("src", 2, res);
s = (WideString)res;
if(ExtractFileName(s) == s)
{
s = GetMessageTempDir() + ExtractFileName(s);
}
AList->Add(s);
}
}
}
解决方案 »
- 有谁在用delphi2010?vclskin会让系统菜单消失?
- 线程退出后 connect 函数还在连接吗
- 如何用ADODataSet高效的导入数据。
- 请叫一个delphi操作注册表改首页的问题
- 请问各位高手
- 账套的建立?账套编写的原理?
- 奇怪!!!!!!!!!!!!!!!!!!!!!!!!!!!!用ADO不行,用ODBC就可以?why?
- 第六届WiCOM2010征文通知(Ei&ISTP Indexed) LRH
- 谁有关于“WINDOWS消息”的电子文档?
- 关于memo的一点问题。
- 我用数组方式创建了一组动态的DBEdit数据录入框,我现在想动态获取某个DBEdit的控件名称,请问如何做到?
- 请问谁知道CreateService服务管理函数中的TagId是什么意思,该如何使用?
在DHTMLEdit控件的DocumentComplete被触发之后文档才是有效的
我就是因为用DHTML的DOM出现问题,才放弃使用DHTML的,去MSDN发现DHTML技术比较旧的
于是改用MSHTML,操作上有点不同,其他大致上还是兼容的,而且MSHTML就是好用稳定的http://lysoft.7u7.net