delphi-xe

1热度

1回答

当菜单项被禁用，然后在控制应用程序中将代码“PostMessage”传递给崩溃，因为我需要检查菜单项是Enabled，然后使用PostMessage。 HandleMenu:= GetMenu(ParentAppHandle); HandleMenu:= GetSubMenu(HandleMenu, 6 {menu item no}); item:= GetMenuItemID

0热度

1回答

DCC Error，uPriority.pas（34）：E2004标识符重新声明：'frmPri'

真的需要一些帮助，可能是一个简单的解决方案，而不是专家程序员！现在我没有在我的项目中的任何单位使用frmPri，所以我不知道为什么会发生这种情况？谢谢你们， Ç

1热度

1回答

在NLS_NUMERIC_CHARACTERS中插入/更新十进制分隔符逗号的SQL查询

我需要创建批量插入/更新查询，因为它需要以字符串格式传递ORACLE SQL查询，而且我无法使用参数化查询，因为Delphi中的SQL查询字符串解析。我的问题是，在创建这些查询并传递float值时，我应该关心数据库的NLS_NUMERIC_CHARACTERS吗？现在，我通过我的疑问是： "INSERT ALL INTO TABLE EMPLOYEE (EMP_ID, EMP_SAL)

3热度

1回答

德尔福：通过Outlook与多个附件

您好所有专家发送电子邮件， procedure TForm1.domail(Sender: TObject; fromname, fromadd, sub, toadd, thedocdone, theacc: string; body: widestring); const olMailItem = 0; var Outlook: OLEVariant; vma

0热度

1回答

将检查项目保存并加载到.ini文件

我想保存到.ini文件并从保存的ini文件中填充checklistbox项目之后。我有2个列表框状... 首先列表框包含表：汽车客户用户供应商第二个列表框链接到第一，如果我点击Cars表并检查它，以下数据将在第二个清单框中可见... 第二个列表框包含表中的字段： CARS - Car_ID - Car_Name - Car_LicNum - Car_Color etc.. US

1热度

1回答

日本字符编码

我有日文字符串'ぱはめ'。我想将它转换成'％82％CF％82％CD％82％DF'。我希望有人会给我一个这种转换的功能。

0热度

1回答

设备接口活动，获取设备名称

基于this blog post，我已经写了一些代码来检测USB设备： PDevBroadcastDeviceInterface = ^DEV_BROADCAST_DEVICEINTERFACE; DEV_BROADCAST_DEVICEINTERFACE = record dbcc_size : DWORD; dbcc_devicetype : DWORD; db

0热度

1回答

将TFDMemTable数据附加到一个XML文件中

是否有任何方法将所有数据库记录和结构多个查询整合到一个XML文件中？我所做的是： procedure CopyRecords(Sender: TObject); begin try TFDQuery.SQL.Text := 'SELECT * FROM SAMPLE_TABLE1'; TFDQuery.FetchOptions.Unidirectional :=

-1热度

1回答

VBScript错误：所需的对象： 'WScript的'

有人能告诉我为什么这行错误：如果我运行这段代码 Object required: 'wscript' ： set my_obj = wscript.CreateObject("ObjectTest","pref_") 它给这个错误 Set WScript = CreateObject("WScript.Shell") set my_obj = CreateObject("ObjectTest

1热度

1回答

用TwebBrowser登录可以登录网站，但是不能用TidHTTP登录

请问使用Indy登录网站可以获得一些帮助吗？首先，就像一个“概念验证”我用了一个TWebBrowser来测试我的凭据以下列方式... procedure TfrmMain.cxButton1Click(Sender: TObject); begin webBrow.Navigate('http://assurance.redtractor.org.uk/rtassurance/ser