http://fuckadmin.com/blog/ PJBlog3 2012-04-26T21:12:25+08:00 hkylin http://fuckadmin.com/blog/ puterjam@gmail.com 2012-04-26T21:12:25+08:00 2012-04-26T21:12:25+08:00

功能简单，感觉不是很实用，数据直接采集入库在本地，需要本地备份后再上传服务器还原。


]]>

http://fuckadmin.com/blog/default.asp?id=755 hkylin http://fuckadmin.com/blog/ puterjam@gmail.com 2012-04-19T23:09:07+08:00 2012-04-19T23:09:07+08:00

//1328834615就是1970年1月1日 8:00:00到2012年2月10日8:43:35经过的秒数

const
  sDate = '1970-1-1 08:00:00';
begin
ShowMessage(FormatDateTime('YYYY年MM月DD日HH:NN:SS', IncSecond(StrToDateTime(sDate), 1334845106)));

end;

获取时间戳:
var
    a:Integer;
begin
    a:=Trunc((Now-StrToDateTime( '1970-01-01 '))*24*3600);
end;
]]>

http://fuckadmin.com/blog/default.asp?id=754 hkylin http://fuckadmin.com/blog/ puterjam@gmail.com 2012-04-19T12:12:31+08:00 2012-04-19T12:12:31+08:00

第一：打开Delphi--文件--打开ODAC控件的工程文件，install，如果不成功，先编译一下再install
第二：打开Delphi--Compponent--Install Pack ---Add


基本安装
1、对于单个控件，Componet-->install component..-->PAS或DCU文件-->install;
2、对于带*.dpk文件的控件包，File-->Open(下拉列表框中选*.dpk)-->install即可；
3、对于带*.bpl文件的控件包，Install Packages-->Add-->bpl文件名即可；
4、如果以上Install按钮为失效的话，试试Compile按钮；
5、是run time lib则在option下的packages下的runtimepackes加之。
如果编译时提示文件找不到的话，一般是控件的安装目录不在Delphi的Lib目录中，有两种方法可以解决：
1、反安装的源文件拷入到Delphi的Lib目录下；
2、或者Tools-->Environment Options中把控件源代码路径加入到Delphi的Lib目录中即可。
注意：所安装的控件是否与你所用的Delphi版本相适应。

RxLib的安装
　　首先在Delphi 5 的 IDE 中将以前版本的 Rxlib 反安装掉，删除 RXCTL5.BPL、RXDB5.BPL、 RXBDE5.BPL、DCLRX5.BPL、 DCLRXDB5.BPL 和DCLRXBD5.BPL。
　　打开 Rx 的运行包 RXCTL5.DPK，在 Package 窗口中按 Compile 按钮编译 RXCTL5.DPK ，然后用同样方法编译另两个运行包RXDB5.DPK 和 RXBDE5.DPK ，将编译后的三个 BPL 文件放到搜索路径中，如 WINDOWS\SYSTEM等。
　　在编译完运行包后你必须将 RX 的设计期包安装到 IDE 环境中。
　　打开 Rx 的设计期包 DCLRX5.DPK，在 Package 窗口中按 Compile 按钮编译，然后按 Install按钮将设计期包注册到组件面板中。用同样的方法安装 DCLRXDB5.DPK 和 DCLRXBD5.DPK。
　　注意：不要在 Delphi IDE 中保存包资源(package sources)！

控件删除
在Component/Install Packages中删除。
选Component/configure Palette…
有pages和components两个区域
双击components区域，选中要删除得控件，下面有得Delete按钮
但系统提供的控件只能Hide，不能delete。
打开控件所在的包文件(*.dpk)，从中删除控件那个文件，再重新编译该包即可
如果是整个控件包都要删除的话,project->Option->Packages,删掉那个packages,That would be ok~


先要编辑make.bat，ide路径设置正确，make后应该有：
CRControls70.bpl
dac70.bpl
dacvcl70.bpl
dcldac70.bpl
dclodac70.bpl
odac70.bpl
odacvcl70.bpl
oraprov70.bpl
然后安装，安装后要在系统的path环境变量或delphi的tools--Environment Options--path中加入bpl的路径
]]>

http://fuckadmin.com/blog/default.asp?id=753 hkylin http://fuckadmin.com/blog/ puterjam@gmail.com 2012-04-19T10:22:21+08:00 2012-04-19T10:22:21+08:00

http://localhost/phpmyadmin/无法访问，出现上面所说访问拒绝问题。解决方法：1、停止mysqld-nt.exe服务，重新更新一份mysql到指定目录中，启动mysqld-nt.exe服务。2、此时mysql的root访问密码是空。用http://localhost/phpmyadmin/登录访问mysql。3、用sql语句修改mysql数据库user表的root用户密码：Update mysql.user SET Password = OLD_PASSWORD('123456')
Where Host = 'localhost' AND User = 'root';4、成功执行该sql语句 ，密码修改成功。关闭mysqld-nt.exe服务，重新启动。5、修改phpmyadmin/config.default.php文件下的mysql数据库登录密码：     $cfg['Servers'][$i]['password']      = '123456'; 保存6、再次用http://localhost/phpmyadmin/登录访问mysql，访问成功，不会再出现”拒绝访问“问题。

phpMyAdmin 试图连接到 MySQL 服务器，但服务器拒绝连接 问题]]>

http://fuckadmin.com/blog/default.asp?id=752 hkylin http://fuckadmin.com/blog/ puterjam@gmail.com 2012-04-18T16:34:09+08:00 2012-04-18T16:34:09+08:00

http://fuckadmin.com/blog/default.asp?id=751 hkylin http://fuckadmin.com/blog/ puterjam@gmail.com 2012-04-18T13:30:24+08:00 2012-04-18T13:30:24+08:00

貌似3594.net权重比cnzero.NET高啊 原以为做"上我就是"被抛弃了...
]]>

http://fuckadmin.com/blog/default.asp?id=750 hkylin http://fuckadmin.com/blog/ puterjam@gmail.com 2012-04-11T16:09:25+08:00 2012-04-11T16:09:25+08:00

Borland license information was found, but it is not valid for Delphi.Youcan not run Delphi without this information.Click the 'Exit' button to exit Delphi.

马上百度一下

原因：C:\Documents and Settings\用户名称\.borland

中的文件被破坏。

解决办法：删除该文件夹。
]]>

http://fuckadmin.com/blog/default.asp?id=749 hkylin http://fuckadmin.com/blog/ puterjam@gmail.com 2012-04-08T23:04:56+08:00 2012-04-08T23:04:56+08:00

为什么是两个呢?一个做采集文章,一个作伪原创..justtest.....

]]>

http://fuckadmin.com/blog/default.asp?id=748 hkylin http://fuckadmin.com/blog/ puterjam@gmail.com 2012-04-08T19:01:51+08:00 2012-04-08T19:01:51+08:00

参照:http://blog.csdn.net/hjmaasc/article/details/1350803]]>

http://fuckadmin.com/blog/default.asp?id=747 hkylin http://fuckadmin.com/blog/ puterjam@gmail.com 2012-04-08T18:45:12+08:00 2012-04-08T18:45:12+08:00

rfReplaceAll：全部替换
rfIgnoreCase：忽略大小写

For Example：

var
aStr: String;
begin
aStr := 'This is a book, not a pen!';
ShowMessage(StringReplace (aStr, 'a', 'two', []));//This is two book, not a pen!只替换了第一个符合的字
ShowMessage(StringReplace (aStr, 'a', 'two', [rfReplaceAll]));//This is two book, not two pen!替换了所有符合的字
aStr := 'This is a book, not A pen!';
ShowMessage(StringReplace (aStr, 'a', 'two', [rfReplaceAll]));//This is two book, not A pen!只替换了符合的字(小写a)
ShowMessage(StringReplace (aStr, 'a', 'two', [rfReplaceAll, rfIgnoreCase]));//This is two book, not two pen!不管大小写替换了所有符合的字
end;
]]>

http://fuckadmin.com/blog/default.asp?id=746