简洁技术，简单生活

P2P网络日渐恶劣，由于Vagaga等恶意MOD造成国外服务器对中国IP的封堵，加上反盗版组织的严打，emule的路很艰辛！
继razorback3系列、donkeyserver系列之后，eDonkeyServer系列轰然倒下，前几天 !! Saugstube !!系列也无法连接。给ed2k带来了巨大损失！verycd目前推出2个服务器来缓解压力！虽然人数不多，但是国内的用户暂时驻留。

目前能够刷新到服务器的网站，并且没有间谍服务器，如下：
查看:Server List for eDonkey and eMule
本人11：00测试可连服务器：
ed2k://|server|193.138.221.210|4242|/        # eMule Serverlist Nr.2 #
ed2k://|server|89.248.174.84|6543|/           TVU DonkeyServer No1 - Now On New Hardware

[转自]cnBeta.COM_eMule_ eDonkeyServer系列服务器死亡

_________________

怪不得最近很难连上去～～

- 阅读全文 -

首先，是原版，不是资料片。

从前年买电脑后，开始玩，只是偶尔玩，前一段时间，看到有升级包2.2，修正了许多问题，就想升级，可是原来的是简化版，无法升级；后重新下了netshow的那个版本，是2.1的，有中文语音，升级的时候，没有提示问题，完成后会启动游戏，可惜，还是现实2.1版，也不知道是否升级成功。可惜的是，我原来的存档没有了，这次重新玩过。刚刚完成第一章。

       人物： 主角： 主要是战斗魔法，现在是23级，后发现很多的装备都需要近战等级要求，于是，修炼了一下近战，刚刚到10级。蒂茹：远距（24）+一点点的自然魔法（5），自然魔法当然是补血用的。毛驴：近战，绝招很厉害的，丝丽雅神殿的时候，其他三人都已经晕倒了，就剩小毛驴，一个把三头蛇干掉了，因为三头蛇根本就伤害不了毛驴。萨而坦：刚刚加入的近战好手，（21）级。中间，为了完成支线任务，加入了塔儿，自然魔法系的，可惜，是后面才加入的，跟主角相差了5个级别，导致一直跟不上，每次不到两下子就挂掉，郁闷死了，干脆遣送回客栈了。不然，来一个全能型的队伍也蛮不错的。教训就是：拉人进来的话，最好水平差不多的，不然以后更难做，很难跟上来的。

另外：发觉到现在为止，出现的装备，基本上都是近战或者自然魔法的，另外远距的弓箭，也是种类多多，很多好东西。可怜了战斗魔法的，为了一点点的装备，还要去强近战的。玩的时候，当然是对照着攻略来的，省事多了，不然很多都是找不着北，地图太大了，东西又多，记不住。可以到百度知道吧的地牢围攻吧找资料，很全的。

- 阅读全文 -

系统：CentOS5.2

步骤：

1.安装squid和clamav

yum install squid

yum install clamav clamav-devel

要按照clamav-devel，因为havp安装的时候，需要这个包，rpmforge有这个包

2.下载安装havp-0.88

./configure
make
make install
cp etc/init.d/havp /etc/rc.d/init.d/havp

安装时/etc/init.d/没有havp启动脚本，必须手动copy

3.配置havp

vi /usr/local/etc/havp/havp.config

### 註解以下這行
#REMOVETHISLINE deleteme

### ClamAV Library Scanner (libclamav) → 由 HAVP 直接取用 ClamAV 的病毒資料庫
ENABLECLAMLIB true

##yum安装的，注释掉
#CLAMDBDIR /usr/local/share/clamav

TRANSPARENT false

### 理論上越多的執行緒效能效能越好, 但仍需視伺服器資源而定
SERVERNUMBER 40
MAXSERVERS 200

### 只記錄 error log. 較少的 Log 記錄可減輕伺服器負擔
LOGLEVEL 0

### 使用 RAM Disk 處理暫存檔案可獲得最佳效能
TEMPDIR /var/tmp/havp

### 不對圖片檔掃毒, 可減輕 CPU 負擔
SCANIMAGES false

4.设置havp的TEMPDIR

dd if=/dev/zero of=/root/havp_tmp.img bs=128K count=1 seek=1024 (建立 128MB Virtual Disk)
mkfs.ext2 /root/havp_tmp.img
mount -o loop,mand /root/havp_tmp.img /var/tmp/havp

编辑/etc/fstab，添加

/root/havp_tmp.img      /var/tmp/havp           ext2    mand,loop       0 0

5.设置squid

# vi /etc/squid/squid.conf

acl mynet src 192.168.1.0/24 (你内网的网段)
http_access allow mynet (放在http_access deny all之上)

HAVP + Squid
HAVP is Parent Proxy
修改 squid.conf, 設定 Parent Proxy 為本機的 8080 port

#acl all src 0.0.0.0/0.0.0.0
cache_peer 127.0.0.1 parent 8080 0 no-query no-digest no-netdb-exchange default
cache_peer_access 127.0.0.1 allow all
#Only http traffic can be scanned
acl Scan_HTTP proto HTTP
never_direct allow Scan_HTTP

Proxy 指向Squid:3128
修改 squid.conf, 讓 Squid 變成透明代理 (請參考 "這篇" )

iptables -t nat -A PREROUTING -p tcp -s 192.168.0.0/24 --dport 80 -j REDIRECT --to-port 3128

5.启动

/etc/init.d/havp start
/etc/init.d/squid start

测试eicar - Anti-Virus test file

结果：

参考：使用 HAVP + ClamAV 建置防毒 HTTP Proxy

- 阅读全文 -

参考：Jamyy's Weblog: 使用 HAVP + ClamAV 建置防毒 HTTP Proxy

写得非常的详细。

当中遇到一个问题，就是设置havp的TEMPDIR的时候，我先前使用的是使用内存的方法，就是

mkfs -t ext2 /dev/ram0 8192 (建立 8MB RAM Disk)
mount -o mand /dev/ram0 /var/tmp/havp

然后设置权限，之类的，完全没有问题的

但是启动的时候，出现：

Starting HAVP ...
Starting HAVP Version: 0.88
Too many tries - Exiting..

查看日志error.log

15/07/2008 16:36:38 Could not write to Scannerfile: /var/tmp/havp/havp-tdpVGs
15/07/2008 16:36:39 Could not write to Scannerfile: /var/tmp/havp/havp-GjwJ5A
15/07/2008 16:36:40 Could not write to Scannerfile: /var/tmp/havp/havp-sVVytK
15/07/2008 16:36:41 Could not write to Scannerfile: /var/tmp/havp/havp-bNRpQU

查看权限，都是没有问题的，所有者也都OK。

后，尝试使用硬盘文件，就是方法b

dd if=/dev/zero of=/root/havp_tmp.img bs=128K count=1 seek=1024 (建立 128MB Virtual Disk)
mkfs.ext2 /root/havp_tmp.img
mount -o loop,mand /root/havp_tmp.img /var/tmp/havp

在设置了权限之后，完全OK 。

终于搞定了。

- 阅读全文 -

问题：
假设环境如下：
    表1：      ID， NAME，      QQ，     PHONE，
表中数据：1       秦云        10102800 13500000
                2       在路上      10378    13600000
                3       LEO         10000    13900000

    表2：      ID， NAME，  上机时间，管理员，
表中数据：     1   秦云    2004-1-1  李大伟
               2   秦云    2005-1-1  马化腾
              3    在路上  2005-1-1  马化腾
               4    秦云   2005-1-1  李大伟
               5   在路上 2005-1-1  李大伟

实现目的：从表1中取所有人员列表，从表2中取上机次数和管理员.

             上机人员名单    上机次数   管理员（上这几次机的每个管理员都列出）
               秦云             3             李大伟，马化腾，李大伟
               在路上           2            马化腾，李大伟
               LEO              0

就是要把从表的结果串联起来。

曾经试过，在本地，通过添加一个计算字段，来进行计算，在显示大量数据的时候，会引起程序瘫痪，好像来回的数据量很大，基本上不可接受这个速度。

解决办法：

就是在服务器上使用函数。比较而言，性能真的提高很多。

就是使用游标编写sql server 函数。

参考：SQL Server 中 自定义函数 和 游标 应用的经典案例_数据库文摘_开发文摘_软件开发_天新网

- 阅读全文 -

用Delphi从excel导入数据的时候，经常都只是需要一个worksheet，然后循环读取单元格信息，存入数据库。但是，每次都要重复的写关于打开，关闭excel的application的代码。

话不多说，看代码：

TypeTExcelFunction = procedure(asheet: OleVariant);//声明导入函数//afilename为数据源文件名，func为执行导入的函数

procedure RunExcelApplication (afilename: string;                              func: TExcelFunction);
var
  app: OleVariant;
  oldCursor: TCurSor;
begin
  oldCursor := Screen.Cursor;  //保存鼠标指针状态
  Screen.Cursor := crHourGlass;
  try
    CoInitializeEx(nil, 0);
    app := CreateOleObject('Excel.Application');
    app.DisplayAlerts := False;
    app.WorkBooks.open(afilename); //打开源文件
    app.WorkSheets[1].Activate;
    app.visible := False;//隐藏excel窗体
    if Assigned(func) then  //执行导入函数
      func(app.ActiveSheet);//传递sheet给函数进行导入
    app.WorkBooks.close;
    app.quit;//关闭推出excel
    Screen.Cursor := oldCursor;
  except
    on e: Exception do
    begin
      MessageBox(GetActiveWindow, pchar(e.message), '提示', MB_OK + MB_ICONINFORMATION);
      Screen.Cursor := OldCursor;
      Exit;
    end;
  end;
end;

关键在于定义一个以sheet：OLEVariant为参数的过程，来执行具体的导入工作。

访问单元格：sheet.cells[row,col]

转为string：vartostr(sheet.cells[row,col])

转为datetime：vartodatetime(sheet.cells[row,col])

……

最好先转化为基本类型后，再进行其他操作，可以减少一些莫名的错误。

- 阅读全文 -

cnpack，虽然很久之前就听说过这个名字，也知道是国内做的比较好的Delphi IDE插件之一，也装过，但是被它那繁多的功能吓坏了，不仅是一个长长的主菜单，并且窗体上下左右都多出了一些东东，都不知道做什么的。装上没多久就卸载了。

最近，因为看到cnpack的控件，有一个我找了很久的进度条窗体，才开始使用。不错的说。

然后，才再次注意了一下cnwizard这个控件，

发觉有些功能还是蛮不错的，其他不必要的功能，可以禁用掉。

我觉得最有用的功能：

1. 行号
2. 结构化显示
3. 清理引用单元

- 阅读全文 -

cxgrid为Delphi 上强大的表格控件，可以基本上不用写代码，就可以完成许多的功能，像排序，过滤，分组等。

现在，我们要完成的就是利用cxgrid的强大的过滤器生成器，生成我们的数据库过滤脚本。

虽然，dev express 提供了TcxDBFilterControl 和TcxFilterControl两个控件，但由于没有提供相应的帮助文件，导致使用起来很有难度。

首先，我们需要的是TcxDBFilterControl，这个好办，有控件可以直接用。

接着，怎么用，由于帮助文件的缺乏，这是最大的问题。

从cxDBFilterControl.pas可以看到这么一个函数

function ExecuteDBFilterControlDialog(ADataSet: TDataSet;
  ALookAndFeel: TcxLookAndFeel; AOnApplyProc: TNotifyEvent = nil;
  AOnShowDialog: TNotifyEvent = nil; AColor: TColor = clDefault;
  const AInitialDir: string = ''): Boolean;

注意到，这是全局函数，就是说可以直接使用的。

可以用来对给定的dataset生成相应的filterControl，使用时，只要传入要过滤的dataset，和一个cxgrid的lookandFeel就可以了，当然，要真正的使用，还是需要指定apply或者show的事件代码（TNotifyEvent 类型的，就是只带sender:TObject参数的过程），传入相应的函数名就可以了。

比如说，我要为query1生成一个过滤器，在提交的时候，显示过滤器的文本内容

1. 创建OnApplyProc事件代码：

procedure OnApplyProc(Sender:TObject);
//sender就是传入的FilterControl本身，
//通过FilterText属性，就可以访问到生成的filter文本了
begin
    showmessage(TcxdbFiltercontrol(sender).FilterText);
end;

2.   调用ExecuteDBFilterControlDialog

procedure TForm1.Button1Click(Sender: TObject);
begin
  inherited;
  ExecuteDBFilterControlDialog(query1,cxgrid1.LookAndFeel,OnApplyProc);
end;

完成。在点击form1的button1后，出现filterbuilding dialog，点击OK之后呢，出现过滤器的文本。

可以通过把TcxDBFIlterControl的filtertext传递给query组件，放在where语句中，就可以实现服务器端的过滤了。

- 阅读全文 -

vs.php是以visual studio 为基础的php IDE，如果你熟悉了vs的环境，就可以很方便的利用其开发php应用了，还不错的说。

商业软件，有破解。（全方位下载）

做个记号。

- 阅读全文 -

firefox下载日活动，800多万次下载

可惜，firefox 3 访问证书下载，只要输入我的名字（中文），提交后firefox就崩溃，屡试不爽～～，也太那个了吧。

反而，

IETab提交的话，不会崩溃，不过，没反应～

更正：

用IE7可以下载，是生成的一个pdf文件，但是firefox还是崩溃～

ps:2008-7-19
基本上已经查明原因：

该页面打开内嵌的pdf文件，而因为我的firefox载入了两个pdf插件，一个adobe acrobat ，另外一个是pdf-xviewer，

禁用了其中一个，就OK了。

但是也算是一个bug吧

传播Firefox | 2008下载日

- 阅读全文 -