急！！！ 关于 DHTML 的问题 （分不够再加 50） (30分)

B

BDFan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-16

• #1

1.为何 DHTML 中用 LoadDocument 有的文件能打开，有的就打不开
2.如何在DHTML中插入HTML语句



procedure TfrmRuleEdit.RzBitBtn1Click(Sender: TObject);
var
ole,o2:OleVariant;
s:widestring;
begin
s:='c:/myhtml/1.htm'; //正确
//如果 s := 'c:/myhtml/通讯录/1.htm';
//出错：“无法正确解释一个或多个提供的参数”
ole:=sCurFileName;
o2 := False;
IEEditer.loaddocument(ole, o2);
End;

[] [] []
请各位大侠指点，如果分数不够可再加

 

D

drawpharos

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-16

• #2

如果将widestring改为string情况如何？

 

B

BDFan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-16

• #3

该为 String 不行

 

B

BDFan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-23

• #4

经过这几天的摸索，发现出现错误的原因并不是汉字的原因，有的文件能打开，有的就打不开，
（文件都是用Word生成）
打不开的错误的还是老问题
救救我吧！！！

[][][]

 

B

BDFan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-24

• #5

我今天又遇到一个问题
如何在DHTML中插入HTML语句

VB的方法如下：
Private Sub cmdOK_Click()

Dim doc As Object
Dim sel As Object
Dim tr As Object

' get the DHTML Document object
Set doc = MainForm.DHTMLEdit1.DOM
' get the IE4 selection object
Set sel = doc.selection
' create a TextRange from the current selection
Set tr = sel.createrange

' paste our html into the range
tr.pasteHTML (HTMLText.Text)
Unload Me
End Sub

在delphi中说 pasteHTML 没定义

 

S

SaisSoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-27

• #6

delphi 对DHTML 的支持很差

好像 delphi 编写的编辑器打不开的文件，VB写的编辑器也打不开，可能是
控件本身的问题

 

飘

飘摇客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-29

• #7

sCurFileName是什么?

 

飘

飘摇客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-29

• #8

我试过下面的,我将sCurFileName改为s可以打开啊,两种都能打开.
procedure TfrmRuleEdit.RzBitBtn1Click(Sender: TObject);
var
ole,o2:OleVariant;
s:widestring;
begin
s:='c:/myhtml/1.htm'; //正确
//如果 s := 'c:/myhtml/通讯录/1.htm';
//出错：“无法正确解释一个或多个提供的参数”
ole:=s;
o2 := False;
IEEditer.loaddocument(ole, o2);
End;

[] [] []
请各位大侠指点，如果分数不够可再加

 

B

BDFan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-29

• #9

谢谢 飘摇客
>> sCurFileName是什么
不好意思，sCurFileName 是一变量，记录当前编辑的文件名

>>我试过下面的,我将sCurFileName改为s可以打开啊,两种都能打开
我又试过了，不是汉字的问题，而是有的能打开，有的打不开，可是用 Word 再次
编辑之后，就能打开了，一头雾水 []

 

飘

飘摇客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-29

• #10

将你大不开的htm发给我,我看看.
rake1998@371.net

 

B

BDFan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-30

• #11

to 飘摇客 :
谢谢您的帮助，已经给您发过去两个文件

错误地方为:
(1)
procedure TDHTMLEdit.LoadDocument(var pathIn: OleVariant; var promptUser: OleVariant);
begin
DefaultInterface.LoadDocument(pathIn, promptUser);
end;
(2)
function TDHTMLEdit.GetControlInterface: IDHTMLEdit;
begin
CreateControl;
Result := FIntf;
end;
(3)
procedure TDHTMLEdit.CreateControl;

procedure DoCreate;
begin
FIntf := IUnknown(OleObject) as IDHTMLEdit;
end;

begin
if FIntf = nil then DoCreate;
FIntf._AddRef; //2002.5.14 大富翁论坛
end;

跟踪：
从 (1) -> (2) -> (3) -> (2) -> (1)出错

 

B

BDFan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-31

• #12

to 飘摇客

您身在何方，快来看一看吧[][][]

 

飘

飘摇客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-03

• #13

你发给我的文件确实打不开，我比较了一下，里面有许多的特殊标记，，和普通的Html标记
不太一样，我想是和这个有关系的。

 

B

BDFan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-03

• #14

谢谢 飘摇客 的关注

但是难道真的就没有办法解决了吗？
[][][]
顺便再问一下：如何在DHTML中插入HTML语句

 

B

BDFan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-08

• #15

多人接受答案了。