草庐IT

delphi-2010

全部标签

Delphi中将ShowMessage,MessageDlg, MessageBox,InputBox,InputQuery及任意模态窗口相对主窗口(父窗口、母窗口)居中

Delphi中调用系统的一些Modal模态对话框(如ShowMessage,MessageDlg,Application.MessageBox,InputBox,InputQuery等),一般是屏幕居中,也有其他窗体的TForm.Position未定义主窗口居中poMainFormCenter,若主窗口不在屏幕中间或多个显示屏时,这些对话框位置就不在主窗口中间,既不美观也不便于操作。本文提供一简易方法,不修改模态对话框任何代码,实现将任意模态窗口相对于主窗口(或任意父窗口)居中。本方法也可移植到C#,Java等procedureNextModalFormMoveToMyCenter(Owner

Delphi控件安装之BAT(批处理)方式-FastReport

更多关于Delphi控件安装说明,请看这里。针对FastReport安装的特别说明其关联了TeeChart组件,所以须先安装TeeChart,并在FastReprt正确设置(tee.inc)汉化乱码问题,是官方Res\frcc.exe文件导致(在转换Res目录下xml语言包文件为Delphi的pas文件,换行时把一个汉字从中间分开了)。分享网友的修正版frcc.exe及源码。FRInstallerD7v2.rar(fr2.x版D7+WinXP/Win7测试OK)FRInstallerD7v6.rar(fr6.x版D7+WinXP/Win7测试OK)FRInstallerD7v2021.rar(

ios - Delphi XE4 iOS 加载位图 - 未加载文件

我的XE4应用程序在win上运行良好,但无法在iOS中加载位图。该文件确实存在(已在终端窗口中检查过)并且Findfirst找到了它。我在iOS中没有异常,但如果文件在win中不存在,我会得到一个异常,因此“IsEmpty”检查在iOS中返回true。那么,关于为什么它不加载存在的文件并且不引发异常的任何线索?干杯。{$IFDEFMSWINDOWS}ifFindFirst('.\*.*',faAnyFile,SR)=0thenrepeatshowmessage(SR.Name);untilFindNext(SR)0;FindClose(SR);imgImage.Bitmap.LoadF

ios - Delphi FireMonkey 中的 UIView animateWithDuration

使用Delphi和FireMonkey执行与UIViewanimateWithDuration相同的操作的最佳方法是什么?我希望它能在iOS和Android上运行(使用DelphiXE5) 最佳答案 在我的例子中,我试图为TImageControl的大小设置动画。这是我做的:我将一个TFloatAnimation控件拖到Canvas上。使用Delphi中的结构Pane,我将FloatAnimation1拖到ImageControl1上,因此它在结构Pane中显示为ImageControl1的嵌套组件。根据自己的喜好设置Duratio

为了安全,自己搭建KMS,成功激活Office2010

在本篇文章中,将全过程描述OfficeProfessionalPlus2010WithSP1VOL从下载到自建KMS服务器再到激活的过程。本文展示的是64位版本,32位版本的方法类似。特别注意:KMS激活仅限于VOL版本,其他的零售版无法激活!!!本文KMS安装的环境为windowsservice,其余环境大体相同。下载OfficeProfessionalPlus2010WithSP1VOL首先下载原版的Office2010,下载完成后务必验证下载的文件的校验值,具体校验值如下:File:SW_DVD5_Office_Professional_Plus_2010w_SP1_64Bit_ChnS

ios - 应用程序运行时的 Delphi Apple 推送通知

我正在使用DelphiRadStudioSeattle10构建一个iOS应用程序。此应用程序必须接收推送通知。这对我有用,但是当应用程序运行时,它确实会收到任何通知。我做错了什么?代码如下:varAPushService:TPushService;AServiceConnection:TPushServiceConnection;ADeviceID,AdeviceToken:String;APushService:=TPushServiceManager.Instance.GetServiceByName(TPushService.TServiceNames.APS);AService

ios - 当我尝试在 iOS 上运行时,Delphi 说我缺少一个文件

我一直在Mac内的虚拟机中编译和运行Delphi。我刚得到一台单独的PC(Win10),安装了Delphi,并希望从新安装的系统中编译和运行Mac和OSX应用程序。所以这就是我所做的:Mac上的一切都已设置并正常运行。我会保留细节,但这不是我的问题所在。我在我的开发机器上创建了一个连接配置文件,它成功了——测试连接正常工作。我在stepsoutlinedontheEmbarcaderodocwiki之后为MacOSX和iOS-64位添加了SDK。.添加的SDK版本为iPhoneOS11.2。此时,我在MacOSX上编译和运行应用程序没有遇到任何问题。但是,当我在iOS上尝试它时,出现错

ios - 从 delphi 调用 objective-c 代码块

我正在尝试在我的firemonkey应用程序中进行后台获取。到目前为止,我的perfromFetchWithCompletionHandler被调用并下载了新信息。当我完成获取并需要调用completionHandler代码块时,问题就来了,应用程序挂起并且我没有收到任何异常(我至少可以阅读)设置:TBackgroundFetchResultHandlerC=procedure(AResult:NSUInteger);cdecl;....procedureperformFetchWithCompletionHandler(self:id;_cmd:SEL;application:PUI

android - 如何获取应用程序ID(包+模块名)delphi XE5/XE6/XE7

有没有办法在DelphiXE7中获取Android和iOS运行时的应用程序ID?对于Android,您可以在以下位置查看应用程序ID:项目选项->版本信息(目标Android)->包对于iOS:项目选项->版本信息(目标iOS)->CFBundleName提前致谢! 最佳答案 读取Android包名:usesAndroidapi.Helpers;functionPackageName:string;beginResult:=JStringToString(SharedActivityContext.getPackageName);e

Delphi 通过TNetHTTPClient访问http,最新解析快手无水印视频地址链接方法

 一、解析快手无水印视频链接原理共分三个步骤:1.通过视频分享获得视频地址短链接;如:https://www.kuaishou.com/f/X7tIV0jIivYUyTk2.通过TNetHTTPClient重定向获得视频地址长链接;如:https://www.kuaishou.com/short-video/3xvx3jg7ffi3xrs?authorId=3xcjmgxvqvwr65y&streamSource=profile&area=profilexxnull3.通过地址长链接得到视频ID;如:本视频的ID为:3xvx3jg7ffi3xrs4.通过TNetHTTPClient发送一个包含