在DHTMLEDIT中,怎么将swf的东西load进来?(100分)

Y

yingdun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-10

• #1

在webbrowser中可以看到flash的东西,为什么在DHTMLEDIT中看不到?

 

Y

yingdun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-13

• #2

求求大家了，帮忙看一下好吗？

 

O

oldsheep35

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-13

• #3

你刚才的那个默认Font的问题解决了没有？
能不能告诉我一下？

 

A

archonwang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-13

• #4

用个activex的shockwave控件试试看
应该可以的

 

O

oldsheep35

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-13

• #5

swf 文件只能在预览模式下可见，在编辑状态下看不了（FrontPage都好像看不了）
代码相信你已经写了，我就不多说了！

有时间我们针对DHtmlEdit交流一下！

 

Y

yingdun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-13

• #6

不会吧？我就是要在编辑模式下看到这个啊。
默认font的问题，我只能设置默认的fontname和fontsize

 

O

oldsheep35

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-13

• #7

如何设置的，这段代码贴出来看看！

 

Y

yingdun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-13

• #8

其实很简单，就是把fontname直接设置进去就行了。原来设置不了的原因是将修改fontname的动作放到onchange里面，现在放到onclick里就可以了

 

O

oldsheep35

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-13

• #9

还是没有明白！
我怎么测试不行？
我给分，给分！

 

Y

yingdun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-13

• #10

procedure TArticleFrm.cmbFontNameClick(Sender: TObject);
var
Command : DHTMLEDITCMDID;
fn : TFontName;
fontname : OleVariant;
begin
fn := TFontName(cmbFontName.Text);
fontname := fn;
Command := DECMD_SETFONTNAME;
DHTMLEdit.ExecCommand(Command,OLECMDEXECOPT_DONTPROMPTUSER,fontname);
end;
procedure TArticleFrm.DHTMLEditDisplayChanged(Sender: TObject);
var
State : DHTMLEDITCMDF;
fontName : String;
begin
//FontName
State := DHTMLEdit.QueryStatus(DECMD_GETFONTNAME);
if (State = DECMDF_ENABLED) or (State = DECMDF_LATCHED)
then begin
fontName := DHTMLEdit.ExecCommand(DECMD_GETFONTNAME, OLECMDEXECOPT_DONTPROMPTUSER);
cmbFontName.Text := fontName;
cmbFontName.Enabled := True;
end
else begin
cmbFontName.ItemIndex := -1;
If State = DECMDF_NINCHED
then cmbFontName.Enabled := True
else cmbFontName.Enabled := False
end;
end;

 

Y

yingdun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-13

• #11

frontpage在编辑模式下可以看到swf的文件，为什么DHTMLEdit不可以？麻烦大家给试一下，我可以加分

 

O

oldsheep35

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-13

• #12

你的代码中还是没有设置默认字体为“宋体”！

 

Y

yingdun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-13

• #13

procedure TArticleFrm.DHTMLEditDocumentComplete(Sender: TObject);
var
i : integer;
begin
if not DHTMLEditInitialized
then begin
//FontName
for i := 0 to cmbFontName.Items.Count - 1 do
begin
if trim(cmbFontName.Items) = '宋体'
then begin
cmbFontName.ItemIndex := i;
break;
end
end;
end;
DHTMLEditInitialized := True;
end;

 

O

oldsheep35

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-13

• #14

我明白你这段代码的意思，

另外提醒你一个可能出错的地方：


if (DHTMLEdit1.QueryStatus(DECMD_GETFONTNAME) and DECMDF_ENABLED)=DECMDF_ENABLED then
varFontName :=DHTMLEdit1.ExecCommand(DECMD_GETFONTNAME,OLECMDEXECOPT_DONTPROMPTUSER)

if varFontName <> null then //非常重要，如果选择的字体有多种，VarFontName将为NULL，编译器无法将Null转换成String
cbxFontList.Text := varFontName

 

Y

yingdun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-13

• #15

谢了。问你一个问题，我在进行DHTMLEdit1.QueryStatus(DECMD_CUT)时，有时会报错说‘试图吊销一个未注册的拖放目标’。是什么意思？

 

O

oldsheep35

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-13

• #16

这个问题很平常（但也不知道是那个OLE报出来的）：
首先：
FCanCut := ((QueryStatus(DECMD_CUT) and DECMDF_ENABLED) = DECMDF_ENABLED);
这个应该你是做了吧
再次：（可能）
选中了才能剪切，
在DisaplayChanged中
判断选中的东西的不同,需要做一些处理也会出现这种错误！

我得东西做了太久了，可能有些忘记了！

 

Y

yingdun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-13

• #17

我是选中了一个flash的东西。双击志后就出现这个错误。还不是所有的flash双击都出错

 

Y

yingdun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-14

• #18

求求大家了，帮帮我好吗？

 

O

oldsheep35

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-14

• #19

错误不是出在Flash
而是在QueryStatus方法
如果你做了右键菜单同样也会出这个错误
当你选中flash时,必须判断你双击没有做什么吧)
这个问题同样出现在你选中了flash就不能去设置字体等!
所以你得要判断,作了哪些出错的就处理
到底有多少是不能得,我也没有统计出来!

 

Y

yingdun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-14

• #20

那我需要判断什么东西啊？