- 博客(265)
- 收藏
- 关注
RSS订阅转载 大幅提升Delphi Datasnap数据传输效率的方法
方法一：增加TCP读写缓存的大小 DataSnap Server中负责TCP/IP通讯的组件是TDSTCPServerTransport，它默认的TCP/IP读写缓冲区的大小为32KB，由BufferKBSize属性来设置。测试结果显示，这个默认的缓冲区大小，只适合返回很小的数据集的情况，在返回较大的数据集、或者上传文件到数据库/从数据库下载文件等情况下，会造成严重的数据传输...
2019-09-03 23:07:00
487
转载 DATASNAP双缓存下载文件
原文链接：http://www.cnblogs.com/hnxxcxg/archive/2012/12/29/2839358.htmlprocedure TFrmMain.btnUpdateFilesClick(Sender: TObject);begin try if Assigned(gEXEmm) then FreeAndNil(gEXEmm);...
2019-09-03 23:04:00
286
转载 DataSnap初步二
转：https://blog.csdn.net/a00553344/article/details/516704861. 一个典型的DataSnap服务器至少需要三个控件：TDSServer: DataSnap的逻辑核心控件，控制服务器的运行。TDSServerClass: DataSnap服务端服务导出控件，通过OnGetClass事件来导出服务端的类及方法供客户端的远程调...
2019-09-03 22:47:00
350
转载 DATASNAP清除僵死连接
转：https://blog.csdn.net/weixin_34247299/article/details/86055022DATASNAP使用TCP/IP长连接的时候，由于诸如客户端非正常关闭的情况会造成中间件产生僵死SOCKET连接，随着时间的推移，僵死连接越来越多，造成中间件停止服务，表现为客户端无法连接中间件。DELPHI XE2以上版本已经封装好属性，如下图设置：...
2019-09-03 22:43:00
185
转载 Delphi2010中DataSnap技术网摘
Delphi2010中DataSnap技术网摘一、为DataSnap系统服务程序添加描述这几天一直在研究Delphi 2010的DataSnap，感觉功能真是很强大，现在足有理由证明Delphi7该下岗了。DataSnap有三种服务模式，其中Service Application方式建立的Windows服务没有描述，描述部分是空的，可用如下方法添加服务描述：pro...
2019-09-03 22:14:00
148
转载 XE5 搭建DataSnap服务
1 准备工作1.1 环境准备XE5或XE7，操作系统Windows7（64位）操作系统。数据库MSSQL选择SQLServer2008。如果数据库服务没有在开发电脑上，则需要在开发电脑上安装Microsoft SQL Server 2008 Native Client。因为是64位开发环境，所以需要下载64位的安装包[1]。X64包下载地址：如果是32...
2019-09-03 21:59:00
197
转载 FastReport 使用技巧篇
FastReport 使用技巧篇使用技巧篇1.FastReport中如果访问报表中的对象？可以使用FindObject方法。 TfrxMemoView(frxReport1.FindObject('memo1')).Text:='FastReport';2.FastReport中如何使用上下标？设置frxmemoview.AllowHTM...
2019-08-31 10:14:00
790
转载 delphi xe5 fastreport4.14 中文很多时换行不正确
用一般的frxMEMOview 中文换行是瞎换,缺少数据,换成frxrichview 即可,frxrichview使用注意点1).Delphi中文很多时换行不正确2).要在窗体上拖一个frxrichObject3).绑定数据库控件跟frxMEMOview一样,如[frxdbYingYe."XiangXi"],但是保存时不恩能够点击保存按钮要打绿色对勾,设置字体...
2019-08-31 10:12:00
305
转载 How to export Overload functions from DLL?
Library that exports functionslibrary liba;procedure F(X: Integer); stdcall; overload;beginend;procedure F(X, Y: Integer); stdcall; overload;beginend;exports F(X: Integ...
2019-07-29 10:36:00
94
转载 Build with runtime packages
编译问题：为什么我去掉Build with runtime packages，编译没问题？？？如果不去掉，就有错误：[Linker Error] Unresolved external 'TXNetDataPkg::' referenced from D:\BOC933\CHARTS\XPLUTUS\MAIN.OBJ[Linker Error] Unresolved external...
2019-07-24 18:21:00
400
转载 软件时间限制的原理[转]
这类软件一般都有时间段的限制，例如试用30天等。当过了共享软件的试用期后，就不予运行。只有向软件作者付费注册之后才能得到一个无时间限制的注册版本。这种保护的实现方式大致如下。 首先在安装软件的时候由安装程序取得当前系统日期，或者主程序在第一次运行的时候获得系统日期，并且将其记录在系统中的某个地方；可能记录在注册表的某个不显眼的位置，也可能记录在某个文件或...
2019-07-10 08:32:00
851
转载 delphi Tidhttp 发送json格式报文
type TwmsThreadpostJson = class(TThread) private Furl: string; Fpostcmd: string; FResult: string; FBOOL: Boolean; protected procedure Execute; override; end...
2019-06-20 16:47:00
813
转载 idHTTP.Post
procedure TForm4.Button2Click(Sender: TObject);var sResponse: string; EnvStr : TStringStream;begin EnvStr := TStringStream.Create(Memo.Text, TEncoding.UTF8); try idHTTP.Request.C...
2019-06-20 16:46:00
485
转载 qjson中把记录或类型或泛型数组转换为json字符串
unit Unit4; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;...
2019-06-20 15:33:00
156
转载 TcxComboBoxProperties下拉框填充
原文地址：https://www1.devexpress.com/Support/Center/Question/Details/CQ30369Actually, the corresponding editor is passed to this event handler via the Sender parameter. So, please cast the Sende...
2019-06-05 23:17:00
473
转载 Delphi用QJSON解析JSON格式的数据 【转】
本来用superobject来解析JSON已经够用了，可惜这个东东不能在移动端使用，于是找到QJSON来处理。这是一个国内高手写开源免费的东西，赞一个。假入数据如下：{"message":"ok","status":"1","state":"3","data":[{"time":"2012-07-07 13:35:14","context":"客户已签收"}, {"time"...
2019-05-03 16:53:00
502
转载 Delphi的idhttp报IOHandler value is not valid错误的原因[转]
出现这种问题的原因是由于访问的 URL地址为https或存在其跳转地址为https。首先单纯使用idhttp是只能访问http，而https则需要搭配IdSSLIOHandlerSocketOpenSSL来实现对https的访问支持，当然还需要在系统目录或编译目标程序的同目录下有ssleay32.dll与libeay32.dll两个SLL协议的支持库。下面贴出一个简单示例，但对...
2019-04-26 16:25:00
706
转载 Excel读写方案XLSReadWriteII使用技巧总结
XLSReadWriteII是一个读写Excel的组件。他的一般已用只要按照Demo操作基本都能实现，只要不是非常复杂的应用，XLSReadWriteII还是能够胜任的。最近被派了一个写入图库的应用，图库是Gallery2图库，本身支持自定义字段功能，原始文件是一个排版完整的Excel表格，程序的目标是读取Excel表格的文字图片信息，写入Gallery2或者是生成一个SQL语句，直...
2019-03-25 20:41:00
977
转载 error loading midas.dll问题
如果用的delphi在你的单元里用uses midaslib这个东西就可以把midas静态连接到你的程序楼上的也可以在程序中使用winexec("regsvr32.exe midas.dll",SW_NORMAL);注册midas组件可能是注册表中记录的<path>midas.dll不存在，可以：(1) regsvr32 /u /s midas.dll(2)midas.d...
2019-03-21 09:26:00
889
转载 cxGrid导出Excel货币符号问题
cxGrid导出到Excel，对于Currency类型总是加上了货币符号，可以修改导出文件设置来去掉：在cxXLSExport.pas文件中，修改：procedure TcxXLSExportProvider.SetCellDataCurrency(const ACol, ARow: Integer; const AValue: Currency);begin ...
2019-03-05 15:54:00
111
转载 如何将数据库引擎配置为侦听多个 TCP 端口
SQL Server 2005 为 SQL Server 启用 TCP/IP 后，数据库引擎将侦听连接点上是否有传入的连接（由 IP 地址和 TCP 端口号组成）。下列步骤将创建一个表格格式数据流 (TDS) 端点，以便 SQL Server 侦听其他 TCP 端口。创建第二个 TDS 端点的可能原因包括：通过将防火墙配置为限制访问特定子网上的本地客户...
2019-02-26 19:46:00
145
转载 JSON 之 SuperObject(3): 访问
测试数据提前加入 Memo1 中:{ "name": "张三", /* 注释 */ "age": 33, "sex": true, "weight": 123.456, "tel": ["86-1111111", "86-2222222"], "addresses":{"address":"A省B市", "pc":"100001"}, ...
2019-01-19 12:34:00
134
转载 Delphi7通过superobject解析JSON
1、通过delphi程序访问PHP事先写好的webservice（查询功能），webservice返回json格式数据。2、通过superobject读取json数据得到效果如下：//深层级的访问jo:=SO('{"datalist":{"username":"admin","name":"管理","sex":"男"}}');if...
2019-01-19 12:25:00
440
转载 delphi TIdHTTP Post乱码问题
这里主要说的是中文乱码的问题1. 发过去的是乱码如下处理, 服务器采用的是UFT-8编码的情况下uses HTTPApp; sPost := HTTPEncode(UTF8Encode('中文处理'));2. 返回的是乱码如下处理ResponseStream:=TStringstream.Create('',TEncoding.UTF8);idht...
2019-01-19 10:40:00
573
转载 使用 idHTTP 获取 UTF-8 编码的中文网页
uses IdHTTP;const Url = 'http://del.cnblogs.com';procedure TForm1.Button1Click(Sender: TObject);var stream: TStringStream; idHttpObj: TIdHTTP;begin stream := TStringStream....
2019-01-19 10:39:00
308
转载 idHTTP 向网站发送json格式数据
idHTTP向网站发送json格式数据varrbody:tstringstream;beginrbody:=tstringstream.Create('{"name":"lina"}') ;IdHTTP1.Request.Accept := 'text/javascript';IdHTTP1.Request.ContentType := 'applicati...
2019-01-19 10:29:00
503
转载 Delphi处理Http请求自定义Header
在HTTP请求中，get方法是默认的，但在URL地址长度是有限的，请求方法能传送的数据也是有限的，一般get方法传递的数据不能大于2KB，当get请求方法传递的数据长度不能满足需求时，就需要采用另一种请求方法post，读取post方法传递过来的数据时，需要采用form方法来获取；post方法提交请求时，地址栏看不到传送过来的参数数据，更加有利于页面的安全，所以一般情况采用post方法传送...
2019-01-19 10:24:00
2467
转载 HTTP 400 错误 - 请求无效 (Bad request)
HTTP 400 错误 :请求无效 (Bad request);出现这个没有进入到后台服务里；原因：1.前端提交数据的字段名称或者是字段类型和后台的实体类不一致，导致无法封装；2.前端提交的到后台的数据应该是json字符串类型，而前端没有将对象转化为字符串类型；转载于:https://www.cnblogs.com/railgunman/p/10290596.htm...
2019-01-19 10:09:00
96
转载 DELPHI XE10，JSON 生成和解析，再利用INDYHTTP控件POST
Delphi XE10，Json 生成和解析，再利用indyhttp控件Post2017年09月20日 18:30:23阅读数：1973--不多说，直接上代码procedure TFrmMain.Brand;var JSONObject, jsonparam: TJSONObject; // JSON类 jsonArray: TJSONArray; /...
2019-01-19 10:05:00
534
转载 Delphi7下SuperObject的JSON使用方法
uses superobject; procedure TForm1.FormCreate(Sender: TObject);var aJson: ISuperObject;aSuperArray: TSuperArray; i:Integer;begin {1、赋初值} aJson:=SO('{"zoo":"涂磊动物园","animals"...
2019-01-18 16:13:00
260
转载 Delphi/XE2 使用TIdHttp控件下载Https协议服务器文件[转]
之前的一篇博文详细描述了使用TIdhttp控件下载http协议的文件，在我项目的使用过程中发现对于下载Https协议中的文件与Http协议的文件不同，毕竟Https在HTTP协议基础上增加了SSL协议。接下来我们就来看看如何下载Https协议的服务器文件。HTTPS既然是增加了SSL协议，那么我们就处理SSL协议这关就可以了。开发环境：XE2 + Indy10Delphi控件...
2019-01-18 15:12:00
273
转载 [Delphi]实现使用TIdHttp控件向https地址Post请求[转]
开篇：公司之前一直使用http协议进行交互（比如登录等功能），但是经常被爆安全性不高，所以准备改用https协议。百度了一下资料，其实使用IdHttp控件实现https交互的帖子并不少，鉴于这次成功实现了功能，在此总结分享给大家。开发环境：XE2 + Indy10https服务协议：使用Json格式交互参数Delphi控件：TIdhttp,IdSSLIOHandlerSock...
2019-01-18 15:08:00
803
转载 在cxGrid表格中如何获得当前列的字段名
var GridDBTableView:TcxGridDBTableView; ColIndex:Integer; FieldName:string; GridDBTableView := TcxGridDBTableView(TcxGridSite(TcxButtonEdit(Sender).Parent).ViewInfo.GridView);...
2019-01-01 22:36:00
121
转载 convert函数语法
convert函数语法：CONVERT(data_type(length), data_to_be_converted, style)data_type(length) 规定目标数据类型（带有可选的长度）。data_to_be_converted 含有需要转换的值。style 规定日期/时间的输出格式。可以使用的 style 值如图：转载于:https://ww...
2018-12-18 14:13:00
1161
转载 cxgrid多选删除
设置OptionsData选项中的Editing设为True，按着Shift和Ctrl可实现多选SelectionChanged事件Fori:=0TocxGrid1DBTableView1.Controller.SelectedRowCount-1DOBeginSL.Append(cxGrid1DBTableView1.Controller.S...
2018-12-17 09:39:00
516
转载 delphi XE的字符串处理
最近用delphi xe做了个东西，因为以前一直使用Delphi 7做开发，delphi 7 到delphi XE有了很大的变化，最大的变化就是对Unicode的支持，所以刚开始使用DELPHI XE时还有些不太习惯，尤其在字符串处理的时候。DELPHI XE 增加了UnicodeString 类型，这在Delphi 7中是没有的，默认的String字符串为UnicodeString...
2018-11-08 19:09:00
439
转载 如何判断可见字符 Unicode
一个Unicode字符串，如何判断其中都是可见字符？//根据国标 GB2312 的中文汉字及符号 区位码的范围判断Function CheckIsGB2312(Char : WideChar) : Boolean;var S : AnsiString;begin S := Char; Result := (PByte(integer(S)+1)^&g...
2018-11-08 19:05:00
505
转载 在 SQL Server 中从完整路径提取文件名(sql 玩转文件路径)
四个函数：--1、根据路径获取文件名-- =============================================-- Author: Paul Griffin-- Create date: 18 January 2015-- Description: Returns a filename with extension-...
2018-11-05 23:06:00
1253
转载 如何访问cxGrid控件过滤后的数据集
var I: Integer;begin Memo1.Lines.Clear; with cxGrid1DBTableView1.DataController do for I := 0 to FilteredRecordCount - 1 do Memo1.Lines.Add(DisplayTexts[FilteredRecordIndex[I]...
2018-11-03 19:30:00
275
转载 关于查询报表总是"超时已过期"的问题解决
"超时已过期" 的问题一直在烦扰着我, 在查一些数据量比较大的表或者运行一些复杂存储过程的时候就会出现这个提示, 一开始是按下面的来设,有一些报表是可以正常查出来 a、在企业管理器中，选择菜单上的"工具"，再选择"选项"； b、在弹出的"SQL Server企业管理器属性"窗口中，点击"高级"选项卡 c、在"连接设置"下的"登录超...
2018-11-03 18:44:00
935
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人