摘要： 1.创建一个窗体(TfrmSplash)，放入一个TImageBox,加载一幅图片，调整好TImageBox与图片的大小，然后在其上放入一个TLabel,name=LblStatus,用于显示加载进度文字。然后将TfrmSplash设置为不自动创建。2.加入如下代码（代码很简单，就不用解释太多）un... 阅读全文

摘要： 目中需要对波斯历的支持，在网上搜索了半天没有发现有javascript实现的函数。不过收获还是有的，做SourceForge.net里面找到了个Java实现，经改造后用javascript进行了封装。声明：算法的著作权属于原作者（Ghasem Kiani <ghasemkiani@yahoo.com>）！有需要的朋友可以向我要Java源代码，也可以到http://www.sourceforge.net/去下载。现提供javascript对日历转换的封装实现。Calendar.js波斯历转公历方法名称为：persianToGregorian(datetimeValue)公历转波斯历方 阅读全文

摘要： ExtractFileName(const FileName: string);举个例子：ExtractFileName(Application.ExeName);//得到当前文件名。其它相关函数还有ExtractFilePath //路径ExtractFileExt //扩展名ExtractFileDrive //盘符 //获取文件名不带后缀ChangeFileExt(TIdAttachment(Msg.MessageParts.Items[intIndex]).Filename,''); 阅读全文

摘要： //选择文件夹function SelectFolderDialog(const Handle: integer; const Caption: string; const InitFolder: WideString; var SelectedFolder: string): boolean;var BInfo: _browseinfo; Buffer: array[0..MAX_PATH] of Char; ID: IShellFolder; Eaten, Attribute: Cardinal; ItemID: PItemidlist;begin Result := False; BIn 阅读全文

摘要： unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls,jpeg;typeTForm1 = class(TForm)Button1: TButton;Memo1: TMemo;procedure Button1Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;imp 阅读全文

摘要： 两种方法,一是用ADO连接,问题是Excel文件内容要规则,二是用OLE打开,但操作就没有象操作数据库那么方便了.一、用ADO连接：设置属性ConnetionString 选择 Microsoft Jet 4.0 OLE DB provider Select or enter a datasorce name -> 选择你要打开Excel文件 User name默认是Admin 密码默认为空,可以不用理会 Extended properties 设为：Excel 8.0 sql语句 select * from [yourtablename] (注意要有[]) 二、用OLE打开（以下是一个 阅读全文

摘要： 前几天问过这个问题，很多朋友给了我回答。本以为解决了。但现在新问题又来了。 代码如下： ... ExcelApp,workbook: Variant; ... ExcelApp:=CreateOleObject( 'Excel.Application '); workbook:=CreateOleObject( 'Excel.sheet '); 上次大家给我的代码是： workbook.close; ExcelApp.quit; workbook:=unassigned; excelapp:=unassigned; 这些代码放在窗口的onclose方法里没问题， 阅读全文

摘要： //邮件发送typeTEmailState = (esBegin,esSending,esEnd,esFaild);EMailState = TEmailState;TSendEmail= class private FHost:string;//主机 FUserName:String;//用户名 FEmail: TStringList;//收件人邮箱列表 FEmailMsg: string; //邮件正文 FSenderEmail: string;//发送人 FSubject: string;//主题 FiPort: Integer;//端口 ... 阅读全文

摘要： function sendarp(ipaddr:ulong;temp:dword;ulmacaddr:pointer;ulmacaddrleng:pointer) : Dword; StdCall; External 'Iphlpapi.dll' Name 'SendARP';function GetMACByIP(const Ip:string):string;var MyIp:ulong; MyMac:array[0..5] of byte; MyMacLength:ulong; ErrCode:integer;begin Myip:=inet_addr(P 阅读全文

摘要： 一直很烦恼delphi附带的socket控件都不能满足我的设计逻辑需要，无奈只好自己动手封装了API，并且得到实践的证明（至少有两个服务器能稳定运行至今），本socket组件的多线程机制是安全的稳定的。 在服务器端，创建线程池，对于每个客户连接对应一个独立的线程类，可以在线程内处理客户数据，并可以线程间采用同步机制交换数据，为通讯服务器的建立提供了技术实现的基础。 U版本的经过了缺陷优化，虽然仅是经过了测试也还没有得到实践运行，但从以往成熟的结构演变而来的，问题应该不大！附socket组件及相关单元源码：{*******************************************. 阅读全文