上一页 1 ··· 8 9 10 11 12 13 14 15 16 ··· 30 下一页
摘要: 在DLL中封装了Form时使用了Devexpress控件.在程序运行时,主Exe程序可以显示使用的皮肤。可是,调用DLL中的窗口时无法显示皮肤的样式。还是原始的Windows窗口样式。方法:在dll窗体中加入skincontrol控件,然后uses ..., dxGDIPlusAPI,然后在窗体代码文件的后面加入下列代码initialization dxInitializeGDIPlus;finalization dxFinalizeGDIPlus;这样就OK了 阅读全文
posted @ 2011-09-24 15:33 Max Woods 阅读(1000) 评论(1) 推荐(0) 编辑
摘要: 1 private DataSet LoadFile(string fileName) 2 { 3 DataSet ret = new DataSet(); 4 System.Data.OleDb.OleDbConnection myConnection = new System.Data.OleDb.OleDbConnection(); 5 //You should consider using "HDR=NO", to get numbered ColumnNames in your DataSet. 6 myConnection.Conn... 阅读全文
posted @ 2011-09-24 10:59 Max Woods 阅读(436) 评论(0) 推荐(0) 编辑
摘要: http://sourceforge.net/projects/koogra/ 阅读全文
posted @ 2011-09-24 10:55 Max Woods 阅读(451) 评论(0) 推荐(0) 编辑
摘要: DataSnap 2009的服务器对象的生命周期依赖于DSServerClass组件的设置当DSServer启动时从DSServerClass组件读取LifeCycle属性的值注意:LifeCycle的值由于在启动时就已经读取 启动后再修改LifeCycle的值将没有任何效果LifeCycle属性的值可以是以下三种字符串之一1.Session该选项为默认设置每个连接都会建立一个独立的服务器对象为客户端提供服务,服务器对象在连接关闭后释放因此多个客户端访问的是不同的服务器对象,是线程安全的2.Invocation对于每次服务端方法调用建立一个独立的服务器对象为客户端提供服务,服务器对象在调用结束 阅读全文
posted @ 2011-09-23 23:49 Max Woods 阅读(403) 评论(0) 推荐(0) 编辑
摘要: 在过去客户端要调用远程服务器的方法需要通过在TLB里添加接口并且在服务器对象中实现在DataSnap 2009中调用远程服务器的方法是基于delphi的RTTI机制的想要一个类允许被远程调用需要做以下两点1.把该类和DSServerClass连接在一起procedure TMainForm.DSServerClassGetClass(DSServerClass: TDSServerClass; var PersistentClass: TPersistentClass);begin PersistentClass := TSM;end;DSServerClass的OnGetClass就是用.. 阅读全文
posted @ 2011-09-23 23:48 Max Woods 阅读(339) 评论(0) 推荐(0) 编辑
摘要: Delphi 的MIDAS出来了这么多年终于有改进的版本了COM-FREE的DataSnap 2009真是清爽了很多DataSnap 2009 除了不支持回调和Intercept组件以外 其它的该有的都有了 而且还有很多强大的特性第一篇就先写点DataSnap 2009连接方面可能要用到的东西以后再继续写写关于生命周期的管理 对象池的应用 以及远程管理 远程方法调用等方面的东西吧。首先 建立个DataSnap 2009的服务器工程一共用到三个组件DSServer 服务配置组件 用于绑定其它的组件DSServerClass 可以看作是一个类的工厂 用于导出需要远程调用的服务端模块DSTCPSer 阅读全文
posted @ 2011-09-23 23:47 Max Woods 阅读(349) 评论(0) 推荐(0) 编辑
摘要: DataSnap 2009的客户端采用了原始的TClientSocket组件实现了通讯层 即简单效率也不错但是如果我们想要设置连接超时怎么办?想要设置代理服务器又该怎么办呢?能不能利用我们常用的网络控件(indy ics synapse...)来替代呢?在这里我基于synapse控件实现了一个自己的DataSnap客户端驱动注: synapase是一套比较不错的开源的第三方控件 这里我们要使用它的TCP控件来扩展支持代理服务器的使用 synapse 官方网址 http://www.synapse.ararat.cz/doku.phpsynapse svn地址 https://synali... 阅读全文
posted @ 2011-09-23 23:42 Max Woods 阅读(388) 评论(0) 推荐(0) 编辑
摘要: DataSnap服务器可以通过方法调用向客户端返回数据流,当然,也可以从客户端向服务器上传数据流,都是通过方法调用的方式来实现的。下面以一个简单的例子来演示。服务器端实现:{$METHODINFO ON} TFUService = class(TPersistent) public function ReplaceFile(FileName: string; FileStream: TStream): Integer; function GetFile(schema, FileName: string): TStream; end;{$METHODINFO OFF}//GetFile方法向客户 阅读全文
posted @ 2011-09-23 23:41 Max Woods 阅读(489) 评论(0) 推荐(1) 编辑
摘要: 如果DataSnap服务器方法的执行时间比较长,这时候可能需要在客户端用进度条显示当前服务器方法的执行进度。要实现这种需求,现在可以利用DataSnap的回调功能,此功能是从Delphi 2010版本开始被引入的。要实现回调,服务器方法需要暴露给客户端一个或多个类型为TDBXCallback的参数。例如:...{$METHODINFO ON} TServerMethods1 = class(TComponent) private { Private declarations } public { Public declarations } function LongTimeRunFunc(In 阅读全文
posted @ 2011-09-23 23:40 Max Woods 阅读(359) 评论(0) 推荐(0) 编辑
摘要: 之前说到中间层通过向客户端暴露方法的方式提供服务,实现数据库数据的读取和更新。方法调用的方式,其潜在的意义,就是说中间层不保存客户端状态信息,就像WEB服务一样,客户端需要自己保存自己的状态信息。进一步说,就是中间层具体提供方法的业务对象实例,不是也不应该专属于某个客户端,它应该能够为不同的客户端调用提供服务。如果我们把业务对象实例放到对象池中集中存放,调用方法时随用随取,方法结束即放回池中。这样就可以实现业务对象实例服务于不同的客户端调用请求。更重要的是,利用对象池,能够最大化服务器各种资源的使用效率,而且对客户端的响应也更快了,因为业务对象实例早就创建好了,取来即用。其实,DataSnap 阅读全文
posted @ 2011-09-23 23:39 Max Woods 阅读(624) 评论(0) 推荐(0) 编辑
摘要: 有时候安装一些组件以后会出现: [Fatal Error] Project1.dpr(1): Unit not found: 'System.pas' or binary equivalents (DCU,DPU) 的错误,不知道什么原因,刚开始只有重装Delphi才解决问题,后来察看Borland官方网站得知,其实只是环境库路径丢失造成的,解决方法很简单,如果你D7安装默认的路径,则只需要打开Delphi菜单,选择Tools->Environment Options然后选择Library标签,在Library Path添加如下内容就行了: --------------- 阅读全文
posted @ 2011-09-23 23:35 Max Woods 阅读(347) 评论(0) 推荐(0) 编辑
摘要: In this second Delphi Conference 2010 Brazil video, Daniele Teti from Italy explain the Android architecture and how to connect Android applications with Delphi DataSnap Servers, take some time and watch/download this presentation, you will learn a great content and see how open is DataSnap. 阅读全文
posted @ 2011-09-22 19:53 Max Woods 阅读(245) 评论(0) 推荐(0) 编辑
摘要: Yoritsuki icons35 icons – Download (PNG and ICO)Hand Drawn Doodle Icon Set14 icons – Download (PNG and JPG)rounder_png43 icons – Download (PNG)eico 1 year17 icons – Download (PNG, ICO, and ICNS)Wifun Icons6 icons – Download (PNG and ICO)3D Cartoon Icons Pack111 icons – Download (PNG, ICO, and ICN... 阅读全文
posted @ 2011-09-22 02:02 Max Woods 阅读(467) 评论(0) 推荐(0) 编辑
摘要: 你还在为开了上万的元宝连草原之王的一根毛都见不到而郁闷吗?你还在为号角喊卖草原之王动辄几百老人头或几万元宝而惊恐吗?我们要的是这种局面吗?当然不!现在,让我们来自己动手,创造华丽的一切!= =废话不多说了,开始正题.游戏里所有坐骑的文件都放在X盘(你的安装盘符):\神鬼传奇\Data\Character\Mount\中你打开进去后,哇,全是拼音写的...一目了然...当然,如果你看不懂拼音的话...OK,开工.找到你现在骑的东西.比如骑的狼就是Lang文件夹,蜥蜴就是xunmenglong.= =实例:强化3级的骑士坐骑改为4级的草原之王进入X:神鬼传奇\Data\Character\Moun 阅读全文
posted @ 2011-09-21 13:04 Max Woods 阅读(474) 评论(0) 推荐(0) 编辑
摘要: SN:3AAD-DCS8KK-RNN4SD-HA2S安装完成后,覆盖bds.exe和bds.dll即可下载地址:Delphi(C++Builder)XE2破解.rar最新破解更新(Update 3):http://download.csdn.net/detail/maxwoods/4041876 阅读全文
posted @ 2011-09-19 21:12 Max Woods 阅读(2668) 评论(1) 推荐(0) 编辑
摘要: 不知道有多少Android开发着对Android虚拟机的那悲剧的性能有意见,反正我的看法是:那速度实在是太坑爹了!为什么Android虚拟机比iOS和WP7的虚拟机要慢很多呢?原因如下:1. Android 模拟器模拟的是 ARM 的体系结构(arm-eabi),而 iOS 和 WP7 的模拟器的目标体系结构都是 x86 的,另外 iOS 的模拟器中运行的 App 也是编译为 x86 的。这样一来 Android 模拟器需要做一些额外的二进制翻译工作。2. Android 模拟器用的是 QEMU 的全系统模式(full system),也就说它模拟时需要启动整个 GUEST 系统,初始化各种模 阅读全文
posted @ 2011-09-16 23:40 Max Woods 阅读(26500) 评论(8) 推荐(5) 编辑
摘要: Personally, I like the new Visual Studio 2010 IDE colors but I got this comment recently from a helpful reader:Why did the default colour theme for VS 2010 have to be so hideously ugly? Why put all that work into making the most advanced IDE ever, and then present it with a look that screams "w 阅读全文
posted @ 2011-09-16 17:06 Max Woods 阅读(526) 评论(0) 推荐(0) 编辑
摘要: 关于SSDT Hook的理论知识就不多说了。简单的说一下Delphi开发KMD的一些需要注意的地方...这里使用DDDK---有点自己修改过的痕迹不过区别不大...自己可以看代码1.KeServiceDescriptorTable是一个很特殊的函数...如果直接使用implib来进行创建库的话你会发现这个函数是被忽略的...因为偏移为0所以这个函数基本上只能起到标志作用没有任何实用价值....一些代码中出现了代码:function SystemService(AFunc:Pointer):PLONG;beginResult:=PLONG(Cardinal(KeServiceDescriptor 阅读全文
posted @ 2011-09-16 16:08 Max Woods 阅读(538) 评论(0) 推荐(0) 编辑
摘要: 原贴: 手把手教你使用WINDBG KO XXXX游戏驱动保护 vcD'~)G(* 来源于: http://bbs.pediy.com/showthread.php?t=77952 K#U{<pUP 0JOju$Bl, "] 9_Fv 【破文标题】手把手教你使用WINDBG KO XXXX游戏驱动保护 k%a?SU< f 【破文作者】lj8888 z7$}#)Z7 【作者邮箱】xxxx@163.com \Em-.%c 【作者主页】- a#6,#Q" 【破解工具】windbg 6.7 t"#lnG!G 【破解平 阅读全文
posted @ 2011-09-16 15:49 Max Woods 阅读(763) 评论(0) 推荐(0) 编辑
摘要: Sql Server2000建表错误与解决方法:在Windwos7中SQL Server 2000企业管理器在新建表时会提示错误,尝试各种方法均告无效,包括升级SP3和SP4,最终发现如下规律可以暂时解决问题:新建立表时要先选择一个表,然后点右键选择新建表,弹出窗口就可以设置表结构了。 如果是在一个空白地方点右键,然后选择新建表,将会报错。如果是一个新建的空库,建议先用SQL语句建立一个简单的表供选择就可以解决问题。 阅读全文
posted @ 2011-09-16 14:40 Max Woods 阅读(983) 评论(0) 推荐(0) 编辑
摘要: Delphi(Pascal) code var sqlStr:String;begin sqlStr:= ' begin ' sqlStr:= sqlStr+ 'update table1 set col1 = ''test'' where 1=2;'; sqlStr:= sqlStr+ 'update table1 set col1 = ''test2'' where 1=2;'; sqlStr:= sqlStr+ ' end '; adoquery1.Close; 阅读全文
posted @ 2011-09-16 14:36 Max Woods 阅读(2474) 评论(0) 推荐(1) 编辑
摘要: function FileCopy(SourceFile,TargetFile : string;ProgressBar :TRzProgressStatus ) : boolean;//function FileCopy(SourceFile,TargetFile : string;ProgressBar :TProgressBar ) : boolean;var getStream,setStream: TFileStream; num, n: Integer; buf: PByte; BufSize,block: Integer;begin result := false; if not 阅读全文
posted @ 2011-09-16 14:34 Max Woods 阅读(745) 评论(0) 推荐(0) 编辑
摘要: 数据库不允许从远程访问怎么办?本文提供了三种解决方法: 1、改表法。可能是你的帐号不允许从远程登陆,只能在localhost。这个时候只要在localhost的那台电脑,登入mysql后,更改 "mysql" 数据库里的 "user" 表里的 "host" 项,从"localhost"改称"%" mysql -u root -pvmwaremysql>use mysql; mysql>update user set host = '%' where user = &# 阅读全文
posted @ 2011-09-16 14:32 Max Woods 阅读(328) 评论(0) 推荐(0) 编辑
摘要: delphi调用cmd的两种方法vars:string;begins:='cmd.exe /c '+edit1.Text+' >c:\1.txt';winexec(pchar(s),sw_hide);sleep(2000);memo1.Lines.LoadFromFile('c:\1.txt');2shellexecute(handle,nil,'cmd.exe',pchar(form2.edit1.text),nil,sw_hide);WinExec主要运行EXE文件。如:WinExec(’Notepad.exe Read 阅读全文
posted @ 2011-09-16 14:30 Max Woods 阅读(1236) 评论(0) 推荐(0) 编辑
摘要: DAYOFWEEK(date) 返回日期date的星期索引(1=星期天,2=星期一, ……7=星期六)。這些索引值對應ODBC標準。 mysql> select DAYOFWEEK('1998-02-03'); -> 3 WEEKDAY(date) 返回date的星期索引(0=星期一,1=星期二, ……6= 星期天)。 mysql> select WEEKDAY('1997-10-04 22:23:00'); -> 5 mysql> select WEEKDAY('1997-11-05'); -> 2 DAYO 阅读全文
posted @ 2011-09-16 14:28 Max Woods 阅读(512) 评论(0) 推荐(0) 编辑
摘要: Delphi中获取路径的函数 //********获取当前路径***************GetCurrentDir() //获取当前的Windows打开的目录,无斜'\'extractFilepath(application.exeName); //获取某个程序的目录,有斜'\'ExtractFilePath(ParamStr(0)); //获取当前运行文件的目录,有斜'\' ExtractFileDir(Application.Exename); //获取某个程序的目录,无斜'\'ExtractFileName('C 阅读全文
posted @ 2011-09-16 14:27 Max Woods 阅读(2272) 评论(0) 推荐(0) 编辑
摘要: var s: string;begin //指令类型 type s := Format('最大整数是: %d; 最小整数是: %d',[MaxInt,Low(Integer)]); //返回: 最大整数是: 2147483647; 最小整数是: -2147483648 { 提示: 格式指令必须以 % 开始, 不区分大小写, %d 代表一个整数; 第二个参数是一个变体数组 } s := Format('最大的无负号整数是: %u',[High(Cardinal)]); //返回: 最大的无负号整数是: 4294967295 { %u表示一个无负号整数 } s := 阅读全文
posted @ 2011-09-16 14:25 Max Woods 阅读(1252) 评论(0) 推荐(0) 编辑
摘要: 在devexpress中,换肤就很简单,不需要我们自己去制造皮肤,官文就有很丰富的皮肤包。下面来讲解一下这个问题。 注意,我这儿用的是DevExpress 8.1.5,在老版本中可能不支持。如果是7.x的版本,请见demo中的源代码。 第一步:让所有窗体都从DevExpress.XtraEditors.XtraForm继承。 第二步:添加两个引用: DevExpress.BonusSkins.v8.1 DevExpress.OfficeSkins.v8.1 第三步:在软件的入口Program类的main函数的第一行代码前加上: DevExpress.User... 阅读全文
posted @ 2011-09-16 00:01 Max Woods 阅读(1112) 评论(1) 推荐(0) 编辑
摘要: Product Information - Product Details这个重点是Product Version。讲这个之前,首先要知道Product Code和Upgrade Code这两个属性,同时大家不要被这两个英文词语的字面意思所以迷惑。同一款产品,不同的版本的安装包,Product Code必须不同,但Upgrade Code必须相同。例如,现在有一款软件叫"Hello World”,已经制作了1.0.0的安装包,现在要制作1.0.1安装包。1.0.0与1.0.1的Upgrade Code是相同的,否则就会视为不同产品的安装包,安装时就会产生两个卸载项目。而同时1.0.0 阅读全文
posted @ 2011-09-13 17:17 Max Woods 阅读(418) 评论(1) 推荐(0) 编辑
摘要: 用Vmware+Vista SDK进行Vista Credential Provider开发By MikeFeng 1 前言 Vista出来也有一段时间了,用户跟着微软的潮流用新功能,搞程序的就得被微软牵着鼻子做Vista的移植。最典型的例子就是QQ,2006标准版是不能在Vista上使用的,否则就等着点击密码框的时候蓝屏吧。2007版大概改了键盘驱动的动态加载方法,现在可以用了。 跑题了,转回来。大家可能知道在XP下屏蔽或者修改三指礼(ctrl+alt+delete)响应时间的方法,就是重写XP提供的Gina函数。出于安全性的考虑,在Vista中Gina的功能被Credential Prov 阅读全文
posted @ 2011-09-09 11:51 Max Woods 阅读(1147) 评论(0) 推荐(0) 编辑
摘要: trytry if (you.believe(it)=true or you.believe(it)=false) begin I.believe(it); end;execept on E: Exception dobegin Showmessage('It's a miracle!'); raise;end;finallyit.justHappened();end; 阅读全文
posted @ 2011-09-09 11:32 Max Woods 阅读(600) 评论(0) 推荐(0) 编辑
摘要: 更改SQL Server表所有者的操作方法笔者用过两种方法:1) 通过修改当前数据库的对象表:sysobjects。sysobjects存储的是当前数据库中的表的基本信息,其中由一个字段:uid,记录的是表所有者的id号。如:uid为‘1’,一般表示所有者为dbo(一般是sa)。可以为表所有者更改为你所希望的表所有者的id。需要注意的是,直接在sysobjects表中对数据进行的更新操作需要有权限允许。不然会更新不成功2) 另外一种方式是通过sql脚本来完成的。例如:exec sp_changeobjectowner 'cqadmin.authors', 111 将表' 阅读全文
posted @ 2011-08-31 14:49 Max Woods 阅读(608) 评论(0) 推荐(0) 编辑
摘要: This article describes how to change the owner of a user-defined data type that is in use.To change the owner of a user-defined data type, you must drop and then re-create the data type in the context of the owner you want. However, if the user-defined data type is in use, you will receive the follo 阅读全文
posted @ 2011-08-31 14:47 Max Woods 阅读(302) 评论(0) 推荐(0) 编辑
摘要: 如果你使用MySQL数据库,并且使用DBGO(ADO)组件通过MySQL ODBC 3.5.1 或者MySQL Connector/ODBC 5.0连接,那么你的TADOConnection连接字符串(ConnectionString)1.接本机数据库时:'DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=myDatabase; USER=myUsername; PASSWORD=myPassword;OPTION=3;'2.连接远程数据库时:'DRIVER={MySQL ODBC 3.51 Driv 阅读全文
posted @ 2011-08-29 23:24 Max Woods 阅读(1536) 评论(0) 推荐(0) 编辑
摘要: 1、从 MySql 官方网站下载免安装程序。 2、解压,并将目录复制到实际运行目。如:D:\Program Files\MySQL\MySql3307。 3、复制 my-large.ini 到同目录下的 my.ini。 4、打开 my.ini 文件修改端口(必须)及其它配置(非必须)。 5、注册服务:D:\Program Files\MySQL\MySql3307\bin\mysqld.exe --install MySql53307。(其中MySql53307为服务名称) 6、打开注册表,并定位到 [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlS... 阅读全文
posted @ 2011-08-29 23:16 Max Woods 阅读(377) 评论(0) 推荐(0) 编辑
摘要: 原文连接http://www.delphifeeds.com/go/s/74909google翻译并整理当开发人员开始创建Delphi的DataSnap应用时很常见的数据库连接定义方式是每个数据模块建立一个连接。这样做将产生大量的数据库连接,并产生很多问题。DelphiXe,提供了Session管理,更容易实现控制客户端连到服务器的数据库连接。客户端应用程序bu不会知道这些,服务器将完成所有的事情。当我们创建一个DataSnap服务器时,最好的做法就是定义一个服务器容器(数据模块),其中包含DataSnap服务器组件和注册所有的服务器应用程序所需的类。在这个容器中,我们将定义一个负责处理服务器 阅读全文
posted @ 2011-08-26 23:59 Max Woods 阅读(1213) 评论(1) 推荐(0) 编辑
摘要: 1. 准备工作 首先下载 RemObjects SDK,我用的是 4.0.19 版,可以安装在 Delphi2007 中。用其他版本 delphi 的也可以下载 4.0.19,用起来效果一样的。需要注意的是,RemObjects 是共享的框架,如果不注册,那么编译后的程序不能脱离 delphi 的 IDE 单独运行。注册的方法是去 RemObjects 官方网站(http://www.remobjects.com/shop/)下购买定单,付费后会收到 License 文件(别问我要 License,我不会给的)。2. 创建 VCL Standalone 点击 File->New-> 阅读全文
posted @ 2011-08-26 19:33 Max Woods 阅读(779) 评论(0) 推荐(0) 编辑
摘要: 使用Remobjects的单通道做服务端项目时,每当同一客户端同时发起超过一个以上的请求数据时,就会出现Channel is Busy 错误,为此我询问过Remobjects官方,他们回答是,单通道是非多线程安全的,类似这样的回答,建议我的用超级通道。可是简单地更换单通道为超级通道反而导致问题更多,由是我就想改造一下单通道。在盒子上我曾经发布关于这个问题解决方法,但是还不合理,现在贴出来最终的解决方法,这个方法在我的程序使用后,再也没有出现以上问题uROClient.pas内,请对照修改.procedure TROTransportChannel.Dispatch(aRequest, aRes 阅读全文
posted @ 2011-08-26 01:12 Max Woods 阅读(723) 评论(2) 推荐(0) 编辑
摘要: Windows 7 操作系统默认具有一款玻璃效果主题(Aero Glass)。如果选择了该款主题,所有的应用程序标题栏都会处于玻璃透明效果(如下图)。这个功能是由Desktop Window Manager(DWM)服务支持的。默认情况下,我们编写的应用程序在Windows 7 中也只有标题栏和窗口框架会具备玻璃效果,其他区域仍是不透明状态(如下图)。如果想将程序整体都改为上图IE 窗口的效果,可以使用DWM API 将玻璃区域进行扩展。首先,从dwmapi.dll 中调取DwmExtendFrameIntoClientArea 方法。[StructLayout(LayoutKind.Sequ 阅读全文
posted @ 2011-08-25 17:02 Max Woods 阅读(485) 评论(0) 推荐(0) 编辑
摘要: 多年前接触过RemObjects的产品,当时可能他们的技术不是太成熟,实现多层架构的整体效率比较低,另外也因为当时的SOA的概念还未提出,开发的定位也就基于客户和自身的现有需求,没考虑那么多的东西,这些时间研究SOA才发现,RemObjects可能成为开发人员的另一个快速实现SOA的利器,是其他多层应用的中间件所不及。(详细的介绍请到网上搜索)RemObjects SDK for Delphi V6.0.39.777Cracked 破解版下载地址:http://www.ctdisk.com/file/8210770官方安装文件下载地址:http://www.ctdisk.com/file/82 阅读全文
posted @ 2011-08-13 11:40 Max Woods 阅读(3023) 评论(4) 推荐(0) 编辑
上一页 1 ··· 8 9 10 11 12 13 14 15 16 ··· 30 下一页