草庐IT

Delphi7_VCL

全部标签

delphi JSON序列化(四)

涉及的重要类REST.Json,REST.JsonReflect,REST.Json.Interceptors,REST.Json.Types单元中。一、TJson类最简单的一个类,提供了JSON->OBJECT和OBJECT->JSON几个方法,方法有TJsonOptions参数,如:   classfunctionObjectToJsonObject(AObject:TObject;AOptions:TJsonOptions=CDefaultOptions):TJSONObject;typeTJsonOption=(joIgnoreEmptyStrings,joIgnoreEmptyArr

delphi JSON序列化(四)

涉及的重要类REST.Json,REST.JsonReflect,REST.Json.Interceptors,REST.Json.Types单元中。一、TJson类最简单的一个类,提供了JSON->OBJECT和OBJECT->JSON几个方法,方法有TJsonOptions参数,如:   classfunctionObjectToJsonObject(AObject:TObject;AOptions:TJsonOptions=CDefaultOptions):TJSONObject;typeTJsonOption=(joIgnoreEmptyStrings,joIgnoreEmptyArr

如何在Delphi中给定MIME类型获得标准文件扩展名?

是否有一种内置方法可以在Delphi(XE7)中获得给定MIME类型的标准扩展?我正在寻找实现这样的函数的最简单,最通用的方法:fileExt:=GetExtension('text/xml');看答案hkey_classes_root\mime\database\contenttype\text/html,值扩展。

ios - Delphi TListBox iOS 制作新的项目样式/行为

我需要显示自定义数据。例如,我需要显示包含姓名、描述和照片的联系人列表。理想情况下,我还想在那里显示自定义数据,例如一个启动电话调用的按钮。默认样式并不完全符合我的要求,但相当接近。因此,据我所知,如果我可以创建自定义样式,TListBox可能是一个不错的控件?那可能吗?(当然,另一个问题是设置自定义数据控件的值。) 最佳答案 您应该好好看看FMXCustomListBox示例AFAIK,即使仅此示例似乎已经完全满足您的需要,并且已经设置到位。我花了大约10分钟才根据您的描述从CustomListBox示例中直接生成此结果:包含的F

ios - Delphi TGridLayout 布局和项目之间的填充

我在尝试使用TGridLayout保存一系列TImage对象时得到了一些结果,每个对象都加载了位图。但是,控件之间没有余量。我已经尝试使TImage宽度/高度小于TGridLayoutitemheight/itemwidth,但没有成功。示例代码:ImageRef:=TImage.Create(GridLayoutGallery);ImageRef.Visible:=False;//setruelaterImageRef.Width:=GridLayoutGallery.ItemWidth-10;ImageRef.Height:=GridLayoutGallery.ItemHeight

delphi JSON序列化(五)

关于TJSONConverters的使用unitUnit1;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes,Vcl.Graphics,Vcl.Controls,Vcl.Forms,Vcl.Dialogs,Vcl.StdCtrls,Vcl.Buttons,Rest.JSON.Types,Rest.JsonReflect;typeTForm1=class(TForm)Memo1:TMemo;procedureFormCreate(Sender:TObject);pr

delphi JSON序列化(五)

关于TJSONConverters的使用unitUnit1;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes,Vcl.Graphics,Vcl.Controls,Vcl.Forms,Vcl.Dialogs,Vcl.StdCtrls,Vcl.Buttons,Rest.JSON.Types,Rest.JsonReflect;typeTForm1=class(TForm)Memo1:TMemo;procedureFormCreate(Sender:TObject);pr

php - Delphi DEC库(Rijndael)加密

我正在尝试使用DEC3.0库(DelphiEncryptionCompediumPartI)在Delphi7中加密数据并通过POST将其发送到PHP脚本,我在其中使用mcrypt对其进行解密(RIJNDAEL_256,ECB模式)。德尔福部分:usesWindows,DECUtil,Cipher,Cipher1;functionEncryptMsgData(MsgData,Key:string):string;varRCipher:TCipher_Rijndael;beginRCipher:=TCipher_Rijndael.Create(KeyStr,nil);RCipher.Mod

android - Delphi TTask 安卓服务

我不知道如何在Delphi中正确使用TTask。我创建了一个TTask。syncTask:=ttask.Create(SyncMysqlDatabase);以下代码在onlocationchangevent(位置传感器)中。每次触发onlocationchangevent时运行此代码:if(syncTask.Statusttaskstatus.Running)thenbeginlogi('syncTask.Start');syncTask.Start;end;但是当我再次尝试重新开始(完成后)任务时,出现以下异常:Cannotstartataskthathasalreadycomple

android - Delphi,解决 Google Play 控制台的 "Design your app for tablets"优化提示

将应用APK上传到Google的Play控制台后,我收到一条优化通知:您的正式版APK需要满足以下条件:您的APK应包含适用于常见平板电脑屏幕密度的自定义可绘制资源。做一些挖掘,似乎原因可能是因为APK没有提供“xxxhdpi”192x192图标。最近发布的Delphi10.3中没有为图标提供xxxhdpi图像的选项,是否有解决方法? 最佳答案 您必须手动将192x192像素图标添加到Android部署。确保远程名称是ic_launcher.png并且远程路径是res\drawable-xxxhdpi\Android将根据设备自动加