我在delphi6中用ActiveForm做了一个ActiveX,其实就是在form里边加了个richedit控件。
然后我在类型库里边添加了一个过程:
procedure Trhedit.ReadFormFile(const name:WideString);
begin
richedit.lines.loadfromfile(name);
end;
在jsp中是这样写的:
<%@ page contentType="text/html; charset=GBK" %>
<%@ taglib uri="/WEB-INF/struts-bean.tld" prefix="bean" %>
<%@ taglib uri="/WEB-INF/struts-html.tld" prefix="html" %>
<%@ taglib uri="/WEB-INF/struts-logic.tld" prefix="logic" %>
<%@ taglib uri="/WEB-INF/struts-template.tld" prefix="template" %>
<HTML>
<link href="css.css" rel="stylesheet" type="text/css">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>远程教育系统-网络教学</title>
</head>
<OBJECT
id="rhedit" name="rhedit"
classid="clsid:C48FEAEA-FB42-438F-B883-A81BD92920A8"
codebase="http://localhost:8080/ycjy/rheditProj.ocx#version=1,0,0,0"
width=100%
height=100%
align=center
hspace=0
vspace=0
>
</OBJECT>
<body>
<script name="javascript">
rhedit.ReadFromFile("file1.rtf");
</script>
</body>
</HTML>为什么页面里什么也没有啊!我得目的是让file1.rtf显示在ActiveX控件中的richedit中。
怎么回事啊!
然后我在类型库里边添加了一个过程:
procedure Trhedit.ReadFormFile(const name:WideString);
begin
richedit.lines.loadfromfile(name);
end;
在jsp中是这样写的:
<%@ page contentType="text/html; charset=GBK" %>
<%@ taglib uri="/WEB-INF/struts-bean.tld" prefix="bean" %>
<%@ taglib uri="/WEB-INF/struts-html.tld" prefix="html" %>
<%@ taglib uri="/WEB-INF/struts-logic.tld" prefix="logic" %>
<%@ taglib uri="/WEB-INF/struts-template.tld" prefix="template" %>
<HTML>
<link href="css.css" rel="stylesheet" type="text/css">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>远程教育系统-网络教学</title>
</head>
<OBJECT
id="rhedit" name="rhedit"
classid="clsid:C48FEAEA-FB42-438F-B883-A81BD92920A8"
codebase="http://localhost:8080/ycjy/rheditProj.ocx#version=1,0,0,0"
width=100%
height=100%
align=center
hspace=0
vspace=0
>
</OBJECT>
<body>
<script name="javascript">
rhedit.ReadFromFile("file1.rtf");
</script>
</body>
</HTML>为什么页面里什么也没有啊!我得目的是让file1.rtf显示在ActiveX控件中的richedit中。
怎么回事啊!
www.zuoyao.com