chrome让google不和谐
摘要：
chrome://net-internals/#hsts，直接访问google.com.hkwebcache.googleusercontent.com我加了二个。 阅读全文
posted @ 2012-03-24 15:06 jxgxy 阅读(312) 评论(0) 推荐(0)
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 阅读(1577) 评论(0) 推荐(0)
过主动防御自启动代码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 阅读(730) 评论(1) 推荐(1)
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 阅读(2156) 评论(0) 推荐(1)
屏蔽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 阅读(655) 评论(0) 推荐(0)
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 阅读(572) 评论(1) 推荐(0)
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 阅读(500) 评论(0) 推荐(0)
关于正则表达式匹配任意字符（包括换行符）的写法
摘要：
今天在Java中想使用正则表达式来获取一段文本中的任意字符。于是很随意得就写出如下匹配规则：(.*)结果运行之后才发现，无法获得换行之后的文本。于是查了一下手册，才发现正则表达式中，“.”(点符号)匹配的是除了换行符“\n”以外的所有字符。同时，手册上还有一句话：要匹配包括 '\n' 在内的任何字符，请使用像 '[.\n]' 的模式。于是我将正则表达式的匹配规则修改如下：([.\n]*)，当然，如果是在java程序中直接写到话，需要改为([.\\n]*)结果再次运行程序，发现什么内容也取不到了。我百思不得其解，又将其修改为如下规则：([.|\n]*) 以及 ([ 阅读全文
posted @ 2012-01-04 21:11 jxgxy 阅读(328) 评论(0) 推荐(0)
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 阅读(262) 评论(0) 推荐(0)
在Ubuntu上下载、编译和安装Android最新源代码
摘要：
http://blog.csdn.net/luoshengyang/article/details/6559955 阅读全文
posted @ 2011-12-06 13:20 jxgxy 阅读(196) 评论(0) 推荐(0)
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 阅读(1433) 评论(0) 推荐(0)
判断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 阅读(381) 评论(0) 推荐(0)
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 阅读(443) 评论(0) 推荐(0)
IdHTTP处理HTTP 302遇到的问题
摘要：
当IdHTTP发送一个POST/GET请求到一个URL，返回的是HTTP 302跳转信息时将会抛出异常，这时只要将HandleRedirects设置为ture即可自动跳转。在自动跳转后如果继续抛出异常EIDConnClosedGracefully，可将HTTPOptions设置为[hoInProcessAuth,hoKeepOrigProtocol,hoForceEncodeParams]即可以避免抛出EIDConnClosedGracefully。 阅读全文
posted @ 2011-09-28 14:01 jxgxy 阅读(1928) 评论(0) 推荐(0)
映射网络盘。
摘要：
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 阅读(332) 评论(0) 推荐(0)
vs2010 安装记
摘要：
下载了msdn vs2010u版，win7用虚拟光驱加载，安装，一直失败，连续N次都不行，后google后在microsoft官方网站找到解决办法：说不要用虚拟光驱加载安装，有时会造成访问冲突，解压或刻成光盘再装就行，于是试之，果然OK. 阅读全文
posted @ 2011-08-17 10:35 jxgxy 阅读(203) 评论(0) 推荐(0)
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 阅读(711) 评论(0) 推荐(0)
使用全局热键显示隐藏窗体
摘要：
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 阅读(331) 评论(0) 推荐(0)
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 阅读(1364) 评论(0) 推荐(0)
passcal try嵌套
摘要：
一般这样嵌套：trytry//...finally//...end;except//...end; 阅读全文
posted @ 2011-07-06 11:06 jxgxy 阅读(249) 评论(0) 推荐(0)
[最新]Visual Assist X 破解版下载(10.6.1850)
只有注册用户登录后才能阅读该文。 阅读全文
posted @ 2011-07-05 22:52 jxgxy 阅读(139) 评论(1) 推荐(1)
passcal 多线程例子，线程管理，创建，暂停，中止，等待等。。。
摘要：
/Files/jxgxy/KillThreadTest.rar 阅读全文
posted @ 2011-07-03 01:42 jxgxy 阅读(307) 评论(0) 推荐(0)
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 阅读(237) 评论(0) 推荐(0)
如何使用系统级热键捕捉当前窗口保存为 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 阅读(295) 评论(0) 推荐(0)
什么是Thread Safe线程安全
摘要：
Thread-safety(线程安全)是指代码被多个线程同时执行的时候仍然正常工作。尤其是要满足当多个线程都需要访问同一共享数据空间的时候，只有一个线程能被满足。多线程执行的时候是处在一个共享地址空间，每个线程都可以访问其他线程的内存空间。为了使程序符合预定的执行的逻辑顺序，提出了线程安全的概念，符合线程安全标准的代码可以更好地得到控制、预测，不至于陷入后期Bug调试而无从下手的尴尬境地。在实际中要判定一段代码是线程安全的会比较困难，而往往采用相反的策略：如何会导致线程不安全？下面列出了常见的一部分。访问了全局变量或使用了堆（尤其没有自动回收的时候）。分配／释放全局限制的资源，比如文件，子进程 阅读全文
posted @ 2011-06-23 16:23 jxgxy 阅读(640) 评论(0) 推荐(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 阅读(375) 评论(0) 推荐(0)
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 阅读(283) 评论(0) 推荐(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 阅读(516) 评论(0) 推荐(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 阅读(414) 评论(0) 推荐(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 阅读(416) 评论(0) 推荐(0)
线程安全队列 采用双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 阅读(599) 评论(0) 推荐(0)
Delphi 线程安全单例
摘要：
在C++中写了一个多线程环境下写日志的插件,考虑到以前写Delphi代码时对文件的操作类封装时老是欠缺线程安全方面的考虑，所以总结了一下，写了一个线程安全的单例。可能有欠缺之处请各位朋友多多指教。首先自己封了一个多线程的临界操作类，用来管理多线程的临界区，方法很简单只是单独对WINDOWS API的封装，实现单元如下：(********************************************************************@file: CriticalSectionU.pas*@desc: 多线程操作时，对临界区的封装*@author: daihw*@date: 阅读全文
posted @ 2011-06-20 12:49 jxgxy 阅读(549) 评论(0) 推荐(0)
把字节数显示成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 阅读(342) 评论(0) 推荐(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 阅读(300) 评论(0) 推荐(0)
Delphi指针大全
摘要：
Delphi 指针大全目 录1 DELPHI 的指针-引用................................................................................. - 1 -2 delphi 的“引用/值”模型 .............................................................................. - 5 -3 谈谈 Delphi 的类型与指针 .............................................................. 阅读全文
posted @ 2011-06-17 11:37 jxgxy 阅读(557) 评论(0) 推荐(0)
内存映射文件
摘要：
内存映射文件内存映射文件的概念：内存映射文件提供了一组独立的函数，使应用程序能够通过内存指针像访问内存一样访问磁盘上的文件。通过内存映射文件函数可以将磁盘上的文件全部或者部分映射到进程的虚拟地址空间的某个位置。一旦完成映射，对磁盘文件的访问就可以像访问内存文件一样便捷。使用内存映射文件的好处：a系统使用内存映射文件，以便加载和执行.exe和DLL文件。这可以大大节省页文件空间和应用程序启动运行所需的时间。b可以使用内存映射文件来访问磁盘上的数据文件。这使你可以不必对文件执行I/O操作，并且可以不必对文件内容进行缓存。c可以使用内存映射文件，使同一台计算机上运行的多个进程能够相互之间共享数据。注 阅读全文
posted @ 2011-06-15 11:27 jxgxy 阅读(552) 评论(0) 推荐(0)
Delphi 2007 一段代码手工折叠
摘要：
{$REGION 'Designer Managed Code'}............{$ENDREGION} 阅读全文
posted @ 2011-06-08 11:03 jxgxy 阅读(1447) 评论(0) 推荐(0)
浙公网安备 33010602011771号