摘要：
delphi 线程的使用https://www.cnblogs.com/china1/archive/2004/01/13/3395141.html unit untWorkThread; interface uses Windows,Classes,SysUtils; type TWorkItem 阅读全文
posted @ 2020-09-28 09:47
奔腾栈_fhweixin
阅读(185)
评论(0)
推荐(0)
摘要：
使用DataSnap做服务器，端口设置为可配置，然后在程序中动态指定： procedure TscUPower.DataModuleCreate(Sender: TObject); begin dstUPower.Port:=DSPort; end; 默认端口为211,测试改变端口，没有报告错误，但 阅读全文
posted @ 2020-09-28 09:34
奔腾栈_fhweixin
阅读(132)
评论(0)
推荐(0)
摘要：
原来使用ado来访问数据库，用在DataSnap中也很方便。后来便一直使用UniDac，可发现UniDac如果用在DataSnap中要比ado麻烦很多，尤其对自增长字段、缺省值的处理上，感觉对DataSnap支持不好(普通C/S应用还是非常好的)。 在Unidac官网上看到一个关于处理DataSna 阅读全文
posted @ 2020-09-28 09:33
奔腾栈_fhweixin
阅读(204)
评论(0)
推荐(0)
摘要：
好久没写技术文了 datasnap传大流。 完整代码，同时感谢叶兄传流的指点,（只公开十天） 附：下面代码，转载请注明出处 ::code 服务端： function TServerMethods1.DownLoadFile(AfileName: string): TStream; const Sav 阅读全文
posted @ 2020-09-28 09:22
奔腾栈_fhweixin
阅读(310)
评论(0)
推荐(0)
摘要：
datasnap的初步-回调函数 服务器端 TServerMethods1 =class(TComponent) private { Private declarations } public { Public declarations } functionTest(funcCallBack: TD 阅读全文
posted @ 2020-09-28 09:19
奔腾栈_fhweixin
阅读(345)
评论(0)
推荐(0)
摘要：
一、 为DataSnap系统服务程序添加描述 这几天一直在研究Delphi 2010的DataSnap，感觉功能真是很强大，现在足有理由证明Delphi7该下岗了。 DataSnap有三种服务模式，其中Service Application方式建立的windows服务没有描述，描述部分是空的，感觉总 阅读全文
posted @ 2020-09-28 09:00
奔腾栈_fhweixin
阅读(280)
评论(0)
推荐(0)
摘要：
准备使用DELPHI开发移动设备开发的朋友对DATASNAP REST中间件不可不了解。 DATASNAP REST新型WEBSERVICES中间件使用的通信协议和数据封装格式： 使用HTTP通信协议，HTTP协议哪个平台都支持；使用JSON作为数据的封装格式，几乎所有的开发语言都可以解析JSON数 阅读全文
posted @ 2020-09-28 08:56
奔腾栈_fhweixin
阅读(156)
评论(0)
推荐(0)
摘要：
//author: cxg unit DSServerContainer; interface uses SysUtils, Classes, IniFiles, Windows, Provider, DBClient, DSTCPServerTransport, DSServer, DSCommo 阅读全文
posted @ 2020-09-28 08:50
奔腾栈_fhweixin
阅读(90)
评论(0)
推荐(0)
摘要：
获得客户端的信息 记得datasnap 2009时，要得到客户端信息，非官方的方法，要去搞什么DSConnectEventObject.ChannelInfo.Id，弄成 TIdTCPConnection。xe2就好得多了。仍然是在DSServer的OnConnect 事件里，DSConnectEv 阅读全文
posted @ 2020-09-28 08:48
奔腾栈_fhweixin
阅读(82)
评论(0)
推荐(0)
摘要：
如果客户端是TCP/IP是短连接的情况就没有必要了。 typepClientConns = ^TClientConns; // 客户连接TClientConns = recordclientid: integer;ip: string;port: string;logintime: TDateTim 阅读全文
posted @ 2020-09-28 08:47
奔腾栈_fhweixin
阅读(131)
评论(0)
推荐(0)
浙公网安备 33010602011771号