bcoder

7月 092014
 

  对于一些非多文档类的程序,我们只想让用户打开一个程序的实例,当用户再次点击图标的时候只需将原来运行的程序界面打开即可。那么如何实现这种功能呢?首先,要实现进程的单实例运行,我们可以用互斥对象实现,互斥对象即在系统层上只能创建一个这样标识的对象,当第二个此标识的互斥对象创建时将会返回一个已存在的标志。

  单实例运行实现后,我们还要通过消息实现打开前面已经打开的窗口,我们可以用EnumWindows函数来遍例所有窗口以找到已打开窗口的句柄,并通过ShowWindow函数或者自定义消息来激活那个窗口。具体的代码如下:

 

 

6月 272014
 

在Delphi7中,使用TAdoQuery读取sybase中的数据,发现在读取numeric字段时,本来存储的是负数值,但tadoquery读出后为正数。

select workdays from workinfo

后来gg了一下,发现这是delphi的一个bug,用Delphi 2010写了一小工具,发现读取不会出现负数为正的情况,说明在后来的delphi版本中修正了此错误。跟踪代码时发现在adodb.pas中的GetFieldData函数中的子函数VarToBuffer中,delphi 2010和delphi 7有所区别,具体代码片断如下:

ftAutoInc, ftInteger:
Integer(Buffer^) := lVal;

将adodb.pas文件拷贝到工程目录下,并将delphi 2010中的此行代码拷贝到这个文件中,发现问题确实解决了,但是修改delphi的源文件还是容易为以后的开发带来隐患,所以还需要其他的办法来解决此问题。

既然是读取numeric字段会报错,那么我们可以想办法把这个字段动态的改变为其他的类型,在sql语句中通过一些数学运算即可改变,最简单的就是跟这个字段除以1(乘以1不会改变),所以最简单的解决办法就是如下更改sql语句:

select workdays / 1 as workdays from workinfo

这样就轻松解决了问题,如果大家遇到类似的问题也可以考虑这种办法来解决问题。

6月 192014
 

1. 点击“开始-》控制面板-》管理员工具”,打开Internet 信息服务(IIS)管理器

2. 在左侧的树形列表中的“网站”上右键,选择“添加FTP站点”

3. 输入要添加的FTP站点的名字,并选择FTP站点所在的物理路径,点击“下一步”继续

4. 勾选自动启动FTP服务器,系统启动时会自动 运行FTP服务器。SSL的选项根据自己需要进行选择,建议选择“允许”使用SSL

5. 身份验证选择“基本”,授权可以选择给所有用户授权,或者授权给指定用户,这里没有特殊的需求,选择的是“所有用户”,这里最好不要选择“未选定”。权限根据自己的需要设置。

 

 Posted by on 2014-06-19
6月 092014
 

Windows服务作为Windows提供的一种特殊应用程序,拥有下面优点:

1. 随系统启动而启动,不需要用户手动执行,适合做后台检测程序等
2. 不用登录系统即可运行
3. 在后台运行,不与Windows桌面相互影响
4. 拥有System权限,在任务管理器中无法结束运行

Windows不建议在服务程序中与桌面有交互,在Windows Xp及以前的版本Windows服务和用户桌面还运行在一个session下,所以服务程序还可以比较轻松的与桌面进行交互。但是自Windows Vista及以后的系统中,服务程序是运行于session0中,而第一个启动的用户则运行于session1中,要想在服务中显示桌面或者与桌面程序交互要使用很复杂的技术,甚至用CreateProcess和ShellExecute启动的应用程序都无法在用户桌面中显示。

一、在Delphi中创建Windows服务程序

Delphi中提供了创建Windows服务的程序框架,生成Windows服务工程的具体方法如下,点击菜单File->New->Other,在里面寻找Service Application项目,点击OK按钮生成即可。这里会生成一个带界面的TService1类。选中TService1界面,下面介绍一下TService的相关属性和事件。

TService属性:

  • AllowPause: 是否允许暂停
  • AllowStop: 是否允许停止
  • Dependencies: 设置该服务与其他服务的依赖关系
  • DisplayName: 在Windows服务管理器中显示的名称(注意:不是服务名)
  • Name: 服务名称,使用/install参数安装时安装的服务名为此属性值
  • Interactive: 是否要与桌面进行交互
  • StartType: 服务的启动方式
  • ServiceStartName: 设定用于启动服务的用户名

TService事件:

1. procedure TService1.ServiceStart(Sender: TService; var Started: Boolean);
在该服务启动的时候调用OnStart事件,参数Started的默认为True,所以不用在该事件中再设置Started := True; 在此事件中如果判断某些条件不允许服务运行,则可以将Started置为False,这样服务将会不再启动。
2. procedure TService1.ServiceStop(Sender: TService; var Stopped: Boolean);
在该服务被停止的时候调用OnStop事件,Stopped的默认为True,在此事件中如果判断某些条件不允许服务停止则可将Stopped置为False来防止服务被停止。
3. procedure TService1.ServiceExecute(Sender: TService);
服务的主体执行部分,需要将服务的主要功能实现代码放在此事件中,此过程执行完毕后服务将会自动停止,所以一般在此事件中要写类似如下代码:

4.procedure TService1.ServicePause(Sender: TService; var Paused: Boolean);
在服务被暂停时调用的事件,Paused的含义类似ServiceStart事件中的Started.
5. procedure TService1.ServiceContinue(Sender: TService; var Continued: Boolean);
服务被暂停后重新启动继续执行时调用的事件,Continued的含义类似ServiceStart事件中的Started

经过简单的点击后,一个最基本的Windows服务程序已经编写完成了,编译工程,将会生成一个exe程序,本例中生成一个ServiceTest.exe。
打开命令行窗口,将目录定位到工程的输出目录,输入ServiceTest.exe /install并执行,刚才编写的服务就安装到系统中了。
卸载服务时使用ServiceTest.exe /unstall
可以在命令行后面加/silent参数,使其不弹出安装、卸载成功的提示框。
注意:使用/install这种方式安装时,服务的名字是服务窗口的类名,不是DisplayName,服务管理器中显示的是DisplayName
也可使用Windows自带的sc命令来创建或者删除服务,创建的示例代码如下:

二、一些很有用的管理服务的函数

调用方法:

{启动服务} StartServices(服务名);
{停止服务} StopServices(服务名);
{新建服务} CreateServices(服务名,exe文件路径);
{删除服务} DeleteServices(服务名);
{获取服务状态} string:=QueryServiceStatu(服务名);

注意这里的服务名是Service类的名称,不是DisplayName

三、Delphi中编写Windows服务的注意事项

1. 尽量避免使用ShowMessage等直接进行调试,容易造成服务无法响应等问题。
2. 停止服务时提示”Windows无法停止 xxx 服务(位于 本地计算机 上)” ,则可能是OnStop事件结束时将Stopped设置成了False或者OnExecute事件不能结束或者OnExecute与界面进行了不正确的交互。
3. Windows Vista及上版本的系统中不再支持服务中显示窗口,所以在这些版本的系统上,如果需要显示窗口,则要另外创建一个窗口程序,并与之用消息通讯以显示窗口。

四、一些有用的链接

Subverting Vista UAC in Both 32 and 64 bit Architectures
http://www.codeproject.com/Articles/35773/Subverting-Vista-UAC-in-Both-and-bit-Archite

如何在Windows Service里面运行程序
http://blog.sina.com.cn/s/blog_5f8817250100vooy.html

5月 142014
 

当我们需要响应鼠标滚轮效果的时候,我们需要在Form的FormMouseWheel、FormMouseWheelDown、FormMouseWheelUp事件中进行处理。如下面的代码:

但是在实际运行中我们发现,每次滚轮后Edit1的顶部位置往上或下移动了两次,这是因为TControl的DoMouseWheel调用了该事件,如果该事件中Handled返回值为true,则DoMouseWheel将认为该事件处理完毕,不在执行后边的代码,如果返回false则继续执行后面的代码。

所以如果要避免这几个事件执行多次,在执行完你要执行的操作后,返回Handled := True;即可。如下:

DoMouseWheel的代码如下:

 

3月 302014
 

先在要调试的代码前边的灰色条上点一下,当代码这行变成红色背景时说明断点已经打上了
然后在上面的工具栏中点击绿三角右边的那个带刺的e按钮,这个按钮是以调试模式运行应用
这样就可以了,当代码运行到你设置的断点的时候,就会暂停,这时你就可以开始调试你的代码了

A220C055-FCAE-4FFB-812F-41932236B419

调试app

3月 192014
 

一、摘要

  使用javac命令来编译java文件生成.class文件

  使用java命令+类名来运行编译好的class文件

二、编译不含包名的程序

  假设HelloJava.java代码文件如下

  在命令行工具中,cd到HelloJava.java文件所在的目录

  运行如下命令:

  运行完毕后,在目录中会出现HelloJava.class文件

  然后使用java命令运行这个类:

  此处需要注意的是:

  1. java后面的参数是类名,即不是.class文件名,java HelloJava.class这样是错误的
  2. HelloJava大小写必须与类名一致

三、编译包含包名的程序

  假在com/bcoder/目录下有HelloPackageJava.java文件,文件内容如下:

  如需编译HelloPackageJava.java,则cd到com目录的上一层目录,然后执行如下命令:

  编译完后使用如下命令运行

  如果在HelloPackageJava.java目录下编译然后运行java HelloPackageJava会报“错误: 找不到或无法加载主类 HelloPackageJava”

 Posted by on 2014-03-19

Java的一些问题总结

 分类:Java 阅读 (1,421)  No Responses »
3月 162014
 

1. 整型数据类型中,需要内存空间最少的是(D)

A) short                B) long                 C) int                    D) byte

关于这个问题,我认为byte应该是字节型,就不算整型,怎么能选D呢。

2. Java中的default关键字 default关键字是Java8 的新特性,其作用是使用此关键字可以在接口中给接口函数增加默认的实现内容,以方便接口增加新的接口函数后继承自该接口的类也可以编译通过。如下代码:

3. Java中的native关键字 native用于定义本地方法,即方法的定义是在java中定义,但是其实现是用非java语言实现的

4. Java中的多态性——重载,重载函数不能同时有完全相同的参数(即参数数量和参数数据类型都一致),参数的数量可以与原来的不同,返回值也可以与原来的不同。

5. 子类覆盖父类方法时(注意:是覆盖不是重载),方法的作用域不能低于父类方法的作用域,比如父类用public声明的,子类中就不可以用private或者default声明,另附几个作用域关键字对应的作用范围

   类内部  本包  子类 外部包 
public         
protected        ×
default       ×  ×
 private    ×  ×  ×

6. 一个.java文件中,可以有多个类,但是只能有一个使用public定义的类

7. throw是在一个过程中抛出具体的某个异常(异常类的实例);throws是定义在方法头的可能会抛出的异常,可以同时定义多个异常类。

8. 参与运算时,数据类型会从低精度的数据类型向高精度自动转换

改变一下:

9. Java中基本数据类型包括byte、int、char、long、float、double、boolean和short

引用数据类型包括:类,数组,接口等(简单来说就是除了基本数据类型之外的所有类型),所以String也是引用类型的

10. Java中抽象类可以有实现方法,但是抽象类不能实例化,所以也无法调用实现方法,其他抽象类的特点

a. 抽象方法 abstract void f(); 抽象方法不能包含有任何方法的BODY 。
b. 如果一个类包含1个或者多个抽象方法, 则该类必须限定为抽象的。
需要在前面指定 abstract 关键字。
(1)抽象类不能被实例化
(2)包含抽象方法的类,必须标识 abstract
c. 如果从一个抽象类继承, 必须对所有抽象方法进行覆盖 , 否则导出类也是抽象的
d. 也可以考虑创建没有任何抽象方法的抽象类 。

11. 如果子类中没有显式调用父类的某个形式的构造函数,子类的构造函数会自动调用父类的无参数的构造函数,不管何种情况基类的无参构造函数肯定会被调用。

 Posted by on 2014-03-16
2月 142014
 

Windows下重新设置root用户密码的办法

第一步:停止mysql服务

打开命令行窗口,输入net stop mysql回车,或者在Windows服务管理器中停止MySQL服务。

第二步:在命令行窗口中将目录切换到mysqlbin目录,比如cd c:program filesmysqlbin

第三步:输入mysqld –skip-grant-tables,执行此命令后,此命令行窗口将会停止响应

第四步:再打开一个命令行窗口,因为上一个窗口已经无法响应了,将目录切换到mysqlbin目录中,输入mysql回车,这时将会进入mysql控制台,输入下面的命令

>use mysql;
>update user set password=password(“123456″) where user=”root”;
>flush privileges;
>exit

这样密码就被设置为123456了,注销计算机,重新启动mysql服务, 就可以使用这个密码登录了。

 

Linux下重新设置root密码的方法

如果 MySQL 正在运行,先杀掉这个进程: killall -TERM mysqld。
启动 MySQL :bin/safe_mysqld –skip-grant-tables &
就可以不需要密码就进入 MySQL 了。
然后就是
>use mysql
>update user set password=password(“new_pass”) where user=”root”;
>flush privileges;
重新杀 MySQL ,用正常方法启动

1月 062014
 

  在使用GridView时我们知道,列数是可以通过设计时的属性来设置的,列的宽度则是根据列数和GridView的宽度计算出来的。但是有些时候我们想实现列数是动态改变的效果,即列的宽度保持某个值,列的数量是可变的,我们可通过获取屏幕宽度并除以项目宽度来处理。请看下面的代码:

  但是由于不同的Android设备可能有不同的宽度,项目宽度乘以获得的列数所得到的总宽度并不能填充整个屏幕的宽度,而给用户带来不好的用户体验,甚至我们可能还需要使行高和列宽保持一定的比例,那么如何动态调整项目的宽度和高度呢?

  我们此处是通过写一个自己的Adapter类,并改写其中的getView函数来实现的,getView是用来返回某个GridView项的部局的函数,我们在此处手动生成需要的view并设置此view的宽度和高度,最后将此view返回。

  注:使用此方法时,项目中的内容可能也需要手动去填充,请再研究

  相关文件及代码如下:

  主窗体只有一个GridView,部局文件代码:

  GridView项所使用的部局文件只有一个TextView,命名为note_item,代码如下:

  Activity类的实现代码如下: