怎样将一个HTML文件中的部分内容，截取到内存，然后将内存中截取的部分仍以HTML格式显示。(100分)

怎样将一个HTML文件中的部分内容，截取到内存，然后将内存中截取的部分仍以HTML格式显示。
我现在的做法是将截取的部分写成一个HTML文件，然后打开这个HTML文件。这样做不好，容易
出错，我想知道内存文件怎么做，不是内存映射。

内存文件？我觉得你用临时文件或者干脆剪贴板更好。

wjiachun剪贴板怎么做？

剪贴板怎么作出HTML效果？如果用剪贴板实际上是将文字内容贴到TWEBBROWSER中显示的，
如果剪贴板能够达到HTML的效果也可以。

我就是想把内容贴到TWEBBROWSER中显示的，你说“HTML的效果”是什么效果呢？

我是说要有背景，那么把内容贴到TWEBBROWSER中显示?

我用TWEBBROWSER的ExecWB总说我没定义？

我也想知道，就帮着提提前吧，
这样我就可以在浏览大富翁的时候，把在线富翁的“在线”、“呼叫”、“用户名”
单独独立出来，放到浏览器的左边抽屉板里了。

http://jp.njuct.edu.cn/crystal/program_view.asp?id=47

CrystalSubmit beta(仅供朋友参考)
[Crystal Studio] [发布人/作者：房客]
发布时间：2002-2-10 7:30:56
Software Introduction:
[265K]
1。现在保存HTML资料太麻烦了
如何才能只要“CTRL+Y”就在我的目录下自动多一个HTML，而且完好地保存了HTML所有语素，包括变量，布局，CSS等
2。BETA就是演示的意思，MHT的问题大家一定会问，房客还没有DELPHI的解决方案，请大虾支招
3。这个工具的第一面是从网页拖URL到面板（拖到分类名称上），然后保存到XML文件中，然后就是发布到Crystal Studio Web上给大家拉！
4。说不定多点朋友提提建议，这个东西加上个P2P的SERVER，能成为大家（狭义地考虑开发者为主的网络虫虫）的上网助手！
相关图片：



procedure TMainForm.Button1Click(Sender: TObject);
var MyHandle: THandle;
TextPtr: PChar;
MyString,Filename: string;
CF_HTML:UINT;
SaveFile,tEMP:Tstringlist;
begin
Status.Caption :=Clipboard.Astext;
if Status.Caption='' then Exit;
Filename:=FormatDateTime('yyyymmddhhmmss',Now)+'.htm';

CF_HTML:=RegisterClipboardFormat('HTML Format');
ClipBoard.Open;
SaveFile := TStringList.Create;
try
MyHandle := Clipboard.GetAsHandle(CF_HTML);
TextPtr := GlobalLock(MyHandle);//锁句柄
//ADD STRLIST
SaveFile.Add(StrPas(TextPtr));
GlobalUnlock(MyHandle);//句柄解锁
SaveFile.SaveToFile(Filename);
finally
Clipboard.Close;
SaveFile.Free;
end;
//文件注释处理
tEMP := TStringList.Create;
try
tEMP.LoadFromFile(Filename);
try
tEMP.Strings[0]:='<!--'+tEMP.Strings[0];
tEMP.Strings[7]:=tEMP.Strings[7]+' //-->';
except
Status.Caption:='name error!';
end;
tEMP.SaveToFile(Filename);
finally
tEMP.Free;
end;

end;