存档

‘学习记录’ 分类的存档

Delphi安装皮肤控件

2012年12月5日 5 条评论
1、下载并解压控件 AlphaControls_v6.48_for_Delphi7、2009、2010.rar到指定目录。

2、把这个文件夹的路径添加到系统环境变量path里面。
3、在Delphi的菜单:Tools->Environment Options->Library->Library Path 也添加该文件夹的路径(注:系统环境变量:进入我的电脑,右键属性,高级选项卡,环境变量)
4、在Delphi菜单 “File\Open…” 打开AlphaControls安装文件夹(就是上面解压的文件)里面的acntX_r.dpk文件 (x是你安装的Delphi版本). 然后点击 “Compile”按钮。
5、在Delphi菜单 “File\Open…” 打开acntX.dpk文件(同样是在安装目录下),然后点击”Install”按钮,完毕!
这时在你的Delphi组建面板的最后选项卡里多了3个组件页:AlphaStandard、AlphaAdditional、AlphaTools,可以把它们拖到最前面,方便使用。
Tips:
若提示没有找到xxx_R.bpl,可在Projects\Bpl下找到,Copy到控件目录即可。
分类: Delphi, 学习记录 标签:

Delphi下Listview与数据库关联

2012年3月29日 1 条评论

procedure TForm1.Button1Click(Sender: TObject);
begin
listview1.clear;
with adoquery1 do
begin
Sql.text := ‘Select * from 表';
Open ;
while not eof do
begin
with listview1.items.add do
begin
caption := fieldbyName(‘字段’).asstring;
subitems.add(fieldbyName(‘字段’).asstring);

subitems.add()…….

end;
Next;
end;
end;

分类: Delphi, 学习记录 标签:

Delphi连接Mysql数据库

2012年3月25日 1 条评论

以前一直使用Dephi的ADOconnection控件连接SQLserver,最近需要做一个程序数据库为mysql,研究了一阵子,总结下方法。

依然老组合,ADOconnection、ADOQuery以及Datesource。

首先在Form初始化时加入如下代码:

try
ADOconnection1.Close;
ADOconnection1.ConnectionString:=(‘DRIVER={MySQL ODBC 3.51 Driver};’+
‘SERVER=localhost;’+
‘DATABASE=test;’+
‘USER=root;’+
‘PASSWORD=xxxqqq;’+
‘PORT=3306;’+
‘OPTION=3;’);
ADOconnection1.open;
except
on e:Exception do
ShowMessage(e.Message);
end;

这样就连到了本地的MYSQL数据库。

之后的使用方法和Sql的相同。

嵌套3个For循环并同步循环

2012年3月14日 4 条评论

来由:

今天有朋友让我帮忙写个脚本,他有一台服务器,服务器设置了255个Wan网ip。

现在他想运行多个CCProxy代理(SOCKS),并通过不同IP、不通端口来执行。经测试,需修改配置文件CCProxy.ini中的一些值,

1、SOCKS | 2、Admin | 3、ServerBindIP

条件是,SOCKS:8010依此类推到8110,Admin:110 依此类推到210,IP:10.10.10.10 依此类推到10.10.10.110。

思考后,可用的方法是,先配置一个CCProxy.ini模版,删除以上提到的那些值,然后循环创建CCProxy.ini并根据变量循环将配置信息追加入,然后创建并copy到以IP结尾的目录中,执行。

很显然,使用批处理FOR循环就可以做到,如:

for /l %%a in (8010,8110) do (echo %%a)

以上一句代码输出从8010到8110这100个数字,即满足条件1.如果三个同时要修改入CCProxy.ini呢?

但是试了下这样是不行的:

for /l %%a in (8010,8110) do (echo %%a)

for /l %%b in (110,210) do (echo %%a)

for /l %%c in (10,110) do (echo %%a) 阅读全文…

Java程序流程控制

2012年3月1日 3 条评论

Java学习中,记录之…

一、Java程序流程控制

1.1、Switch语句,

Switch(表达式)

{

case  常量表达式1:语句1;

break;

case  常量表达式2:语句2;

break;

….

case 常量表达式n:语句n;

default:语句x;

}

default一般用来程序中的usage(使用说明),例如条件不符合所有 常量表达式的时候,即执行default后语句,一般每次条件语句之后,最好加入break来结束,这样就不会执行一段符合条件的语句后再执行其他语句。

1.2、While语句,

x=1;

while(x<10)
{
System.out.println(x);
x++;
}

如果x小于10,程序即打印出x的值,x++为x自身相加,当x的值加到大于等于10时,程序退出。

阅读全文…

分类: Java, 学习记录 标签: ,

Delphi资源文件释放

2012年2月21日 4 条评论

最近正好看到Delphi资源释放的一些方法,就记录下使用Brcc32 制作res资源文件来释放的方法吧。

以前Delphi做的一些常常也会用到此种方法,一般杀软不会检测到任何附加数据和2个文件头之类的现象,即使用到类似exescope可以看到资源中多了一个exefile,用加密软件也可以逃过,因此也达到一定免杀的作用。

 

一、步骤:

1.制作资源文件

1.1、在任意目录下新建一个文件,名为xx.rc,编辑内容为nc exefile nc.exe   //nc 为你的文件名,exefile为你的文件类型,nc.exe为你想要释放的资源文件。

1.2、将你想要释放的资源文件Copy到此目录,即nc.exe

1.3、打开命令行,转到xx.rc所在目录,执行命令 Brcc32 xx.rc,如果没有错误,目录会生成一个名为xx.res的文件。

2.制作Delphi程序

2.1、打开你的delphi程序,我这里用的Delphi7。

2.2、新建一个Console Application 工程,File-New-Other.  //新建Console Application的原因是为了减小最后生成的程序的体积。

2.3、将步骤1.3生成的xx.res复制到工程保存的地址,我这里保存在”E:\教程\DELPHI\源代码\2012\资源释放\”.

2.4、详见以下代码, 阅读全文…

普人特福的博客cnzz&51la for wordpress,cnzz for wordpress,51la for wordpress