如何在TIdHTTPServer上将IP列入黑名单
在 TIdHTTPServer 组件中，我想启用IP地址黑名单进行阻止。我想确保此级别处于最低级别，以防止来自黑名单客户端的任何不必要的数据流流入。我应该如何拦截此服务器组件以在最低级别上阻止IP？这适用于IP v4和v6 解决方案 在Indy 9上，有一个事件在实际被接受之前拒绝连接。在Indy 10上，它仍未实现。 如果您查看IdCustomTCPServer.pas，则在过程T
..
delphi-xe2相关内容
Delphi：模拟从剪贴板到EmbeddedWB的IHTMLElement的拖放
我有一个带有TEmbeddedWB的Delphi XE2应用程序，用于模拟用户操作。该应用程序导航到一个URL，使用数据填充相关的表单字段并提交数据。问题是，存在一个 字段，该字段接受上载的文件。 我已经了解了很多有关此程序的安全性问题，但发现有人建议将文件“拖出”剪贴板并“放置”到位。此后，我已经成功地将相关文件（jpeg图像）加载到剪贴板中（感谢CCR.Clipboa
..
当按下任意箭头键时，Delphi -drawgrid将显示多个已绘制单元格的实例。如何纠正
当我按下按钮时，选定的单元格将在Delphi drawgrid中绘制。但是当我按任意箭头键时，绘制的单元格会出现多次。 图片显示3个块。蓝色的是实际的颜色，而蓝色的是2个浅绿色的颜色，它们是按下任意箭头键后绘制的颜色。 调用create_env过程时，会传递当前（或某个日期）日期 单位预订2； 界面 使用 Winapi.Windows，Winapi.Messages，
..
背景值为空
我有 属性背景：TPicture读取FBackground写入SetBackground； 如果没有任何帮助，那么背景价值是多少？ 我尝试过 如果Background = NULL则 开始 ... .. ... 结束； 解决方案 这取决于。当在构造函数中创建该字段并分配了FBackground时，然后使用： 如果FB
..
如何根据图形控件的大小自动绘制文本
我有一个 graphiccontrol 并试图在画布上绘制文本。目前，我正在执行 Canvas.Textout（），但是因为如果画布区域增大了文本，我会手动设置值。我想使文字也增加。例如。 {设置卡的功率并将其绘制在tcard上} // ----- -------------------------------------------------- ----- 过程TCard.Dra
..
Delphi7和Delphi XE2中的Delphi HID
我在Delphi 7中制作了一个小程序，以显示所有连接的HID设备的一些详细信息。我只使用了 SetupAPI ， Moduleloader 和 HID.pas 。这很完美。 当我使用相同的代码并在Delphi XE2或2010中编译该代码时，它无法产生所需的输出。 可能与指针转换有关，但我找不到根本原因。 任何人都可以帮忙。 这是我的代码： unit Unit1;
..
Delphi XE2-尝试从Intuit获取OAuth访问令牌时总是得到401 Unauthorized（）
我正在与Intuit一起进行OAuth舞蹈的最后一步。 这是Delphi XE2桌面应用程序，我正在使用Indy组件。 我已经从Intuit成功获取了我的请求令牌，并且在授权我的应用程序之后，他们网站的回调将我正确地重定向到了我们的网络服务。 使用Intuit返回的验证程序，我构建了获取访问令牌的请求。 我总是返回 HTTP / 1.1 401致电Intuit时发生未经授权
..
检查ID为ID的元素是否具有值
如何检查元素 p 中具有 Id =“ SomeID” 的“某些文本值” ？
某些文本值 此处为函数形式。
..
如何在TChart中为Firemonkey关闭抗锯齿？
有人知道如何在Delphi XE2中为Firemonkey关闭TChart中的抗锯齿吗？ 解决方案 FireMonkey Canvas可以 必须使用Form1.Quality属性在表单级别（从XE4开始）完成。 >
..
Delphi自定义表单图标设置
我是Delphi学习者。我有一些Delphi项目。在我所有的项目中，除了ApplicationIcon之外，我都使用了单独的FormIcon。 FormIcon具有256X256、48X48、32X32和16X16不同大小的图标。我注意到在WinXP和Win7中，“ Alt + Tab”显示了模糊的FromIcon。在Win7中，任务栏中的FormIcon也变得模糊。我认为这是由于使用16X16大
..
尝试为字符串实现类助手时为什么会出现E2029错误？
我们想创建一个非常方便且稳定的数据类型转换，这里使用Delphi中的 class helper 功能进行字符串数据类型转换。 type TStringHelper =字符串的类助手 public function AsBoolean：Boolean; ... 结尾； {TStringHelper} 函数TStringHelper.AsBoolean：布尔值;
..
以编程方式打印为PDF
我有一个客户希望同时打印到PDF和物理打印机。他们不希望从PDF打印物理副本，这是我不知道的原因。我尝试将其保存为临时RTF文件，然后调用ShellExecute来打印到Adobe，但似乎无法正常工作。 有人可以在没有第三方PDF库的情况下进行操作吗？从文件打印为PDF？ 更新：为了澄清一点，用户正在使用动态文档创建者。他们在TRichEdit中在屏幕上看到预览文本，当前的打印方法是T
..
使用CreateOleObject（'Outlook.Application'）导致“服务器执行失败”。以管理员身份运行时出错
这是一个Delphi XE2应用。很简单只需调用CreateOleObject（'Outlook.Application'）并将结果分配给Variant。 如果程序以管理员身份运行，则会失败，并显示“服务器执行失败”，但是它可以正常工作，并且如果我以登录用户身份运行（没有提升的权限），我可以获得版本号。 这是为什么？以管理员身份运行会阻止其创建对象？ 解决方案 此错误是由于安全
..
列表和BinarySearch索引并非每一个都正确
我再次遇到有关列表和二进制搜索的问题。通常，我有： type TMyArr =整数[1..5]数组； PMyList =记录 Comb：TMyArr; ... //其他字段 结尾； TMyList = TList
..
从文件中查找Delphi字符串
我有一个具有3种表单（TForm1，TForm2，TForm3）的应用程序。我需要以下代码： 在TForm1.BitBtn中单击“ 10.220.70.32 BSNLESDP25A”和“ 10.220.70.33 BSNLESDP25B”将从位于“％windir％\System32\驱动程序”的“主机”文件中搜索\etc“目录。如果找到，则“主机”文件属性将更改为“只读”，并且将显示“系统”和F
..
带条件的订单清单选择运行时
如果我有一个具有更多字段的泛型列表，例如： PMyList = record Field1，Field2， ... FieldN：整数； 结尾； TMyList = List
..
出现SQLite异常并显示消息：没有这样的表
我创建了一个从计算机收集信息（计算机名称，CPU，内存等）的应用程序，但是我很难显示存储在SQLite数据库中的信息，当我执行查询时，我得到“否当我确定知道我有一个称为“硬件”的表时，出现“ SUCH TABLE”消息？ 这里是我用来执行查询的代码： 程序TMain.executeButtonClick（Sender：TObject）; var 结果：TDataSet; 查询：
..
TurboPower B树文件管理器和Delphi XE2-有人做过吗？
我可能是地球上最后一个依靠B-Tree Filer的家伙，但是我从Delphi 2007跳到了XE2。 在克服了所有的AnsiChar之后和PAnsiChar问题，代码现在在页面上显示零项的范围检查导致崩溃。 有人在Delphi XE2下成功运行B-Tree Filer吗？如果是这样，您会怎么做？ ：） 更新此处的范围检查错误： 过程IsamUnPack（var Page：
..
使用计时器进行Delphi表单切换
我是Delphi学习者。 A有一个具有2个表单（“ Form001”和“ Form002”）的项目。在“ Form001”上有一个Button（“ BitBtn001”）。 “ Form001”和“ Form002”都由“ FadeInTimer”创建，并由“ FadeOutTimer”使用“ FormCloseQuery”关闭。通过“ FormMinimizeTimer”将这两个窗体最小化，并通
..
Firemonkey和TDownloadUrl
我有一个（Delphi XE2）VCL应用程序，其中包含对象TDownloadUrl（VCL.ExtActns）以检查多个网页，因此我想知道FireMonkey中是否存在等效的对象，因为我想利用此新功能的丰富功能平台。 使用线程的Firemonkey应用程序演示将不胜感激。 解决方案 FireMonkey尚不存在操作。 顺便说一句，您可以使用以下代码创建相同的行为： I
..