gj333的专栏

原创 TCP多IP选择出口设置

if (LocalIPAddress '0.0.0.0') then  begin    SockAdd_In.sin_family := PF_INET;    SockAdd_In.sin_port := 0;    SockAdd_In.sin_addr.S_addr := Inet_Addr(Pchar(LocalIPAddress));    bind(Result

原创 ListBox1 设置不同的行色

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type  TForm1 = class(TForm)    ListBox1: TListBox;

原创 Delphi WM_COPYDATA 消息发送文本。

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;   const WM_MyMessage = WM_USER + 2000;type  TForm1 = clas

原创 程序路径相同，只能运行一个进程（重复运行激活界面）

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs,md5, StdCtrls ;type  TSanSvcFrm = class(TForm)    chk1: TCheckBo

原创 idhttp访问gzip

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,  IdTCPClient,

转载 IdTcpServer 部分总结 (用户掉线的检测方法，控制用户量等）

用户掉线的检测方法如果客户端异常掉线或拔掉网线，那么在服务端会留下一个TCP连接，这个连接会变成死连接。出现的死TCP连接过多，服务器内存和端口将会增加，直到占满服务器的端口和耗尽内存为止。如果这样的话，服务器无法健壮稳定的运行。使用TCP协议自带的心跳包功能解决这个问题。 TCP keep-alive原理一个TCP keep-alive 包是一

转载 Windows 7 + Visual 2010 + WDK 7600.16385.1 配置方法

1. 新建一个空DLL项目2. 增加一个主程序文件，如 entry.c3. 找到配置管理器，添加一个新的配置叫做 Driver Debug（以后还可以再设置一个Driver Release），如图4. 在属性管理器上找到 Driver Debug，右键菜单中找到“属性”，开始配置5. 在“常规”选项卡中　　5.1 目标文件

转载 Delphi中获取TWebBrowser中鼠标移动到超链接的URL

unit Unit1;interfaceuses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, OleCtrls, SHDocVw, MSHTML, ActiveX, StdCtrls;type   TObjectProcedure

转载 QQProtect驱动调用者签名校验漏洞分析

QQProtect驱动调用者签名校验漏洞分析     上次给大家带来一个“中级”的洞洞。或许大家感到有些失望，当然我也有些失望。由于时间过了快两个月，有些稍高点级别的漏洞可以放出来了。今天给大家带来一个“高级“的漏洞。即便如此，我确信有人还会失望的。因为仍然是”灰盒“的方法，而且是非内存破坏类型的。大牛们就飘过吧。        漏洞提交时候的原始资料如下（环境搭建，操作步骤的信息

转载 Delphi中WebBrowser控件的3个bug及解决方案

1、如果打开的页面中，有通过javascript关闭页面的，只会把控件关闭，包含控件的窗口仍然存在，并且手工关闭窗口时，出现问题；　　2、打开的页面，通过鼠标选定的内容，不能复制，无论是通过右键菜单复制，还是通过Ctrl+C快捷键复制，都不可以；　　3、打开有WebBrowser控件的窗口，关闭窗口之后，内存得不到释放（此Bug在其他语言中也存在）。　　以上三个问题，是必须解决的。

转载 实现窗体自适应调整尺寸以适应不同屏幕分辩率的显示问题

unit uMyClassHelpers;//实现窗体自适应调整尺寸以适应不同屏幕分辩率的显示问题。//        陈小斌，2012年3月5日interfaceUses  SysUtils,Windows,Classes,Graphics, Controls,Forms,Dialogs, Math,typinfo;//  uMySysUtils;

原创 自动跳转投票专用

原创 PHP 投票

$ip_long = array(            array('607649792', '608174079'), //36.56.0.0-36.63.255.255            array('1038614528', '1039007743'), //61.232.0.0-61.237.255.255            array('1783627776', '