上一页 1 2 3 4 5 6 7 ··· 16 下一页
摘要: 1.创建一个窗体(TfrmSplash),放入一个TImageBox,加载一幅图片,调整好TImageBox与图片的大小,然后在其上放入一个TLabel,name=LblStatus,用于显示加载进度文字。然后将TfrmSplash设置为不自动创建。2.加入如下代码(代码很简单,就不用解释太多)un... 阅读全文
posted @ 2012-10-09 10:59 马儿快跑 阅读(2808) 评论(0) 推荐(1) 编辑
摘要: 目中需要对波斯历的支持,在网上搜索了半天没有发现有javascript实现的函数。不过收获还是有的,做SourceForge.net里面找到了个Java实现,经改造后用javascript进行了封装。声明:算法的著作权属于原作者(Ghasem Kiani <ghasemkiani@yahoo.com>)!有需要的朋友可以向我要Java源代码,也可以到http://www.sourceforge.net/去下载。现提供javascript对日历转换的封装实现。Calendar.js波斯历转公历方法名称为:persianToGregorian(datetimeValue)公历转波斯历方 阅读全文
posted @ 2012-10-08 09:25 马儿快跑 阅读(3647) 评论(0) 推荐(0) 编辑
摘要: ExtractFileName(const FileName: string);举个例子:ExtractFileName(Application.ExeName);//得到当前文件名。其它相关函数还有ExtractFilePath //路径ExtractFileExt //扩展名ExtractFileDrive //盘符 //获取文件名不带后缀ChangeFileExt(TIdAttachment(Msg.MessageParts.Items[intIndex]).Filename,''); 阅读全文
posted @ 2012-10-06 16:57 马儿快跑 阅读(2370) 评论(0) 推荐(0) 编辑
摘要: //选择文件夹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 阅读全文
posted @ 2012-10-06 16:29 马儿快跑 阅读(2808) 评论(0) 推荐(0) 编辑
摘要: 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 阅读全文
posted @ 2012-09-27 17:20 马儿快跑 阅读(456) 评论(0) 推荐(0) 编辑
摘要: 两种方法,一是用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打开(以下是一个 阅读全文
posted @ 2012-09-27 16:25 马儿快跑 阅读(19349) 评论(1) 推荐(0) 编辑
摘要: 前几天问过这个问题,很多朋友给了我回答。本以为解决了。但现在新问题又来了。 代码如下: ... ExcelApp,workbook: Variant; ... ExcelApp:=CreateOleObject( 'Excel.Application '); workbook:=CreateOleObject( 'Excel.sheet '); 上次大家给我的代码是: workbook.close; ExcelApp.quit; workbook:=unassigned; excelapp:=unassigned; 这些代码放在窗口的onclose方法里没问题, 阅读全文
posted @ 2012-09-27 16:08 马儿快跑 阅读(4318) 评论(0) 推荐(0) 编辑
摘要: //邮件发送typeTEmailState = (esBegin,esSending,esEnd,esFaild);EMailState = TEmailState;TSendEmail= class private FHost:string;//主机 FUserName:String;//用户名 FEmail: TStringList;//收件人邮箱列表 FEmailMsg: string; //邮件正文 FSenderEmail: string;//发送人 FSubject: string;//主题 FiPort: Integer;//端口 ... 阅读全文
posted @ 2012-09-23 16:23 马儿快跑 阅读(3352) 评论(0) 推荐(0) 编辑
摘要: 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 阅读全文
posted @ 2012-09-20 14:49 马儿快跑 阅读(910) 评论(0) 推荐(0) 编辑
摘要: 一直很烦恼delphi附带的socket控件都不能满足我的设计逻辑需要,无奈只好自己动手封装了API,并且得到实践的证明(至少有两个服务器能稳定运行至今),本socket组件的多线程机制是安全的稳定的。 在服务器端,创建线程池,对于每个客户连接对应一个独立的线程类,可以在线程内处理客户数据,并可以线程间采用同步机制交换数据,为通讯服务器的建立提供了技术实现的基础。 U版本的经过了缺陷优化,虽然仅是经过了测试也还没有得到实践运行,但从以往成熟的结构演变而来的,问题应该不大!附socket组件及相关单元源码:{*******************************************. 阅读全文
posted @ 2012-09-20 14:07 马儿快跑 阅读(2650) 评论(0) 推荐(0) 编辑
上一页 1 2 3 4 5 6 7 ··· 16 下一页