delphi-2007相关内容

如何获取有关计算机的信息?[32位或64位]

如何获取有关 Windows 操作系统类型的信息?它是32位还是64位?如何以编程方式获取此信息? 解决方案 您需要使用 GetProcAddress() 来检查 IsWow64Process() 运行时函数,如下所示: function Is64BitWindows: boolean;类型TIsWow64Process = function(hProcess: THandle; var ..
发布时间:2021-11-24 23:47:20 C#

检测windows服务状态

当然,如何在 Delphi 2007 中检测 Windows 服务状态并更改其状态. 解决方案 WinSvc 拥有您需要的所有 Windows API 方法.您可以在下面创建一个简单的类界面的单元: unit ServiceManager;界面用途SysUtils、Windows、Winsvc;类型TServiceManager = 类;{ 服务可以处于的状态.}TServiceStat ..
发布时间:2021-09-27 18:36:00 其他开发

如何在Delphi中从HTTPS URL获取图像?

我正尝试从URL开始加载 TImage ,如此答案. 用途GIFImg;过程TForm1.Button1Click(Sender:TObject);变种流:TMemoryStream;GIF:TGIFImage;开始流:= TMemoryStream.Create;GIF:= TGIFImage.Create;尝试IdHTTP1.Get('http://www.google.com/intl/z ..
发布时间:2021-05-15 21:10:03 其他开发

如何拦截和抑制TFrame子组件的消息?

我需要拦截 TEdit 组件的 WM_PASTE 消息,该组件位于 TFrame 的后代类中. 如果不满足条件,我想执行粘贴操作. 有没有一种方法可以在帧级别执行此操作?(我的意思是,没有声明 TEdit 的后代) 解决方案 有没有一种方法可以在帧级别执行此操作?(我的意思是,没有声明 TEdit 的后代) WM_PASTE 直接发送到 TEdit 窗口,而 TFra ..
发布时间:2021-04-30 18:52:19 其他开发

TADOQuery:字段"MyField"的"EDatabaseError类型不匹配,期望:实际的字符串:FixedWideChar"

我有3个不同的数据库(开发数据库,​​同系物和产品),每个数据库都位于以下Oracle版本之一中:11g和10g. 我正在使用TADOQuery一次仅查询其中一个数据库中的某些数据. 当我在开发人员或产品中运行我的应用程序时,它会完美返回数据.但是当我在同源物中运行它时,出现以下错误消息: 'MyData'字段的'EDatabaseError类型不匹配,期望:实际字符串:Fixe ..
发布时间:2021-04-30 18:51:30 其他开发

TMonitor.GetBoundsRect在VNC触发的Delphi 2007中是否存在访问冲突错误?

这是我从运行Delphi 2007中内置的一款大型产品的客户那里获得的崩溃报告,我无法复制,并且甚至没有通过调用堆栈直接涉及任何非VCL代码. > Delphi 2007中TMonitor的VCL源代码非常简单( Forms.pas ) TMonitor.GetBoundsRect 在初始化a之后调用win32 API GetMonitorInfo struct的 cbSize ,以便W ..
发布时间:2021-04-30 18:50:35 其他开发

Delphi远程调试器冻结

我有运行Delphi 2007应用程序的Windows Server 2008 R2计算机.更新:当前无法选择切换Delphi版本.我有Delphi XE,但是在进行任何切换之前,有300,000多行代码需要检查. 我遇到了一个我想单步执行代码的问题.我不想在计算机上安装Delphi,所以我已经安装了远程调试器. 已更新的步骤更完整: 使用远程调试符号编译应用程序 将应用程序和 ..
发布时间:2021-04-30 18:49:07 其他开发

Delphi 2007:GlobalMemoryStatus获取总RAM

我需要使用Delphi 2007获取系统的总物理内存.在具有4GB或更大容量的系统上使用GlobalMemoryStatus似乎会给我带来错误.在Delphi 2007中,GlobalMemoryStatusEx不存在,因此我将函数调用手动添加到程序中.它可以正确返回Windows 7 x64上的内存(8GB),但是在Vista x32系统上,它仍返回不正确的值(在该系统上应为4GB,但返回2.9 ..
发布时间:2021-04-30 18:48:38 其他开发

如何在Delphi 2007中使用最新的Richedit?

如果在表单上放置TRichedit,则无法在控件中粘贴RTF和图像.据我了解,这是由于Delphi 2007使用了旧版本的Richedit控件.有没有简单的方法可以在Delphi 2007的窗体上使用最新的Richedit控件? 解决方案 以下文章介绍了如何在Delphi 2010中执行此操作,该过程与Delphi 2007类似: 在D2010中使用Richedit 4.1 1 ..
发布时间:2021-04-30 18:47:28 其他开发

GetFileVersionInfoSize和GetFileVersionInfo不返回任何内容

GetFileVersionInfoSize为0(零)而且GetFileVersionInfo什么也不返回 我正在使用它,像这样: function FileVersion(const FileName:TFileName):字符串;变种VerInfoSize:红衣主教;VerValueSize:红衣主教;假人:红衣主教;PVerInfo:指针;PVerValue:PVSFixedFil ..
发布时间:2021-04-30 18:47:11 其他开发

如何在ShowMessage中显示表格?

我正在尝试使用ShowMessage显示如下表格: short |简短说明非常长的文字|"verylongtext"的描述 如何在简单的消息对话框中获得两个正确对齐的列? 我试图使用空格对齐列,但是ShowMessage的字体是可变的.然后,我尝试使用制表符将它们对齐,但是我不知道如何计算每一行的正确制表符数. 是否有可靠的方法来计算制表符数量? PS:我想避免为此目的编 ..
发布时间:2021-04-30 18:42:46 其他开发

TWebbrowser大量内存泄漏:迄今为止尚无解决方案

我有一个使用 TWebbrowser 的应用程序来定期导航到特定的URL并提取一些数据.该应用程序保持24x7全天候运行,并在页面中进行大量导航. 问题是 TWebbrowser 有一个众所周知的内存泄漏问题,其中,每次导航到新页面时,用于该应用程序的内存都会增加.一段时间后,我的应用程序可以轻松使用超过2GB的RAM.在导航数百次后,将抛出“内存不足" 或“系统资源不足" 异常,并且解决该 ..
发布时间:2021-04-30 18:40:55 其他开发

如何确定用户帐户是否是AD组的(间接)成员?

如何确定用户帐户是否是AD组的成员,尤其是当用户不是该组的直接成员时 示例: user1是组1的成员 group1是group2的成员 (虚构的)函数调用 IsUserMemberOf('user1','group2')的结果应为 TRUE 对于.NET,有一个解决方案: 静态布尔IsUserMemberOf(字符串userName,字符串groupName){使用(var ..
发布时间:2021-04-02 19:02:44 其他开发

如何在Delphi应用程序中阅读HTML格式的电子邮件?

我创建了一个程序,可以从Exchange 2007中读取电子邮件.但是,它只能读取纯文本格式的电子邮件正文.当我尝试以HTML格式检索电子邮件时,我的软件无法读取正文,并且始终为空白.我正在使用Delphi 2007和IMAP 9. 更新: 这是我的代码: procedure TForm1.tmrCekTimer(Sender: TObject); var TheFlags: ..
发布时间:2020-11-24 20:01:50 其他开发

如何连接Excel 2007 for Delphi7

我可以连接悖论库,oracle等. 现在我想和excel合作 我该怎么办? 解决方案 使用ADO,您可以这样设置连接字符串: ConnectionString:='Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C:\ MyWorkBooks \ myDataBook.xls;扩展属性= Excel 8.0;'; http:/ ..
发布时间:2020-11-01 18:51:25 其他开发

Delphi:使用类帮助器更改按钮颜色

我需要更改我的delphi表单控件的视觉样式,以便在.Net环境中显示它们。为此,我需要将delphi控件的颜色更改为蓝色($ 00FCF5EE)。我广泛使用了不具有“ Color”属性的“ TButton”控件。因此,我没有将按钮更改为快速按钮,而是尝试了另一种方法,即引入父窗体并从该父窗体继承所有其他窗体形成。在父窗体中,我有一个类助手来更改按钮的颜色。下面是代码:(我正在使用Delphi 2 ..
发布时间:2020-10-20 07:33:18 其他开发

模拟外部单击弹出菜单

您知道如果在弹出菜单中单击菜单之外的弹出菜单会如何消失?好吧,我想重现这一点。 当前,单击按钮时,我正在创建一个面板,上面带有一些组件。单击面板上的某个按钮时,面板和子组件将消失。但是,如果您在面板外的任何位置单击,我希望它消失。 解决方案 我认为您需要安装和应用范围内的鼠标消息钩子,如果您的面板可见并且鼠标事件的坐标在面板范围之外,请隐藏该面板。 [编辑:删除了涉及SetCa ..
发布时间:2020-10-20 06:56:57 其他开发

用Delphi 2010或2007升级Delphi 3项目?

我刚收到一份任务,将我在1999年编写的旧的Delphi 3项目升级到新版本并添加功能(我之前在相关问题中对此进行过讨论此处和)。我以为适当的方法是先将开发环境升级到Delphi 2010,然后移植应用程序。 我现在正在考虑是否将应用程序升级到为了避免Unicode复杂性,请改用现有的Delphi 2007版本。该应用程序在美国的一家公司中运行,并严格遵守一个州的要求,因此无法从Unicod ..
发布时间:2020-10-20 06:53:27 其他开发

Delphi 2007和Logitech网络摄像头驱动程序

前一段时间,我遇到了Delphi 2007无法运行Logitech网络摄像头驱动程序时运行和调试应用程序的问题。 显然,Logitech驱动程序在每个驱动器中都插入了一个存根。 已经过去一年了,这仍然是一个问题吗?罗技(Logitech)是否已清理其行为,还是必须将我的网络摄像机转给另一个品牌? 解决方案 根据 Olaf Monien 问题仍在发生即使在Delphi 2009中 ..
发布时间:2020-10-20 06:45:14 其他开发

如何在构造中使用for创建枚举器?

我有一个从TCollection派生的集合,实现了GetEnumerator,因此我可以在lCollection中的lElem do 枚举器是从TObject派生的,就像Delphi提供的标准枚举器一样,因此不会有一个所有者。 Delphi帮助提到,如果枚举器支持IDisposable,它将被丢弃,但这当然仅适用于.NET。 我想知道的是,释放枚举器 ..
发布时间:2020-10-20 06:27:49 其他开发