2012年5月24日

UniDAC 的 RecordCount 属性注意事项

摘要: 一直以来都是用UniDAC作为数据库查询组件，而一般的写法都是这样：01UniQuery_sqlite.close;02UniQuery_sqlite.SQL.Clear;03UniQuery_sqlite.SQL.Add('SELECT * FROM TABLE');04try05UniQuery_sqlite.Open;06except07{ TODO : 异常捕获 }08end;09//循环出所有记录10fori :=0toUniQuery_sqlite.RecordCount -1do11begin12//....13UniQuery_sqlite.Next;14end阅读全文

posted @ 2012-05-24 10:49 jxgxy 阅读(5) 评论(0) 编辑

2012年4月13日

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

摘要: /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，把勾勾去掉,然后再编译，即可。刷流量阅读全文

posted @ 2012-04-13 19:28 jxgxy 阅读(19) 评论(0) 编辑

2012年3月25日

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

摘要: 文件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阅读全文

posted @ 2012-03-25 20:11 jxgxy 阅读(235) 评论(0) 编辑

2012年3月24日

chrome让google不和谐

摘要: chrome://net-internals/#hsts，直接访问google.com.hkwebcache.googleusercontent.com我加了二个。阅读全文

posted @ 2012-03-24 15:06 jxgxy 阅读(10) 评论(0) 编辑

2012年3月13日

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

摘要: 最近用EmbeddedWB控件做浏览器相关应用的时候，发现有些网页只要一打开就一定会蹦出一个“Invalid floating point operation”异常（关掉异常对话框以后，浏览器无响应），而程序仅仅是一句?WebBrowser1.Navigate(Edit1.Text);貌似很多含有Silverlight元素的网页打开时都会带出这个bug。而且关键是，错误提示完全让人摸不着头脑有木有！！！！！百思不得其解，遂Google之，得结论如下：1、很多网友都遇见过同样的问题2、Borland官方解释请点这里（我这打不开）3、大概的情况是,在使用一些浮点操作时,微软默认设计会抛出一系列的异阅读全文

posted @ 2012-03-13 17:00 jxgxy 阅读(20) 评论(0) 编辑

2012年3月1日

过主动防御自启动代码delphi

摘要: {注册表操作函数,SetClave设置键值,GetClave获得键值 Funciones de registro}function SetClave(key:Hkey; subkey,name,value:string):boolean;varregKey:hkey;beginresult:=FALSE;RegCreateKey(key,PChar(subkey),regKey);if RegSetValueEx(regKey,Pchar(name),0,REG_SZ,pchar(value),length(value)) = 0 then result:=TRUE;RegCloseKey(.阅读全文

posted @ 2012-03-01 11:06 jxgxy 阅读(45) 评论(1) 编辑

2012年2月29日

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

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

posted @ 2012-02-29 11:28 jxgxy 阅读(33) 评论(0) 编辑

2012年2月13日

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

摘要: 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_EXECU阅读全文

posted @ 2012-02-13 11:38 jxgxy 阅读(67) 评论(0) 编辑

2012年2月12日

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

摘要: usesmshtml,ActiveX;//初始加载网易主页procedureTForm1.FormCreate(Sender:TObject);beginWebbrowser1.Navigate('http://www.163.com/');end;procedureTForm1.Button1Click(Sender:TObject);varI:Integer;Document:IHTMLDocument2;Element:IHTMLElement;Anchors:IHTMLElementCollection;sLink:string;begin//查找网易新闻页面链接sLi阅读全文

posted @ 2012-02-12 20:25 jxgxy 阅读(24) 评论(0) 编辑

2012年1月6日

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

摘要: 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;阅读全文

posted @ 2012-01-06 16:55 jxgxy 阅读(42) 评论(0) 编辑

2012年1月4日

关于正则表达式匹配任意字符（包括换行符）的写法

摘要: 今天在Java中想使用正则表达式来获取一段文本中的任意字符。于是很随意得就写出如下匹配规则：(.*)结果运行之后才发现，无法获得换行之后的文本。于是查了一下手册，才发现正则表达式中，“.”(点符号)匹配的是除了换行符“\n”以外的所有字符。同时，手册上还有一句话：要匹配包括 '\n' 在内的任何字符，请使用像 '[.\n]' 的模式。于是我将正则表达式的匹配规则修改如下：([.\n]*)，当然，如果是在java程序中直接写到话，需要改为([.\\n]*)结果再次运行程序，发现什么内容也取不到了。我百思不得其解，又将其修改为如下规则：([.|\n]*) 以及 ([阅读全文

posted @ 2012-01-04 21:11 jxgxy 阅读(16) 评论(0) 编辑

2011年12月26日

Android之下Menu的创建方式和事件响应

摘要: public boolean onCreateOptionsMenu(Menu menu) { menu.add(0,0,0,"帮助"); menu.add(0,1,1,"退出"); return super.onCreateOptionsMenu(menu);}//创建菜单public boolean onOptionsItemSelected(MenuItem item) { if(item.getItemId()==0) { Toast.makeText(this,"帮助信息",Toast.LENGTH_LONG).show()阅读全文

posted @ 2011-12-26 17:25 jxgxy 阅读(29) 评论(0) 编辑

2011年12月6日

在Ubuntu上下载、编译和安装Android最新源代码

摘要: http://blog.csdn.net/luoshengyang/article/details/6559955阅读全文

posted @ 2011-12-06 13:20 jxgxy 阅读(18) 评论(0) 编辑

2011年11月22日

Delphi中使用IXMLHTTPRequest如何用POST方式提交带参

摘要: http://blog.sina.com.cn/s/blog_51a71c010100gbua.html说明：服务器端为JAVA，编码UTF-8，返回数据编码UTF-8；数据交换格式JSON。procedure TloginForm.loginBtnClick(Sender: TObject);varjo: ISuperObject; //JSON接口req: IXMLHTTPRequest;url: WideString; //要访问的urlparams : string; //要提交的数据begin//要访问的urlurl := 'http://localhost/wuliu/se阅读全文

posted @ 2011-11-22 22:50 jxgxy 阅读(55) 评论(0) 编辑

2011年10月26日

判断WebBrowser是否加载完成.

摘要: FirstpDisp:IDispatch;//全局变量；ChkOpen,ChkOk:Boolean;//全局变量；FirstpDisp:=nil;//浏览URL之前赋nil；procedureTForm1.FormCreate(Sender:TObject);beginChkOpen:=true;ChkOk:=false;end;procedureTForm1.WebBrowser1BeforeNavigate2(Sender:TObject;constpDisp:IDispatch;varURL,Flags,TargetFrameName,PostData,Headers:OleVarian阅读全文

posted @ 2011-10-26 11:41 jxgxy 阅读(49) 评论(0) 编辑

2011年10月10日

idHTTP使用代理IP

摘要: procedure TForm1.btn1Click(Sender: TObject);var Http:TIdHTTP;begin Http := TIdHTTP.Create(nil); Http.ProxyParams.ProxyServer := '91.211.141.249'; //代理IP Http.ProxyParams.ProxyPort := 8080; Http.ProxyParams.ProxyUsername := ''; Http.ProxyParams.ProxyPassword := ''; //百度和GG屏蔽了i阅读全文

posted @ 2011-10-10 11:05 jxgxy 阅读(46) 评论(0) 编辑

2011年9月28日

IdHTTP处理HTTP 302遇到的问题

摘要: 当IdHTTP发送一个POST/GET请求到一个URL，返回的是HTTP 302跳转信息时将会抛出异常，这时只要将HandleRedirects设置为ture即可自动跳转。在自动跳转后如果继续抛出异常EIDConnClosedGracefully，可将HTTPOptions设置为[hoInProcessAuth,hoKeepOrigProtocol,hoForceEncodeParams]即可以避免抛出EIDConnClosedGracefully。阅读全文

posted @ 2011-09-28 14:01 jxgxy 阅读(92) 评论(0) 编辑

2011年9月5日

映射网络盘。

摘要: procedureTForm1.btn1Click(Sender:TObject);varnetStore:TNetResource;beginnetStore.dwType:=RESOURCETYPE_ANY;netStore.lpLocalName:='Z:';netStore.lpRemoteName:='\\10.1.14.144\人力';netStore.lpProvider:='';WNetAddConnection2(netStore,PChar('gdpr'),PChar('administrator阅读全文

posted @ 2011-09-05 15:20 jxgxy 阅读(25) 评论(0) 编辑

2011年8月17日

vs2010 安装记

摘要: 下载了msdn vs2010u版，win7用虚拟光驱加载，安装，一直失败，连续N次都不行，后google后在microsoft官方网站找到解决办法：说不要用虚拟光驱加载安装，有时会造成访问冲突，解压或刻成光盘再装就行，于是试之，果然OK.阅读全文

posted @ 2011-08-17 10:35 jxgxy 阅读(31) 评论(0) 编辑

2011年8月12日

delphi 自带的字符串分割函数

摘要: 以前一直是自已写函数处理，没想到Delphi有一个自带的。ExtractStrings：用指定的分割符分割一个字符串为多个子字符串给你一个例子var S: string; SL: TStringList;begin S := '123,456,789 '; SL := TStringList.Create; ExtractStrings([ ', '], [], PChar(S), SL); ShowMessage(SL.Text); SL.Free;end;阅读全文

posted @ 2011-08-12 11:08 jxgxy 阅读(37) 评论(0) 编辑

2011年7月29日

使用全局热键显示隐藏窗体

摘要: unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs;typeTForm1=class(TForm)procedureFormCreate(Sender:TObject);procedureWMHotKey(varMsg:TWMHotKey);messageWM_HOTKEY;private{Privatedeclarations}public{Publicdeclarations}end;varForm1:TForm1;HotKeyId:Cardina阅读全文

posted @ 2011-07-29 15:29 jxgxy 阅读(32) 评论(0) 编辑

2011年7月25日

Delphi下遍历文件夹下所有文件的递归算法

摘要: {-------------------------------------------------------------------------------过程名: MakeFileList 遍历文件夹及子文件夹参数: Path,FileExt:string 1.需要遍历的目录 2.要遍历的文件扩展名返回值: TStringListUSE StrUtils Eg：ListBox1.Items:= MakeFileList( 'E:\极品飞车','.exe') ; ListBox1.Items:= MakeFileList( 'E:\极品飞车'阅读全文

posted @ 2011-07-25 22:11 jxgxy 阅读(73) 评论(0) 编辑

2011年7月6日

passcal try嵌套

摘要: 一般这样嵌套：trytry//...finally//...end;except//...end;阅读全文

posted @ 2011-07-06 11:06 jxgxy 阅读(25) 评论(0) 编辑

2011年7月5日

[最新]Visual Assist X 破解版下载(10.6.1850)

    只有注册用户登录后才能阅读该文。阅读全文

posted @ 2011-07-05 22:52 jxgxy 阅读(130) 评论(1) 编辑

2011年7月3日

passcal 多线程例子，线程管理，创建，暂停，中止，等待等。。。

摘要: /Files/jxgxy/KillThreadTest.rar阅读全文

posted @ 2011-07-03 01:42 jxgxy 阅读(44) 评论(0) 编辑

2011年6月29日

Passcal 动态链接库

摘要: /Files/jxgxy/009.pdf阅读全文

posted @ 2011-06-29 14:21 jxgxy 阅读(24) 评论(0) 编辑

2011年6月28日

xp 盗版变正版 vbs

摘要: ONERRORRESUMENEXTDimVOL_PROD_KEYifWscript.arguments.count<1thenVOL_PROD_KEY=InputBox("辰日东起http://blog.sina.com.cn/livxv"&vbCr&vbCr&"本程序将自动替换你当前Windows的序列号,通过微软验证完全正版。"&vbCr&vbCr&"序列号(OEM版无效,默认版本为XPVLK)：","WindowsXP序列号自动更换器","MRX阅读全文

posted @ 2011-06-28 18:40 jxgxy 阅读(29) 评论(0) 编辑

2011年6月24日

如何使用系统级热键捕捉当前窗口保存为 png 图片

摘要: unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;typeTForm1=class(TForm)procedureFormCreate(Sender:TObject);procedureFormDestroy(Sender:TObject);privateprocedureWMHotKey(varMsg:TWMHotKey);messageWM_HOTKEY;publicend;varForm1:TForm1;implementat阅读全文

posted @ 2011-06-24 15:23 jxgxy 阅读(26) 评论(0) 编辑

2011年6月23日

什么是Thread Safe线程安全

摘要: Thread-safety(线程安全)是指代码被多个线程同时执行的时候仍然正常工作。尤其是要满足当多个线程都需要访问同一共享数据空间的时候，只有一个线程能被满足。多线程执行的时候是处在一个共享地址空间，每个线程都可以访问其他线程的内存空间。为了使程序符合预定的执行的逻辑顺序，提出了线程安全的概念，符合线程安全标准的代码可以更好地得到控制、预测，不至于陷入后期Bug调试而无从下手的尴尬境地。在实际中要判定一段代码是线程安全的会比较困难，而往往采用相反的策略：如何会导致线程不安全？下面列出了常见的一部分。访问了全局变量或使用了堆（尤其没有自动回收的时候）。分配／释放全局限制的资源，比如文件，子进程阅读全文

posted @ 2011-06-23 16:23 jxgxy 阅读(37) 评论(0) 编辑

2011年6月22日

passcal 编写多线程程序

摘要: /Files/jxgxy/011.pdf阅读全文

posted @ 2011-06-22 17:40 jxgxy 阅读(28) 评论(0) 编辑

Passcal 代码标准文档

摘要: /Files/jxgxy/006.pdf阅读全文

posted @ 2011-06-22 17:26 jxgxy 阅读(23) 评论(0) 编辑

用一个 Byte 数表示 8 个复选框的选择状态

摘要: unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,CheckLst;typeTForm1=class(TForm)CheckListBox1:TCheckListBox;Button1:TButton;Edit1:TEdit;procedureFormCreate(Sender:TObject);procedureButton1Click(Sender:TObject);procedureCheckListBox1Click(Sen阅读全文

posted @ 2011-06-22 14:51 jxgxy 阅读(24) 评论(0) 编辑

2011年6月21日

Memo 中 使用 FindDialog

摘要: procedureTForm1.Button1Click(Sender:TObject);beginfinddialog1.Execute;end;procedureTForm1.FindDialog1Find(Sender:TObject);varI,J,PosReturn,SkipChars:Integer;beginforI:=0toMemo1.Lines.CountdobeginPosReturn:=Pos(FindDialog1.FindText,Memo1.Lines[I]);ifPosReturn<>0then{found!}beginSkipChars:=0;for阅读全文

posted @ 2011-06-21 16:18 jxgxy 阅读(20) 评论(0) 编辑

Delphi的TRegistry注册表类方法详解

摘要: Delphi的TRegistry注册表类方法详解 收藏●GetDataInfo方法Function GetDataInfo(const ValueName:String;Var Value:TRegDataInfo):Boolean;TregDataType=(rdunknown,rdstring,rdexpandstring,rdexpandstring,rdinterger,rdbinary);TregDataInfo=record Regdata:TRegDataType;数据类型 dataSize:integer;数据大小endvaluename:和当前键关联的数据值名称value：.阅读全文

posted @ 2011-06-21 11:52 jxgxy 阅读(21) 评论(0) 编辑

synchronize

摘要: 1。synchronize方法的产生与vcl的局限性有关,因为vcl控件在同一时刻只能被单线程访问，如果多个线程同时访问vcl,vcl会出现问题。所以问了安全地访问vcl,Tthread类提供了一个方法叫synchronize，他可以让线程中的方法在主线程中执行，所以我们可以把访问vcl的代码都放在这个方法中，然后由主线程执行，从而确保vcl能被安全地访问调用.它的类型是TThreadMethod=procedure of object;procedure 参数:Sychronize(Method:TThreadMethod); 2。当创建一个线程时，vcl会在主线程中创建一个隐含的线程窗口，阅读全文

posted @ 2011-06-21 11:48 jxgxy 阅读(16) 评论(0) 编辑

临界区对象TCriticalSection(Delphi) 与 TRtlCriticalSection 的区别

摘要: TRtlCriticalSection 是一个结构体，在windows单元中定义；是InitializeCriticalSection，EnterCriticalSection，LeaveCriticalSection等这几个kernel32.dll中的临界区操作API的参数；TCriticalSection是在SyncObjs单元中实现的类，它对上面的那些临界区操作API函数进行了了封装，简化并方便了在Delphi的使用；如TCriticalSection.Enter;就是调用了EnterCriticalSection这个API函数。多线程程序中，如果各个线程要访问同一个资源，如同一个变量这阅读全文

posted @ 2011-06-21 10:41 jxgxy 阅读(50) 评论(0) 编辑

2011年6月20日

线程安全队列 采用双list实现

摘要: unit uQueueEx;interface uses windows,SysUtils,Classes, uCriticalSection;type{线程安全队列} TQueueEx = class private m_bEventNotify:boolean; m_nExchangeCount:longint; m_nNextGetPoint:Longint; m_nNextGetCount:Longint; m_nNextPutPoint:Longint; m_csGet: TCriticalSection; m_csPut: TCriticalSection; m_lstGet:TL阅读全文

posted @ 2011-06-20 13:09 jxgxy 阅读(61) 评论(0) 编辑

Delphi 线程安全单例

摘要: 在C++中写了一个多线程环境下写日志的插件,考虑到以前写Delphi代码时对文件的操作类封装时老是欠缺线程安全方面的考虑，所以总结了一下，写了一个线程安全的单例。可能有欠缺之处请各位朋友多多指教。首先自己封了一个多线程的临界操作类，用来管理多线程的临界区，方法很简单只是单独对WINDOWS API的封装，实现单元如下：(********************************************************************@file: CriticalSectionU.pas*@desc: 多线程操作时，对临界区的封装*@author: daihw*@date:阅读全文

posted @ 2011-06-20 12:49 jxgxy 阅读(26) 评论(0) 编辑

2011年6月17日

把字节数显示成kb或gb的函数

摘要: functionFormatByteSize(constbytes:Longint):string;constB=1;//byteKB=1024*B;//kilobyteMB=1024*KB;//megabyteGB=1024*MB;//gigabytebeginifbytes>GBthenresult:=FormatFloat('#.##GB',bytes/GB)elseifbytes>MBthenresult:=FormatFloat('#.##MB',bytes/MB)elseifbytes>KBthenresult:=FormatFlo阅读全文

posted @ 2011-06-17 22:38 jxgxy 阅读(33) 评论(0) 编辑

命令tree的简单妙用.

摘要: 昨天在ourdev上下了个软件工程代码，里面有个工程文件的结构图,类似下图:E:\debug>tree /f卷 WORK 的文件夹 PATH 列表卷序列号码为 000007BC E4BD:002BE:.│ 效果_1.png│ 效果_2.png│ 效果_1.jpg│ 效果_2.jpg│ 使用手册V1_0.pdf│├─source│ Main.h│ Display.c│ DotLib.c│ SPI.h│ SPI.c│ Display.h│ Dotlib.h│ TWI.h│ PCF8563.c│ PCF8563.h│ TWI.c│ Includes.h│ Main.c│└─protues LC阅读全文

posted @ 2011-06-17 14:14 jxgxy 阅读(21) 评论(0) 编辑

仅列出标题  下一页