直接一个单元，代码分享出来。 unit Net.IPLocation; interface uses System.Classes, System.SysUtils, Winapi.WinSock, Vcl.Forms, System.Math, System.SyncObjs; type TIPLo
作者： sinmax
利用QJson转换FireDAC数据JSON格式
首先我们来看FireDAC的数据对象，看看它的内部保存的方式。 FireDAC数据保存，大致流程如下： “TFDDataSet.InternalSaveToStorage” -》“TFDDatSManager.InternalSaveToStorage” -》“TFDDatSTable.InternalSa