gdclx的专栏

PPT放映要控制时间。 网上找了n个计时程序都觉得不满意，于是自己用delphi编写了一个计时小程序，绿色软件，不用安装，不用注册，不用Framework。 可以设置窗口位置、计时时长、第一次报警时间、提前预警时间、超时提醒等，希望你喜欢。

JAX-WS2.1.2.rar，包括：activation.jar、FastInfoset.jar、http.jar、jaxb-api.jar、jaxb-impl.jar、jaxb-xjc.jar、jaxws-api.jar、jaxws-rt.jar、jaxws-tools.jar、jsr173_api.jar、jsr181-api.jar、jsr250-api.jar、resolver.jar、saaj-api.jar、saaj-impl.jar、sjsxp.jar、stax-ex.jar、streambuffer.jar

JSF+Hibernate开发WEB应用比用SSH开发WEB，更简单，更易上手。本源码通过用户登录的实例，展示了采用JSF和HIBERNATE技术，搭建WEB应用系统的方法。数据库采用SQL2008，实例包含了创建user的SQL脚本。

把计算机当成手机，用电脑接收、发送手机短信，拨打、接听电话，来电管理，短信管理，客户管理。

控件是标准的ActiveX控件，适用于Windows平台下的所有开发编程工具，例如Delphi、VB、C#、C++、Java、PB等。控件封装了标准AT指令、手机与计算机的通信内容，提供了发送短信、接收短信、拨打电话、接听电话等函数和事件，非常方便二次开发。 控件需要的硬件设备是高深商公司研发的“手机盒”（见下面的名词解析）或能与计算机连接的手机（要求手机通过COM口通信）。 名词解析： 超长短信 --- 当短信超过68个字时，就是超长短信。手机自动把超长短信分成几条短信发送，接收时也分多条短信形式存储在SIM卡中，在读短信时，临时组装成超长短信。 手机盒 --- 与计算机连接的设备，插入SIM卡才能使用。该设备尺寸为100mm×58mm×24.5mm（长×宽×高，其中天线21mm），有一个标准的USB接口，通过标准的USB连接线，连接计算机。该设备不用电池，启动计算机后，就会自动开启。利用此设备，可以把计算机当成手机使用，在电脑上收发短信，拨打电话。一台计算机可以连接多个设备，并通过参数devid区分不同的手机盒。有关手机盒的更多详细信息，请拨打电话020-38259081咨询。 主要属性： BaudRate --- 与计算机连接的波特率，最好不要人工设置，而是采用设置函数SetupPort自动查找。 Port --- 与计算机连接的端口，同上不要人工设置。 JDConnected --- 与计算机是否已连接，即是否已经打开端口。 QueryATSeconds --- 当执行AT查询指令时，最长等待反应时间，默认2秒。 ReadLongSmsSeconds --- 读超长短信时，最长的延时时间，默认30秒。 ReadSmsSeconds --- 读普通短信时，最长的延时时间，默认5秒。 ReadLongSmsWay --- 读短信函数ReadSms的工作方式（针对超长短信），有0、1、2数值可选择： 0 一般用于收到短信事件OnSms中；在读超长短信时，只有当id为最后一条短信id，才完整地读超长短信； 1 常用的读短信方式；当遇到超长短信时，首先计算此超长短信第一条id，按顺序读，当不成功时，读所有短信； 2 只要是超长短信，首先把SIM卡内的所有短信都读出来，拼接成此条超长短信； 建议在OnSms事件中调用ReadSms时，ReadLongSmsWay设为0，其它时候设为1。 ReturnCompleteLongSms --- 默认False；如果设为True，ReadSms读短信，当遇到超长短信时，只有当超长短信读完整，才返回短信内容，读超长短信异常，例如超长短信还没有完整接收时，就执行ReadSms，导致超长短信不能读完整，则ReadSms返回0。 ShowRxChar --- 默认False；如果设为True，显示手机盒与计算机通讯的内容，方便调试。 ShowTip --- 默认True，表示当执行ReadSMS、ReadAllSms、QueryAT等函数时，提示手机盒正在与计算机通讯。 ExecJDSmsEvent --- 默认True，表示收到短信时自动执行OnJDSms事件；当为False时，不触发OnJDSms，即不执行OnJDSms。 主要事件： OnAfterOpen ---- 打开连接端口时触发。 OnAfterClose ---- 关闭连接端口时触发。 OnRing --- 当有电话呼入时，手机响铃，触发此事件；有2个传递参数值： no为来电号码； devid是手机盒连接标识号，整数，其值为0，1，2... OnEndRing --- 对方挂断手机，响铃结束，触发此事件；有1个传递参数值： devid是手机盒标识号，其值为0，1，2... OnJDSms --- 手机盒接收到短信，并完整读取短信时，触发此事件；事件在ExecJDSmsEvent=True时有效；有5个传递参数值： id为短信标识号，可根据此id删除SIM卡内的短信； no为发送短信号码； t为接收短信时间； s为短信内容； devid是手机盒标识号。 OnSms --- 手机盒接收到短信时，触发此事件；有2个传递参数值： id为短信标识号，可根据id值读短信； devid是手机盒连接序号； 与OnJDSms事件的不同点： OnSms不读短信，只要接收到短信，就触发此事件； OnJDSms在接收到短信时，马上读取短信，并判断短信是完整的，才触发此事件； 推荐使用OnJDSms。 主要函数： SetupPort --- 设置手机盒与计算机连接的端口，可以自动查找端口，一般在第一次使用时调用；成功时保存连接参数，并返回True。 Open --- 打开连接，JDConnected设为True。 Close --- 关闭连接，JDConnected设为False。 InitSIM300 --- 对手机盒初始化，一般在第一次使用时调用，返回设置手机盒的参数。 LoadComportParam --- 在程序启动时调用，读取手机盒与计算机的连接参数；这些参数是在 SetupPort时保存的。 GetComportCount --- 返回手机盒与计算机的连接数量。 ReadSms --- 读短信函数，返回短信数量；有5个参数： id 短信标识号，函数按id读短信；当是超长短信时，id返回超长短信的第一条短信id； no 发送短信号码，返回值； t 短信接收时间，返回值； msg 短信内容，返回值； devid 手机盒标识号，表示从哪个手机盒读短信；当只有一个手机盒与计算机连接时，赋0。 ReadAllSms --- 读取所有短信函数，返回短信数量；有2个参数： memo 所有短信内容，返回值； devid 手机盒标识号，表示从哪个手机盒读短信。 SendSms --- 发送短信函数，返回成功发送短信的号码；有3个参数： nos 要发送的手机号码，可群发，号码之间用;或空格分隔； msg 要发送的短信内容； devid 手机盒标识号，表示用哪个手机盒发短信。 DeleteSms --- 删除短信的函数；有2个参数： id 短信标识号，函数按id删除短信； devid 手机盒标识号，表示删除哪个手机盒的短信。 QueryAT --- 向手机盒发送AT指令，返回手机盒响应内容，主要用于测试；有3个参数： cmd --- AT指令； mlines --- 返回内容是否有多行； devid 手机盒标识号，表示向哪个手机盒发AT指令。 SIM300Setup --- 设置手机盒音量等参数，成功返回True；有1个参数： devid 手机盒标识号，表示设置哪个手机盒的参数。 DoDial --- 拨号函数，有2个参数： no 拨出号码； devid 手机盒标识号，表示用哪个手机盒拨号。 DoAnswer --- 接听电话函数，摘机，有1个参数： devid 手机盒标识号，表示接听哪个手机盒电话。 DoHold --- 挂断电话函数，挂机，有1个参数： devid 手机盒标识号，表示挂断哪个手机盒电话。 getCNUM --- 返回本机号码，当为空时，表示未设置本机号码；有1个devid参数。 setThisPhoneNo --- 设置本机号码，成功时返回True；有2个参数： no 要设置的本机号码，当为空时，表示清除本机号码； devid 手机盒标识号。 ShowAboutBox --- 显示OCX控件版本。 开发要点： （1）在程序启动时，调用LoadComportParam函数。 （2）在第一次使用程序时，请调用SetupPort函数，设置与计算机连接的参数；成功设置后，请调用InitSIM300初始化手机盒模块。 （3）程序启动后，请调用Open函数打开连接；如果在程序设计时，JDConnected=True，则此步骤忽略。 （4）调用DoAnswer、DoHold、DoDial函数，实现拨打、接听电话。 （5）在OnRing、OnEndRing事件中编写处理代码，可实现来电显示。 （6）在OnJDSms中编写处理代码，可自动接收短信。 （7）调用SendSms函数，可发送短信。 （8）调用ReadSms、ReadAllSms、DeleteSms函数，可读取、删除SIM卡内的短信。

获取计算机MAC、硬盘ID、操作系统等信息的ActiveX库 示例程序： ClientInfoX JavaScript Sample xo=new ActiveXObject("ClientInfo.HostInfo") ////////////////////////////////////////////////// //函数与方法 ////////////////////////////////////////////////// function AddInfo(sInf) { document.getElementById("mbox").value = "\r" +sInf +document.getElementById("mbox").value; } function GetWindowsVersion() { AddInfo("GetWindowsVersion: "+xo.GetWindowsVersion()); getusername(); } function GetCPU_ID() { AddInfo("GetCPU_ID: "+xo.GetCPU_ID()); } function GetAdapterMac() { AddInfo("GetNET_ID: "+xo.GetAdapterMac(0)); } function GetIdeSerialNumber() { AddInfo("GetIdeSerialNumber: "+xo.GetIdeSerialNumber()); } function ClearmBox() { document.getElementById("mbox").value = ""; } //取得机器名，登录域及登录用户名 function getusername() { var WshNetwork = new ActiveXObject("WScript.Network"); alert("Domain = " + WshNetwork.UserDomain); alert("Computer Name = " + WshNetwork.ComputerName); alert("User Name = " + WshNetwork.UserName); } //取得系统目录 function getprocessnum() { var pnsys=new ActiveXObject("WScript.shell"); pn=pnsys.Environment("PROCESS"); alert(pn("WINDIR")); } //返回系统中特殊目录的路径 function getspecialfolder() { var mygetfolder=new ActiveXObject("WScript.shell"); if(mygetfolder.SpecialFolders("Fonts")!=null) { alert(mygetfolder.SpecialFolders("Fonts")); } } //取得磁盘信息 传入参数如：getdiskinfo('c') function getdiskinfo(para) { var fs=new ActiveXObject("scripting.filesystemobject"); d=fs.GetDrive(para); s="卷标:" + d.VolumnName; s+="------" + "剩余空间:" + d.FreeSpace/1024/1024 + "M"; s+="------" + "磁盘序列号:" + d.serialnumber; alert(s) } //取得系统目录 function getprocessnum() { var pnsys=new ActiveXObject("WScript.shell"); pn=pnsys.Environment("PROCESS"); alert(pn("WINDIR")); } //启动计算器 function runcalc() { var calc=new ActiveXObject("WScript.shell"); calc.Run("calc"); } //读取注册表中的值 function readreg() { var myreadreg=new ActiveXObject("WScript.shell"); try{ alert(myreadreg.RegRead ("HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run\\NeroCheck")); } catch(e) { alert("读取的值不存在！"); } } //写注册表 function writereg() { var mywritereg=new ActiveXObject("WScript.shell"); try{ mywritereg.RegWrite("HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run\\MyTest","c:\\mytest.exe"); alert("写入成功！"); } catch(e) { alert("写入路径不正确！"); } } //删除注册表 function delreg() { var mydelreg=new ActiveXObject("WScript.shell"); if(confirm("是否真的删除？")) { try{ mydelreg.RegDelete("HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run\\MyTest"); alert("删除成功！"); } catch(e) { alert("删除路径不正确"); } } } //取得文件信息 调用方式如：getfileinfo('c:\\test.pdf') function getfileinfo(para) { var myfile=new ActiveXObject("scripting.filesystemobject"); var fi=myfile.GetFile(para); alert("文件类型:"+fi.type+"文件大小:"+fi.size/1024/1024+"M"+"最后一次访问时间:"+fi.DateLastAccessed); } //取得客户端的信息 function clientInfo() { strClientInfo="availHeight= "+window.screen.availHeight+"\n"+ "availWidth= "+window.screen.availWidth+"\n"+ "bufferDepth= "+window.screen.bufferDepth+"\n"+ "colorDepth= "+window.screen.colorDepth+"\n"+ "colorEnable= "+window.navigator.cookieEnabled+"\n"+ "cpuClass= "+window.navigator.cpuClass+"\n"+ "height= "+window.screen.height+"\n"+ "javaEnable= "+window.navigator.javaEnabled()+"\n"+ "platform= "+window.navigator.platform+"\n"+ "systemLanguage= "+window.navigator.systemLanguage+"\n"+ "userLanguage= "+window.navigator.userLanguage+"\n"+ "width= "+window.screen.width; alert(strClientInfo); } ClientInfoX.dll 实例 消息窗口

ActiveX OCX控件，帮助你快速开发电脑来电显示和录音软件；包含使用JavaScript、VBScript实现在网页上自动显示电话来电号码及录音功能的示例。

免费提供VistaBootPRO3.3下载。

当有电话打入时，电脑自动显示来电号码，提取话机，开始自动录音，录音文件以WAV格式保存在电脑，根据来电记录可快速重听通话内容。

本程序监听串口，并把串口输入内容转换为键盘输入。应用于串口的条码扫描器、读卡器等，把读入的内容模拟为键盘输入。

Borland公司的数据库引擎 Borland Database Engine，包含DBE Administrator组件。

本软件是绿色软件，可以在电脑上显示电话的来电号码，并进行管理，使得我们的客户在来电时根据来电号码从资料库中找出相关的信息，显示在电脑上。这就可以在第一时间获知客户的基本信息、业务发生情况，占据业务的主动性、拉近我们与客户之间的距离、提高我们的形象、提高工作效率。

开发来电显示的Delphi控件包： 使用方法： （1） 下载控件包Component.zip （2） 先编译 CPortLib6.dpk ,已安装了CPortLib 控件组的可省略这一步骤 （3） 然后编译 TelePort.dpk ，并安装 （4） 安装完成后，在 kosenTools 控件页增加了一个控件：TeleComport （5） 使用示例请看 Project2.dpr 示例源程序： unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, CPort, TeleComportUnit; type TForm1 = class(TForm) TeleComport1: TTeleComport; Memo1: TMemo; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; procedure Button2Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure TeleComport1Open(Sender: TObject); procedure TeleComport1Close(Sender: TObject); procedure TeleComport1Read(Sender: TObject; s: String; t: TDateTime); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button2Click(Sender: TObject); begin if TeleComport1.SetupPort then Memo1.Lines.Add(\'Port=\'+TeleComport1.Port); //设置来电管理器的连接端口，USB端口的设置为Port:=\"USB\" end; procedure TForm1.Button1Click(Sender: TObject); begin TeleComport1.Open; end; procedure TForm1.Button3Click(Sender: TObject); begin TeleComport1.Close; end; procedure TForm1.TeleComport1Open(Sender: TObject); begin if TeleComport1.JDConnected then begin Memo1.Lines.Add(\'Connected\'); //打开端口时读取来电管理器内缓存的号码 TeleComport1.ReadAllWhenOpen; end; end; procedure TForm1.TeleComport1Close(Sender: TObject); begin if not TeleComport1.JDConnected then Memo1.Lines.Add(\'not Connected\'); end; //有来电时触发此事件 //s为来电号码，t为来电时间 procedure TForm1.TeleComport1Read(Sender: TObject; s: String; t: TDateTime); begin Memo1.Lines.Add(s+F