随笔分类 - Delphi-WebService
摘要：Delphi代码 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, IdBaseComponent, IdC
阅读全文
摘要：Delphi代码 ************************************************************************************************************************************ unit Uni
阅读全文
摘要：在开始之前看下效果 PHP页面作为客户端发送请求给作为服务端的Delphi应用程序 PHP客户端页面打开如下 Delphi服务端应用程序打开如下 每次PHP页面刷新一下，Delphi的文本框都显示"我上线啦！"做的很粗糙，但是似乎可以作为某种功能的demo PHP代码如下： Delphi 设置： S
阅读全文
摘要：语言:Xe2 框架:DataSnap问题：DataSnap很简单，把一个二层的程序改写成三层，很简单就实现了，例如：把原先的二层访问函数，堆到TServerMethods1单元即可，然后就实现了三层。但是在测试时有个问题，生产环境可能非常恶劣，经常回发生断线情况，我们要保证可以自动恢复功能，即断线一
阅读全文
摘要：问个问题，我开发的两层系统有点大，转成三层比较麻烦，我有个这样的情况，大家看能不能提点建议。数据库是SQL2000、开发环境Berlin10.1、数据库组件用的是ADO、用的是经典CS模式连接。因为客户那边的话，很多客户端是不给上互联网的，,同时连接到一台局域网内的服务器，目前我是把数据库放在服务器
阅读全文
摘要：我们的delphi程序很多是以前开发的，采用典型的CS架构，由程序直接连接数据库。现在需要改成在外网可以直接操作软件。先把数据库搬到了阿里云上，测试发现直接连数据库和VPN连接测试速度很慢，直连还容易掉线。服务器申请大的带宽又太贵。把数据访问和一些业务逻辑改写成服务，由于软件太大，开发和测试需要投入
阅读全文
摘要：转自永南博客，更改update 脚本只取变化字段，更改排除blob与数组字段，这两个类型会报错 function vartosql(value: Variant): wideString; var tmp: widestring;begin if (varisnull(Value)) or (var
阅读全文
摘要：procedure TForm1.Button14Click(Sender: TObject);var ls: TStringList; lstr: string; lss: TMemoryStream;begin inherited; idHttp1.Request.CustomHeaders.T
阅读全文
摘要：用做网页开发经历了三个阶段：第一阶：傻干阶段使用Intraweb，傻瓜型，无需知道javascript,html,css，会pascal就可以了。第二阶：困惑阶段使用Intraweb，有很多限制，比如资料少，界面不容易做漂亮，没有源代码等等。于是转向研究其他开发工具。首先吸引眼球的是Nodejs，前
阅读全文
摘要：idhttp.get方式调用，这种比较简单，大家都会。post方式网上却没有任何成功的代码，本人也是摸索了一个上午才搞定。 分享给大家。 （1）post方式调用的远程方法，方法名必须加“update”前缀，不加行不？你试下啦。 function TServerMethods1.updateecho(
阅读全文
摘要：朋友有个项目，通信协议使用HTTP，数据序列使用BIN（二进制）。他不知道要选用何种技术方案。 REST webservice是http+json，SOAP webservice是http+xml，好像都不适合。 于是想到了使用INDY的TidHttpServer控件来实现。TidHttpServe
阅读全文
摘要：准备使用DELPHI开发移动设备开发的朋友对DATASNAP REST中间件不可不了解。 DATASNAP REST新型WEBSERVICES中间件使用的通信协议和数据封装格式： 使用HTTP通信协议，HTTP协议哪个平台都支持；使用JSON作为数据的封装格式，几乎所有的开发语言都可以解析JSON数
阅读全文
摘要：在delphi 7中使用idhttp抓取网页，造成窗口无反应的假死状态。通过搜索获得两种方法。 1.写在线程中，但是调用比较麻烦 2.使用delphi 提供的idantifreeze（必须安装indy）。在indy misc中将idfreeantifreeze放入程序中， 将OnlyWhenIdle
阅读全文
摘要：为了能让我们的服务程序更加稳定，有些细节问题必须解决。就如上一讲中提到的客户端拔掉网线，造成服务器上TCP变成死连接，如果死连接数量过多，对服务器能长期稳定运行是一个巨大的威胁。另外，经过测试，如果服务器上有TCP死连接，那么服务程序连接数据库，也会产生那个一个死连接。这样的话，给数据库服务器也造成
阅读全文
摘要：用TRESTClient控件调用REST架构服务 RESTClient控件返回数据集 用到的控件 RESTClient RESTRequest RESTResponseDataSetAdapter 官方例子Studio\14.0\Samples\Object Pascal\Database\REST
阅读全文
摘要：mORMot没有控件安装，直接添加到lib路径,工程中直接添加syncommons，syndb等到uses里 在进行网络编程中需要JSON对象的构建与解析，这个Delphi XE+自带：{$IF CompilerVersion>22}, System.JSon{$ELSE}, DBXJSON{$IF
阅读全文
摘要：相关资料：http://www.2ccc.com/news/Html/?1507.html DelphiXE7新建WebService具体操作：1.打开“DelphiXE7”->“File”->“New”->“Other”2.“New Items”－>“Delphi Projects”->“WebS
阅读全文
摘要：[delphi] view plain copy procedure TForm5.Button4Click(Sender: TObject); var O, item: ISuperObject; Strm: TStringStream; result: string; ctx: TSuperRt
阅读全文
摘要：服务端代码： 客户端代码： http://www.cnblogs.com/pengshaomin/archive/2012/10/10/2718579.html
阅读全文
摘要：现在，DATASNAP倾向于使用JSON作为统一的数据序列格式，以期达到跨平台的效果。于是使用JSON便成为热点。unit uJSONDB; interface uses SysUtils, Classes, Variants, DB, DBClient, SuperObject, Dialogs;
阅读全文