草庐IT

Delphi7_VCL

全部标签

查询返回没有结果(Delphi,Oracle,DBExpress)

我正在尝试从OracleSQLServer获得查询结果,然后将其插入StringGridShowPapers桌子。我有SQLConnection1(DBExpress连接)设置和工作,SQLDataSetPapers数据集和查询SQLQueryPapers.当我运行此过程时,查询似乎什么都没有返回:procedureTFormOperator.TabSheetShowPapersShow(Sender:TObject);beginSQLQueryShowPapers.SQL.Text:='SELECT*FROMpapers';SQLQueryShowPapers.Open;SQLQuerySh

ios - Delphi Datasnap 连接错误与 IPv6 (iOS)

我们有一个iOS和Android应用程序,它使用Datasnap从终端用户的手机/平板电脑连接到他们的DatasnapWindows数据库服务器。一切正常,只是现在Apple拒绝了我们应用程序的新版本,因为它不兼容IPv6。好的我们的Firemonkey移动应用程序(DelphiSeattle)允许最终用户设置他们自己的服务器配置(IP和端口)。他们必须在他们自己的服务器中运行WindowsPC服务器应用程序,因此,没有任何主机名。他们只知道他们的服务器公共(public)IP地址。服务器应用程序安装在一台简单的WindowsPC中。不是Web服务器、域等,因此没有任何服务器主机名,而

ios - 德尔福 + iOS : Error by "translating" of "UIContextualAction" interface from ObjectiveC to Delphi

我正在尝试通过实现iOS11中可用的两个UITableView委托(delegate)方法,在Delphi中为UITableView添加交换操作:leadingSwipeActionsConfigurationForRowAtIndexPathtrailingSwipeActionsConfigurationForRowAtIndexPathobjective-c:-(nullableUISwipeActionsConfiguration*)tableView:(UITableView*)tableViewleadingSwipeActionsConfigurationForRowAt

php - 使用 Delphi 进行数据库连接和选择(FIREMONKEY - iOS)

我有一个数据库,想用DELPHI和FIREMONKEYCROSSOVER选择一个条目。但我从未在DELPHI上使用过SQL。而且我无法弄清楚如何使用DELPHI连接到数据库。我不想满手都是组件。它应该是一个简单的连接,就像使用PHP一样。我使用XAMPP-mySQL。假设我们有一个数据库“db_x”,其中有一个表“users”,在该表中有以下条目:姓名:迈克尔;姓氏:施耐德;年龄:22。数据库位于“localhost”或其他地方,登录名是“root”,密码是“rootpw”。要在PHP中连接到数据库,我们使用:mysql_connect("localhost","root","root

ios - Delphi iOS 和平移手势 - 距离始终为零

我有这个(现在可以使用)代码,它基于我在不同地方收集的位:procedureTFormMain.imgMapsGesture(Sender:TObject;constEventInfo:TGestureEventInfo;varHandled:Boolean);varLObj:IControl;LImage:TImage;W:Single;H:Single;beginLImage:=nil;LObj:=Self.ObjectAtPoint(ClientToScreen(EventInfo.Location));if(LObjisTImage)and(LObj.Visible)thenb

android - 如何使用 Delphi 为 android 和 ios 实现共享文本选项

我正在使用Delphi10.1.2Berlin开发android和iOs移动应用程序。我遇到了issue用于Facebook文本共享选项。我怎样才能使用SDK实现Facebook文本共享选项?而且我没有找到任何使用Delphi在FB中共享文本的明确帮助文件。请帮助我并提前致谢。 最佳答案 这是多平台版本:usesFMX.Platform,FMX.MediaLibrary;procedureShareTextWith(constaText:string);varvSharingService:IFMXShareSheetActions

Delphi7_VCL线程的使用(一)

1、TThread类的属性  (1)FreeOnTerminate属性  该属性用于指定当前的线程终止时是否自动删除线程对象。默认值为true。  语法: 1PropertyFreeOnTerminate:Boolen;   (2)priority属性  该属性用设置线程的优先级,线程的优先级是对同一进程的其他优先级而言的。  语法:1Propertypriority:TThreadPriority;   指定线程的优先级为低,代码如下:1var2SecondProcess:TMyThread;3begin4SecondProcess:=TMyThread.Create(True);5Seco

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