共 64 篇文章 |
|
阅284 转1 评0 公众公开 17-11-13 11:58 |
FireMonkey的日期和日历控件TCalendarEdit、TCalendar星期不能正确显示的问题。Delphi FireMonkey的日期和日历控件TCalendarEdit、TCalendar星期都显示的比较长,导致显示混乱根本看不清是星期几。闲话少说,修正方法是在delphi的安装目录中找到source\fmx\FMX.ExtCtrls.pas并打开。TLabel(FWeek.Text := WeekCaption;最后,将FMX.ExtCtrls.pas... 阅174 转0 评0 公众公开 17-11-09 20:26 |
begin UserInfo.begin JO := dm.LoginState := StrToIntDef(JO.GetValue(''''''''LoginState'''''''').IsSuperUser := JO.GetValue(''''''''IsSuperUser'''''''').UserCode := JO.GetValue('''... 阅252 转0 评0 公众公开 17-10-29 14:02 |
Delphi XE6 原生解析json Delphi XE5带了system.json单元,原生提供了json支持类。2014-11-19网友发现上文中可能遇到的json串码问题,并给出了解决代码,XE6 原生解析json" title="Delphi XE6 原生解析json">XE6 原生解析json" title="Delphi XE6 原生解析json">!procedure TForm1.Button2Click... 阅111 转0 评0 公众公开 17-10-29 13:49 |
多层数据库应用基于Delphi DataSnap方法调用的实现(四)BLOB字段的读写。但在DataSnap 2009中,中间层通过方法调用返回TDataSet的时候,客户端无法再通过IAppServer接口取得Blob字段数据了,因为这是方法调用方式,没有IAppServer接口的实现。要解决客户端读取Blob字段数据的问题,可以在中间层单独申明和定义一个返回Blob字段数据流的方法,... 阅75 转0 评0 公众公开 17-10-29 13:37 |
//从对象池中取出一个业务类实例对象 function LockPoolObject: TPersistent; //把一个业务类实例对象放回对象池中 procedure UnlockPoolObject(var Value: TPersistent); public //指定放入池中的业务类。Count - 1 do begin PServerObject(FServerObjects[i]).InUse then begin PServerObject(FServerObjects[... 阅86 转0 评0 公众公开 17-10-29 13:37 |
if Assigned(FOnDeltaRecordUpdate) then FOnDeltaRecordUpdate(Sender, SourceDS, DeltaDS, UpdateKind, Applied);case UpdateKind of {$REGION ''''''''Process ukModify''''''''} ukModify: begin with DeltaDS do begin for I := 0 to Fiel... 阅187 转0 评0 公众公开 17-10-29 13:37 |
多层数据库应用基于Delphi DataSnap方法调用的实现(一)返回数据集。从Delphi 2009开始,DataSnap技术发生了很大的变化,并在Delphi 2010和Delphi XE的后续版本中得到了持续的改进。1、中间层的实现:...//我们可以发现,不管中间层实际将有多少个不同的数据集要返回,中间层都只需要两个控件,即//TSQLConnection和TSQLDataSet,通过在TSQLDa... 阅65 转0 评0 公众公开 17-10-29 13:34 |
下面介绍如何 从datasnap rest 服务返回 JsonArray 数组。[delphi] view plain copy 声明 function GetArr:TJSONArray; 实现 function TSMTest.GetArr:TJSONArray; var arr:TjsonArray;//TStrArr; I: Integer; begin // SetLength(arr,5); arr:=TjsonArray.Create; for I := 0 to 5 do begin arr.Add( ''... 阅92 转0 评0 公众公开 17-10-29 13:34 |
OK,现在我们了解了如何使用DataSnap封装数据为JSON格式,因此我们现在可以很容易的把这个传统的主从架构应用程序转换为DataSnap JSON服务器,如此一来我们就提供了如何把传统主从架构架逐渐构转换为分布式JSON架构的可能性。我们的第一步是把这个主从架构应用程序转换为DataSnap JSON服务器,要如此做我们需要让这个主从架构把数据以JSON的格... 阅92 转0 评0 公众公开 17-10-29 13:33 |