Delphi中的Fast Swap64函数
我使用以下函数交换(无符号)64位整数值： function Swap64(I: Int64): Int64; begin Int64Rec(Result).Bytes[0] := Int64Rec(I).Bytes[7]; Int64Rec(Result).Bytes[1] := Int64Rec(I).Bytes[6]; Int64Rec(Result).Bytes[2] :
..
delphi相关内容
如何访问Sender参数正在引用的组件(激发事件的组件)的属性
我是Delphi和Pascal的新手，我想知道是否有一种方法可以获取/访问发送者在过程中引用的组件的属性。 更具体地说，我想创建一个过程来更改标签的标题属性，该标签是发件人引用的组件。 我设想该过程如下所示： procedure TForm1.LabelEdit(Sender: TObject); begin Sender.caption := 'Sample Text'; e
..
如何用XE2dbxJSON解析JSON
我正在使用XE2并尝试解析由机器人发送到URL的JSON文件。我已经研究了几种解决方案，但由于我的Delphi版本，大多数都不适用。我尝试应用我在这里找到的解决方案：How to parse nested JSON object in Delphi XE2?，但我似乎想不出如何获取我需要的信息。 JSON字符串： {"ATTITUDE":{"message_information":{
..
安装XE2更新3后出现EPackageRegistrationException错误
安装XE2更新3后(全新安装XE2)-尝试启动Delphi XE2时出现以下错误 00031835处模块核心160.bpl中的异常EPackageRegistrationException。 注册过程，TogetherReg.IDE在c：程序包中注册：程序文件hamcadero AD Studio9.0BinTGIDE160.bpl引发异常类EOleSysError：未定义类，ClassID
..
菜单最后一项右侧的Shift键
Delphi Xe2U4。主菜单项：文件、选项、帮助(名称：HelpMenuItem)。2个按钮。使用StyleManager XE2(在项目选项中启用了XE2主题，默认设置为‘Metro Blue’)。 Procedure TForm1.RightMenu; // Shift in the right of last item of the menu var mii: TMenuItemI
..
IDE中的错误洞察错误有解决方法吗？
XE2将在编辑器中标记一个错误，通常是关于缺少成员函数的错误(如图所示)。但是，它将正常编译，并且代码将运行良好。 如果您使用CTRL+空格请求列表，它将提供正确的列表。 Delphi XE2 IDE中是否有针对上述错误的变通方法/解决方案？ 这样我就不会因为编辑器中的错误而得到不正确的标记？ 请注意，这个问题Delphi XE2 background IDE compiler una
..
如何将Delphi中的文件读入字节数组？
我正在尝试在Delphi XE2中将文件读入字节数组。 这是我当前的代码： function FileToBytes(const AName: string; var Bytes: TBytes): Boolean; var Ms: TMemoryStream; begin Result := False; if not FileExists(AName) then
..
如何调用EnumWindowsProc？
我正在尝试列出我计算机上正在运行的所有进程。 我的简短示例代码中的EnumWindowsProc()调用语句有什么问题。我的编译器声明，在这一行中： EnumWindows(@EnumWindowsProc, ListBox1); 函数调用中需要有一个变量。我应该如何将@EnumWindowsProc更改为变量？ unit Unit_process_logger; inte
..
从BLOB文件Delphi XE2读取msword
我在从包含mword文件的数据库中读取BLOB字段并将其保存到文件(.doc/.docx)时遇到问题。什么是Moree这在Delphi 2010中很有效，但在Delphi XE2中保存的文件无效。这是我的代码 dane.SQLtmp.Close; dane.SQLtmp.SQL.Clear; dane.SQLtmp.SQL.Add('select wydruk,typ,IdWydruku
..
Delphi中文本文件的编写性能
我的程序正在处理传入的字符串(来自Telnet、HTTP等)，我必须使用Delphi XE2将这些字符串写入文本文件以用于日志记录。 有时程序可能会崩溃，而我需要确保剩余的字符串不会丢失，因此我打开/关闭了每个传入字符串的文件，结果出现了一些性能问题。例如，下面的代码需要8秒才能完成。 我的代码包含在下面，有什么方法可以提高性能吗？ (对于下面的测试，只需创建一个具有Button :
..
创建C#DLL并从Delphi调用
我想使用Delphi的第三方DotNet库(只有几个函数)，并计划创建一个C#DLL作为接口。我用C#(VS 2019/.NET5)创建了一个简单的演示DLL作为测试，其中包含一个返回整数的函数(稍后，我想添加一个返回字符串的函数)。从Delphi 10.4调用DLL时，我收到以下错误： 在动态链接库D：源CodeDelphiTestDLLCSharpWin64DebugTestDLLPro
..
我正在寻找CRC-16/ARC Delphi(Pascal)函数
我正在寻找Delphi(Pascal)中的CRC-16/ARC函数。 字节数： 5a 02 20 70 11 15 20 26 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0
..
TMonitor中是否有针对AV的运行时补丁？
以下是Delphi 7和2007(可能还有其他版本)中的已知错误 Does TMonitor.GetBoundsRect have an access violation bug in Delphi 2007 triggered by VNC? 有一个关于如何通过重新编译forms.pas来修复它的答案，但我不想重新编译RTL单元。有没有人为它创建了运行时补丁，例如使用Andy Hau
..
用Delphi代码更改SAPI Microsoft语音对象库语音
我正在使用‘Microsoft Speech Object Library’，我想通过Delphi代码更改默认语音。 我的默认声音是一个女人在说话。如果其他人有空，我如何将其更改为其他人？ 我使用的是SAPI 5.4和Delphi XE6。 推荐答案 您没有说明您使用的是哪个版本的SAPI，也没有显示您用来调用SAPI的代码。 例如，在SAPI 5中，ISpVoice接口
..
在火猴应用程序中播放gif图片动画
如何使用将在Android和iOS应用程序中使用的火猴播放gif图片动画？ 我正在使用Delphi XE 8。 注意：我看到了这个问题Animated GIF in Firemonkey 但我并不是只将动画作为精灵文件作为单个gif文件。 推荐答案 您可以使用第三方库。最佳选项之一是Skia4Delphi：https://github.com/skia4delphi/skia4
..
如果DirectShow的输入引脚不支持IAMBufferNeatheration，如何更改DirectShow呈现器的缓冲区大小？
我有一个用Delphi6编写的DirectShow应用程序。我想将呈现器的缓冲区大小从当前的500ms值减少到更小的值。问题是，它的输入引脚不支持IAMBufferNeairation，这很奇怪，因为呈现器是我的VOIP电话上的耳机，而且它显然需要更小的缓冲区大小，以避免电话呼叫期间令人不快的延迟。 我在图形编辑中尝试了一个环回测试，将VOIP电话的捕获过滤器(麦克风)连接到呈现器(耳机)。
..
RichEdit2.0使用单个CR字符作为换行符导致SelStart计算失败(Delphi XE2)
从Delphi 2006过渡到Delphi XE2时，我们了解到的一件事是，RichEdit2.0将内部CRLF对替换为单个CR字符。这会产生一个不幸的效果，那就是打乱了基于VCL一侧实际文本字符串的所有字符索引计算。 我通过跟踪VCL代码可以看到如下行为： 发送WM_GETTEXT消息(在TControl.GetTextBuf中完成)将返回包含CRLF对的文本缓冲区。 发送WM_G
..
WS Security 1.2在SOAP Web服务Delphi XE8中用于签名正文
我读到过，没有办法从HTTPIO创建具有ws-Security的消息，只能修改在之前执行中生成的、覆盖流内容的XML。 但我想知道如何对该XML的正文部分进行签名。 在JBoss中，这是示例(https://docs.jboss.org/author/display/WFLY10/WS-Security.html)，但我在Delphi中找不到Do It的类或方法。 wsdl定义包括导入
..
使用UPnP转发端口-关闭端口
我正在使用Port Forwarding by Using "HNetCfg.NATUPnP" Ole Object Failed中的代码进行端口转发，工作正常，只是在应用程序终止时无法关闭端口。 AddUPnPEntry(1234, 'Hello3', '192.168.1.34'); 尽管我重启了我的电脑，但1234端口仍然打开，我在canyouseame.org上测试了它。 那么，
..
再次用Delphi实现OpenOffice计算
我用的是搜索引擎，不只是这里，我已经厌倦了；我只想要一个简单的问题的简单答案(或链接)： 如何打开计算表并将123从Delphi(7)代码写入单元格A1？(或者任何关于Calc的问候世界？) 推荐答案 好的，经过研究和使用上面的信息，我非常感谢，这是一个简单的答案： 使用部件 Uses ComObj, OOoMessages, OOoTools, OOoConstants
..