|
摘要：
本文将使用 SOAP 和 DataSnap 做一个基于 WebService 的多层应用的例子，实现通过 SOAP 实现三层数据访问。本例子的功能是在服务端通过 dbExpress 的数据访问控件取得数据表内容，然后将其通过 SOAP 传递到客户端再显示，客户端也可以修改数据并更新到服务端。 服务端： 1.New|WebServices|Soap Server Application ，如下图： ... 阅读全文
posted @ 2010-03-05 12:12 逸群 阅读(1135) 评论(0) 推荐(0)
摘要：
var DllApp: TApplication;procedure MyDllProc(res: Integer);begin case res of DLL_PROCESS_ATTACH: begin CoInitialize(nil);//如果DLL中用到ADO要加上这句。 DllApp:= Application; end; DLL_PROCESS_DETACH: begin Applic... 阅读全文
posted @ 2010-02-22 16:17 逸群 阅读(202) 评论(0) 推荐(0)
摘要：
1、单网卡可以按以下方法获取，调用rpcrt4.dll。function MacAddress: string;varLib: Cardinal;MACGUID: TGUID;Func: function(GUID: PGUID): Longint; stdcall;beginResult := '';Lib := LoadLibrary('rpcrt4.dll');try if Lib = 0 ... 阅读全文
posted @ 2010-02-09 11:42 逸群 阅读(2173) 评论(0) 推荐(0)
摘要：
var OldIndex: string;begin OldIndex:= cds.IndexName; if OldIndex <> '' then begin cds.IndexName:= ''; cds.DeleteIndex(OldIndex); end; case Column.Title.SortMarker of smNoneEh, smUpEh : begin cds... 阅读全文
posted @ 2010-01-07 17:13 逸群 阅读(477) 评论(0) 推荐(0)
摘要：
在COM+中用Applyupdates来更新数据会抛出 Format '%s' invalid or incompatible with argument 异常 Connection.AppServer.UpdateDatas(cds.Delta, ...); // 正确 奇怪的事在下面 var Delta :OleVariant; ... Delta := cds.Delta; Co... 阅读全文
posted @ 2010-01-07 11:33 逸群 阅读(293) 评论(0) 推荐(0)
摘要：
开发COM+应用系统最令人头痛的问题便是如何调试 COM+组件了。由于COM+是执行在COM+的执行环境中，因此Delphi 的程序员无法像Delphi的分布式多层应用系统一样可以直接在 Delphi 的IDE 中设定应用程序服务器的断点来调试。 事实上， Delphi 仍然可以在 Delphi 的集成开发环境中调试 COM+组件，也可以让程序员在集成开发环境中在COM+组件的程序单元中设定断... 阅读全文
posted @ 2010-01-07 11:28 逸群 阅读(224) 评论(0) 推荐(0)
摘要：
var XML : TXMLDocument; DocIntf : IXMLDocument;begin XML := TXMLDocument.Create(nil); DocIntf := XML; //防止接口被自动释放，少了这一句会发生AV 无宿主时一定要加后面这一句。不过一般不要这样做为好，先来看看delphi中关于XML文档的几个单元。·XMLIntf―̵... 阅读全文
posted @ 2010-01-05 11:40 逸群 阅读(347) 评论(0) 推荐(0)
摘要：
@echo offecho **************************************************echo IP切换echo 切换到外网按0，切换到外网按1 echo **************************************************echo.set /p Net=选择网络(0/1)：if "%Net%"=="0" goto IntN... 阅读全文
posted @ 2009-12-28 09:48 逸群 阅读(414) 评论(0) 推荐(0)
摘要：
在Delphi中释放对象资源时一般用Obj.Free(Obj为一个实例名),不过程Delphi中还有一个FreeAndNil(对象名)函数，那么用哪个好呢？Free和Nil的本质又都是什么呢？在Delphi中一个对象名只是一个指向该对象的指针，可以有多个指针指向同一个对象地址。Nil是将指针置空，而Free则将指针指向的对象销毁掉。如下所示：Obj.Free; //将Obj所指向的对象销毁。Obj... 阅读全文
posted @ 2009-04-13 13:39 逸群 阅读(2496) 评论(0) 推荐(0) |
|
浙公网安备 33010602011771号