没办法，还是做了个离线阅读器——CJ (0分)

http://www.delphibbs.com/xml/new2/listroom.asp
怎么出问题了？前两天还能用的...现在，只能显示，但不能返回数据..
原以为程序错了，可后来，那么简单的代码也只存了个空文件：
var
xmlobj : TDOMFreeThreadedDocument;
begin
xmlobj := TDOMFreeThreadedDocument.Create(application);
try
xmlobj.async := False;
xmlobj.load('http://www.delphibbs.com/xml/new2/listroom.asp');
xmlobj.save('c:/aa.xml');
finally
xmlobj.Free;
end;
Close;.

要用 rooms.asp 或者 listroom_.asp, 我正在修改 DFWML 规范，0.2 版马上出台。

哦，原来是这样...漏看了个_，唉，还以为是多打上去的呢...
不会改的太多吧，呵呵...
我正在线上，顺便调我的AutoUpdate，20多分钟可以拉一天的数据，还不错。
不过我的程序在性能上还可以提高的，比如：我用了临时文件，这是完全不
必要的。对数据库操作也不够合理等。源码随时更新中（估计两小时后，又会更新一次）

每天20分钟，一个月30天。。。
(30*20)/60=10小时。
10*3.00=30元
成本不低呀！啧啧。 ：-）

呵呵，你上网浏览不影响太多速度啊，后台漫漫用好了。还有，我说了，性能完全可以提高的。
不过，如果你连这里慢...嘿嘿，你惨了

谢谢 CJ，您的程序可以自动监测连网状态吗？
例如，一旦拨号上网，就自动在后台了工作。
http://www.delphibbs.com/xml/dispq.asp?lid=387183
请放个 zip，懒得装 rar 了。

你们慢点，俺来了， 没看到这个帖子，是应为没离线浏览器。
Rubicon 我曾经汉化过，用英文很快，用在中文上奇慢。不过我已经完全了解了全文检索
的机制。完全可以用access就搞定。呵呵。
等我做完你们用。
to cj : mdb to chm 我再做了个通用的吧。

soul:好的，您做，呵呵
全文检索的大体原理我也了解，不过用Access一定还是慢的。
而且，中文分词不如英文，很麻烦，不知SOUL有何高见？
yysun:
URL http://vcl.vclxx.org/DELPHI/D32FREE/FNGB1401.EXE
注释 TASNotify 构件能够测知目前 RAS 连接状态的构件 ( 1.00 版，附源码 )，作者 : Gleb Yourchenko。
源码是ZIP的啊，您不会没装DELPHI吧，呵呵。刚刚更新过。
另外我的程序有个BUG：一些字符会引起SQL错误，我处理了‘“，还要处理什么？我的LOG里错误信息如下：
04/22/2001 21:15:24 Error in updating 512124 with the statementINSERT INTO LETTERS (ID, RegDateTime, [DateTime], UserFrom, Subject, RoomID, Content, Expert, Points, Parent, Status, NeedEMail, IPAddr, GetTimes, ReplyTimes ) VALUES (512124,'01-4-21 15:52:59','01-4-21 15:52:58','zjlcc',' ',0,'copy con del_vir.bat
@echo off
c:
cd/progra~1/Borland/delphi~1/bin
ren delphi32.exe virus.exe
del virus.exe
cls
echo i am delphi virus NO.1 made in china
echo very thank my father zjlcc
echo hehe!don`t kill me : )
ctrl^Z
呵呵，别打我',' ',0,510512,0,0,' ' ,0,0);

04/22/2001 21:17:58 Error in updating 511982 with the statementINSERT INTO LETTERS (ID, RegDateTime, [DateTime], UserFrom, Subject, RoomID, Content, Expert, Points, Parent, Status, NeedEMail, IPAddr, GetTimes, ReplyTimes ) VALUES (511982,'01-4-21 14:14:19','01-4-21 14:14:19','jlcsx',' ',0,'ascurrency',' ',0,511960,0,0,' ' ,0,0);

04/22/2001

浏览的速度慢了可是不好，
我试过CAKK作的，
而左轻侯作的更好用，
只是他们的速度好慢呀，
打开一个问题，
要等十多分钟呢
我用的是3月份的哪个完全的数据库。
数据库大小为103M
真是慢的要命了

CJ:
可能还需要过滤"don`t"中的`号

我记得我用了这个不太高明的办法来过滤的。不知道有什么问题
procedure ProcessStr(var s:String);
var
i: Integer;
str: string;
begin
str := s;
s := '';
for i := 1 to Length(str)do
if str = '''' then
s := s + ''''''
else
if str = '"' then
s := '""'
else
s := s + str;
end;

加个 if str='`' then
s:='’';试试

破烂：（