摘要: urlmon.dll中有一个用于下载的API,MSDN中的定义如下:HRESULT URLDownloadToFile( LPUNKNOWN pCaller, LPCTSTR szURL, LPCTSTR szFileName, DWORD dwReserved, LPBINDSTATUSCALLBACK lpfnCB);Delphi的UrlMon.pas中有它的Pascal声明:function URLDownloadToFile( pCaller: IUnKnown, szURL: PAnsiChar, szFileName: PAnsiChar, dwReserved: DWORD, l 阅读全文
posted @ 2011-06-21 14:26 九月的海 阅读(4953) 评论(3) 推荐(0) 编辑
摘要: DELPHI中EXCEL组件的使用方法:一) 使用动态创建的方法首先创建 Excel 对象,使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( 'Excel.Application' );1) 显示当前窗口:ExcelApp.Visible := True;2) 更改 Excel 标题栏:ExcelApp.Caption := '应用程序调用 Microsoft Excel';3) 添加新工作簿:ExcelApp.WorkBooks.Add;4) 打开已存在的工作簿:ExcelApp.WorkB 阅读全文
posted @ 2011-06-21 09:06 九月的海 阅读(5079) 评论(1) 推荐(2) 编辑
摘要: // 获取Windows目录function GetWindowsPath: String;var S:PChar;begin GetMem(S, MAX_PATH); GetWindowsDirectory(S,MAX_PATH); Result := S; FreeMem(S);end; 阅读全文
posted @ 2011-06-16 10:24 九月的海 阅读(299) 评论(0) 推荐(1) 编辑
摘要: http://topic.csdn.net/u/20090907/16/906a6c38-3a60-45be-980b-3f1ba1a26911.html本人做了一阵子Mobile开发,总结了一些经验,现跟大家分享。1、.NET Compact Framework(简称.NET CF)与.NET Framework(简称.NET)的区别:.NET CF是裁剪过后的.NET,也就是很多的内容都简化了。可想而知吧,WinCE的空间本来就比较小,所以如果跑个.NET肯定是有很多的不便之处,而且WinCE的系统又是从Win95进化而来的,毕竟跟现在的NT系统不同,所以.NET CF只是继承了.NET的 阅读全文
posted @ 2011-06-08 16:12 九月的海 阅读(862) 评论(0) 推荐(0) 编辑
摘要: Window Server 2003 系统默认是下面这个选项,所以会造成很多程序运行时出现问题(无法运行,或运行是通讯的时候出现错误),所以就需要添加例外的程序了。 阅读全文
posted @ 2011-06-03 15:49 九月的海 阅读(227) 评论(0) 推荐(0) 编辑
摘要: How to store records to stream and retrieve them later------------------------------------------------------{ Stores a record to stream. Record can later be retrieved with RecordFromStream procedure } Procedure RecordToStream(DSet : tdataSet;{ Datset in question } Stream : TStream; { Stream to store 阅读全文
posted @ 2011-05-10 21:27 九月的海 阅读(208) 评论(0) 推荐(0) 编辑
摘要: public sealed class Singleton{ Singleton() { } public static Singleton Instance { get { return Nested.instance; } } class Nested { static Nested() { } internal static readonly Singleton instance = new Singleton(); }}这是C#单例模式中“延迟初始化”的代码,延迟初始化就是在用到的时候才加载对象实例化,这里也可以声明为静态对象,比如:public sealed class Single 阅读全文
posted @ 2011-05-07 16:27 九月的海 阅读(211) 评论(0) 推荐(0) 编辑
摘要: function ComPressFile(dstFile,srcFile:string):Boolean;var vclzip:TVCLZip;begin Result:=False; vclzip:=TVCLZip.create(nil); try with vclzip do begin try ZipName:=dstFile; RecreateDirs:=true; //注意这里 StorePaths:=False; FilesList.Add(srcFile); Recurse := True; Zip; Result:=True; except Application.Messa 阅读全文
posted @ 2011-05-03 10:05 九月的海 阅读(680) 评论(0) 推荐(0) 编辑
摘要: http://book.51cto.com/art/200910/158498.htmC#允许属性像字段那样使用,只是不允许将它们作为ref或out参数值来传递。ref和out参数值在内部实现时,需要将内存地址传给目标方法。但是,由于属性可能是没有支持字段的虚字段,也有可能是只读/只写的,因此不可能传递其基础存储的地址。所以,你不能将属性作为ref或out参数值来传递。同样的道理也适用于方法调用。如果需要将一个属性或者方法调用作为ref或out参数值来传递,首先必须将值复制到一个变量中,然后传递该变量。方法调用结束之后,再将变量的值赋回属性。 阅读全文
posted @ 2011-03-23 14:16 九月的海 阅读(347) 评论(0) 推荐(0) 编辑
摘要: (一)MIDAS是什么?Delphi中MIDAS到底是什么呢?和他相关组件是什么呢?MIDAS(Multitiered Distributed Application Services)多层分布式应用服务。 Delphi所提出的Multi-Tier结构是把原来的Two-Tier前台应用程序内的dbExpress,ADO,BDE,SQL Link,DataMoule,拿到另外一台NT服务器(就是所谓的应用程序服务器),而前台程序只剩下一个可执行文件及MIDAS.DLL,而移到NT服务器上的DataMoule则变成一个COM程序(Remote DataModule). 注:前台一定要把MIDAS. 阅读全文
posted @ 2011-03-23 00:34 九月的海 阅读(796) 评论(0) 推荐(0) 编辑