简洁技术，简单生活

方法1

procedure WMSysCommand(var Msg : TWMSysCommand); message WM_SYSCOMMAND;
[pascal]
// SWITCH OFF THE SCREENSAVER AND THE MONITOR POWER SAVER IF THEY TRY TO CUT IN
procedure TForm1.WMSysCommand(var Msg : TWMSysCommand);
begin
//catch the message and turn it off
if (Msg.CmdType = SC_MONITORPOWER) or (Msg.CmdType = SC_SCREENSAVE) then
begin
Msg.Result := -1;
end
else
inherited;///Otherwise do whatever is supposed to be done
end;
[/pascal]

方法2：

type
EXECUTION_STATE = DWORD;
const
ES_SYSTEM_REQUIRED = DWORD($00000001);
ES_DISPLAY_REQUIRED = DWORD($00000002);
ES_USER_PRESENT = DWORD($00000004);
ES_CONTINUOUS = DWORD($80000000);
function SetThreadExecutionState(esFlags: EXECUTION_STATE): EXECUTION_STATE; stdcall; external kernel32;

 

Lazarus中，Windows没有定义SetThreadExecutionState，需自己定义，然后

SetThreadExecutionState(ES_DISPLAY_REQUIRED or ES_CONTINUOUS); // this will fix current state and disable screensaver

- 阅读全文 -

一个Lazarus的项目，在重新安装了新版本的Lazarus 后，编译都通过了，但是链接是出现

Error: Undefined symbol: FPJSON_TJSONOBJECT_$__GETFLOATS$ANSISTRING$$DOUBLE

搜索到Lazarus的论坛http://lazarus.firmos.at/index.php?topic=7683.0

提到可能是ide或者是fpc的问题，考虑到之前有修改过fpjson的源码，怀疑是这个问题，于是重新编译了fpc

重新编译，问题依旧。

查看工程选项，修改resource类型为fpc resource，原来是lrs的

重新编译，一切顺利。

并且，原来编译新版的geckport，老是出错，这次编译，一次成功，gecko组件在设计时添加了背景图

呵呵，挺不错的吧。

- 阅读全文 -

Lazarus是类似于Delphi的freepascal开发环境，近年来，也算是进步神速了。

Lazarus的第三方控件安装，相较于Delphi，还是有许多的不足，就在于第三方控件必须静态链接到Lazarus的ide本身。

以indy为例，说说如何安装控件包

本例中的indy为pl_indy ，是来自于codetyphon项目，整合了许多优秀控件的Lazarus发布版。

1.把pl_indy源码解压到Lazarus的components目录下

目录结构：

pl_indy目录

source

- 阅读全文 -

最近的项目，一个工程组里面，包含有十几个的项目，如果打开项目组进行编辑，调试的时候，总会使Delphi 2010的ide失去响应，cpu占用50%，双核的。如果是单个exe项目的话，就不会。

解决办法：

用Delphidistiller ，把 component toolbar ide package的包去掉，即可。

ps:

参考：Component Toolbar slows down RAD Studio 2010

可知，可以加快code和design切换的速度～～

- 阅读全文 -

一段extjs的代码，在firefox中的表现：到某个地方以后，所有的中文显示为乱码

去掉一段代码后：显示正常

这段神奇的代码就是：

idlist = rows[0].get('id');

    for (i = 1; i < rows.length; i++) {
        idlist += ',' + rows[i].get('id');
    }

奇怪的就是，用了vim，ue，nodepad++，editplus，甚至是word，都没看出来到底有什么问题～～

重写了这段代码后，终于搞定乱码问题。

- 阅读全文 -

extjs中的combobox有个自动完成功能，就是在你输入部分字符后，可以自动补充称完整的已存在项。

如下图：

在输入ch的时候，会弹出所有ch开头的项

配置方法：

关键是几个属性：

typeAhead:true

mode:’local’

如果是远程数据集的话，最好是先把store load了。

- 阅读全文 -

安装的D7版本：

Delphi7 Lite Full v7.3.3.5 Build 20100801

打开原来的一个项目后，

假死

经研究发现：

项目都是经过高版本的Delphi 打开过的，如Delphi 2007，Delphi 2010等，目录下可明显的看到xxxx.dpr.2007等文件。

- 阅读全文 -

今天从一个文件中拷贝了一个formpanel的配置，用以下代码提交

fp.getForm().submit({
                    url: GURLBase + "/EXEC/" + GTrackID + "/" + GAppID+"?op=addMenuItem&page=menuitem&SessionId="+GMySession,
                    method: 'POST',
                    scope: this,
                    params: {                 
                    },
                    success: function(form, action) {
                        win.close();
                        store.reload();

                    },
                    failure: function(form, action) {
                        if (!fp.getForm().isValid()) {
                            return;
                        }
                        Ext.Msg.alert('系统提示', '<br/> 操作失败,请重新操作');
                    }

                }); //end submit

提交后，发现，firebug竟然没有post的过程数据，在intraweb的断点中，发现request的contentfields数据竟然是这样的：

-----------------------------145415869681

Content-Disposition: form-data; name="id"

67

-----------------------------145415869681

Content-Disposition: form-data; name="cname"

查看注册清单

-----------------------------145415869681

Content-Disposition: form-data; name="ename"

view report

-----------------------------145415869681

Content-Disposition: form-data; name="parentid"

0

-----------------------------145415869681

Content-Disposition: form-data; name="leaf"

1

-----------------------------145415869681

Content-Disposition: form-data; name="page"

rep_list

-----------------------------145415869681

Content-Disposition: form-data; name="icon"

bg_waitIcon

-----------------------------145415869681

Content-Disposition: form-data; name="module"

report

-----------------------------145415869681

Content-Disposition: form-data; name="permcode"

024

-----------------------------145415869681--

原因：

经过仔细查看，原来formpanel竟然配置了

fileUpload:true

看来，拷贝来的代码，还是应该好好的检查的，浪费了我一天的时间啊～～～

- 阅读全文 -

如下，一个panel，如何动态更新其中的html的值，其实就是要更改frame里面的url

var p = new Ext.Panel({
    title: 'My Panel',
    collapsible:true,
    width:400,
    id:’panel1’,
    html:'<iframe scrolling="auto" frameborder="0" width="100%" height="100%" src="PagingGrid.jsp"></iframe>'
    });

方法：

Ext.getCmp(‘panel1’).body.update('<iframe scrolling="auto" frameborder="0" width="100%" height="100%" src="PagingGrid11.jsp"></iframe>');

from:http://www.17ext.com/showtopic-1150.aspx

- 阅读全文 -

用vs2010的reportviewer做了一个简单的报表展示界面，在vs的调试状态下，显示都没有问题，但是用vs的发布网站发布到IIS6后，打开出现

• 处理报表时出错。
• 调用的目标发生了异常。
• 用户 'XXXXXXXXIWAM_CHINA-63C2C51D6' 登录失败。

查看了IIS的配置，已经配置好了是使用IUSER_CHINA-63C2C51D6'登录的，很奇怪的是报错的竟然是IWAM_CHINA-63C2C51D6' 用户。

后查看web.config配置，发现是数据库配置问题。

<add name="acrConnectionString" connectionString="Data Source=127.0.0.1;Initial Catalog=acr;Integrated Security=true;" providerName="System.Data.SqlClient"/>

原来数据库访问是使用Windows的验证，vs由于是当前用户访问，没有问题。

发布到IIS后，IIS内置账户没有访问数据库的权限，所以导致了登录失败的问题。

- 阅读全文 -