请教：如何合并多个RTF格式流或文件 ( 积分: 100 )

iseek · 2007-11-22

我的一个小程序需要将若干个RTF格式的流合并到一起，现使用两个RICHEDIT实现，前段时间是可以的，但今天突然发现不行了。找不到原因。因此，想问问大虾，有没有更好的办法实现这个目的。

下面是我的实现过程：
procedure TwrtForm.GetTaskResult;//连接树节点指向的RTF格式数据
var ms:TMemoryStream;
ced:TRichEdit98;
nd:TTreeNode;
const fg = '----------------------------------------';
begin
FED3.ClearEditor;//清空 FED3是目标编辑窗
ms:=TMemoryStream.Create;
ced:=TRichEdit98.Create(nil);
ced.Parent := self;
try
nd:=TreeView.Items[0];
nd:=nd.getNextSibling;
nd:=nd.getFirstChild;
while nd<>nil do//所有RTF数据都放在该节点的子节点里
begin
eo.ReadTempDH(integer(nd.Data));//eo是自定义数据库
if eo.TempDH.DataPos >0 then
begin
eo.ReadDataDirect(eo.TempDH.DataPos,eo.TempDH.DataSize,ms);
iUncompressit(ms);
ced.Lines.LoadFromStream(ms);
ced.Lines.Insert(0,'');
ced.Lines.Insert(0,'');
ced.Lines.Insert(0,'******'+nd.Text+'******');//连接时添加标题
ced.Lines.Add('');
ced.Lines.Add('');
if fgBox.Checked then//每段RTF数据间添加分隔号
begin
ced.Lines.Add(fg);
ced.Lines.Add('');
ced.Lines.Add('');
end;
ced.SelectAll;
ced.CopyToClipboard;
FED3.Editor.SetFocus;
FED3.Editor.PasteFromClipboard;//复制到目标编辑窗
ced.Clear;
ms.Clear;
end;
nd:=nd.GetNext;
end;
finally
ms.Free;
ced.Free;
end;
end;

rtl · 2007-11-24

关注这个问题
---------------------------------------------------------------------------------------http://www.waibaoinfo.com 外包信息网 - 专业的外包项目发布和承接平台

linchhero · 2007-11-24

直接发一个例子，也许我能解决！

iseek · 2007-11-24

下面是网页源码.图片不好发,但不影响测试.
网页里有个object1.就是这个东东.
网页内容是一个电子书内容模板.
如果script代码运行正常,object1会自动保持在右上角.
先谢过linchhero.
----------------------------------------------------------
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>Ly</title>
<style>

</style>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onload="setVariables();checkLocation()" background="04.jpg">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr valign="top">
<td>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="964">
<tr>
<td><img border="0" src="shang.jpg" width="964" height="220"></td>
</tr>
<tr>
<td background="02.jpg">
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="80%">
<tr>
<td width="39"></td>
<td width="726">
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="99%">
<tr>
<td width="100%">
<p align="center"><font size="4"><b>[PART1]</b></font></p>
<p align="center"> </td>
</tr>
<tr>
<td width="100%">
<p style="line-height: 150%; margin-left: 10">[PART0]</p>
<p style="line-height: 150%; margin-left: 10"> </td>
</tr>
<tr>
<td width="100%">
<p align="center">&nbsp;</p>
<p align="center">资料收集于网上，版权归原作者所有</p>
<p align="center">本书由“XXXX”免费制作</p>
<p align="center"> </td>
</tr>
</table>
</div>
</td>
<td width="32"></td>
</tr>
</table>
</div></td>
</tr>
<tr><td><div align="center"><img border="0" src="xia.jpg"></div></td></tr>
<tr>
</tr>
</table>
</center>
</div>
</td>
</tr>
</table></center>
</div>
<script language="JavaScript">

function setVariables() {
if (navigator.appName == "Netscape&quot

{
v=".top=";
dS="document.";
sD="";
y="window.pageYOffset";
}
else {
v=".pixelTop=";
dS="";
sD=".style";
y="document.body.scrollTop";
}
}
function checkLocation() {
object="object1";
yy=eval

;
eval(dS+object+sD+v+yy);
setTimeout("checkLocation()",10);
}
</script> <div id="object1"
style="right:0; position: absolute; top: 194; z-index: 5; width: 81; height: 293"><table border="0"
cellPadding="0" cellSpacing="10" width="68">
<TBODY>

<tr>
<td width="68"><map name="FPMap0">
<area href="[PREVPAGE]" shape="rect" coords="12, 56, 54, 79">
<area href="[INDEXPAGE]" shape="rect" coords="10, 82, 58, 99">
<area href="[NEXTPAGE]" shape="rect" coords="10, 103, 58, 122"></map><img border="0" src="Untitled-2.gif" usemap="#FPMap0" width="70" height="130"></td>
</tr>

</TBODY>
</table>
</div>
</body>
</html>

请教：如何合并多个RTF格式流或文件 ( 积分: 100 )

iseek

Unregistered / Unconfirmed

rtl

Unregistered / Unconfirmed

linchhero

Unregistered / Unconfirmed

iseek

Unregistered / Unconfirmed

Similar threads