Delphi

将图像加载到TImageList并阅读它们?

我正在尝试通过将.jpg转换为bmp然后将其保存到imagelist1来将jpg加载到图像列表中。 从上到下的代码剪辑。 Selectdir作品和fileexists的作品。这是用来加载在一个文件夹中的所有图像。所有的图像命名如so 0.jpg / 1.jpg ect .. 然后我加载jpg一个tpicture。设置bmp宽度/高度,并加载与jpg相同的图像的bmp,​​然后将bmp ..
发布时间:2017-04-28 21:02:45 Delphi

使用他的ClassType转换TObject?

我如何使我的代码工作? :)我试图制定这个问题,但经过几次失败的尝试,我想你们会发现问题更快地看代码,而不是阅读我的“解释”。谢谢。 setCtrlState([memo1,edit1,button1],False); _ procedure setCtrlState(objs:数组的TObject; bState:boolean = True); va ..
发布时间:2017-04-28 21:00:58 Delphi

使用TJpegImage组件将bmp转换为JPG

我有一个bmp文件,我试图把它转换成jpeg格式。使用以下代码创建的jpeg失去了很多的清晰度。我已经尝试调整许多设置无效。有没有人有一个将bmp文件转换成jpeg的功能? var Bmp:TBitmap; Jpg:TJPEGImage; begin Bmp:= TBitmap.Create; Jpg:= TJPEGImage.Create; try Bmp.L ..
发布时间:2017-04-28 21:00:22 Delphi

如何编写Delphi编译时函数

Delphi - 可以为编译时使用可执行的const和var声明编写自己的编译时函数。 标准Delphi lib包含用于常量初始化的例如Ord(),Chr(),Trunc(),Round(),High()等。 > 我可以自己编写,在编译时执行例程,并将结果用作常量吗? 解决方案 你不能写自己的内在功能。因为这需要编译器魔法。 但是可能还有其他选项来实现你的目标。 预 ..
发布时间:2017-04-28 20:59:57 Delphi

FastMM4,DebugGetMem中偶尔访问冲突

我正在尝试追踪访问冲突。重现性似乎是非确定性的,很少见,所以我想在我进一步了解之前先检查一下我的假设。 访问冲突在FaseMM4 4.991 ,在函数DebugGetMem中,在以下代码中: if(ASize>(MaximumMediumBlockSize - BlockHeaderSize - FullDebugBlockOverhead)) 或CheckFreeBlock ..
发布时间:2017-04-28 20:59:44 Delphi

在运行时使用RTTI查找Delphi中的所有类助手?

Delphi 2010中的扩展RTTI是否提供了一种列出定义的类和记录助手在运行时? 据我所知Delphi 不显示提示或警告,当定义了多个类助手时一个类,类帮助检测可能是“质量保证”中的一个有用的例程。 ps当然,我知道我永远不应该使用没有源代码的第三方组件或库,这样可以很容易地对类助手进行grep。 解决方案 由于类助手仅适用于基于范围中“最近”的帮助器的类,所以类根本无法知 ..
发布时间:2017-04-28 20:59:22 Delphi

在Delphi 7中进行字符串转换

我想使用这个功能将unicode字符串转换为ANSI: function convertU(ws:widestring):string; begin result:= string(ws); 结束 我也使用此代码设置正确的代码页转换。 初始化 SetThreadLocale(GetSystemDefaultLCID); GetFormatSettin ..
发布时间:2017-04-28 20:57:58 Delphi

为什么Jpeg在一些项目中的uses子句中被接受,而在其他项目中,vpe.imaging.jpeg是必需的?

我正在更新一些项目到XE2,我不明白为什么在某些项目上 使用jpeg; 被接受 需要写 使用vcl.imaging.jpeg; 请问您可以解释一下吗? 解决方案 区别在于各种项目的项目选项中的单位范围名称设置。 如果您有 Vcl.Imaging 包含在该设置中,则不需要完全指定单位范围。通常,从以前的Delphi版本升级 ..
发布时间:2017-04-28 20:57:34 Delphi

multipart / mixed消息中的边界字符串不正确

我正在使用Delphi 2006,在个人使用专用应用程序中创建并发送带有附件的电子邮件。我发送带有TIdSMTP实例的消息,然后将副本放在具有TIdIMAP4实例的特定IMAP文件夹中。这一切都非常好地与使用BDS2006分发的Indy 10版本有一个例外:电子邮件头中的时间总是不正确。 我决定修复如果可以,并且在搜索解决方案之后,最合适的是获取最新的Indy 10快照并使用它。 将正 ..
发布时间:2017-04-28 20:51:29 Delphi

德尔福GLScene出口场景为stl

我有一个 GLScene 项目。在 SceneViewer 中,我将一些stl文件导入为自由格式。 用户可以与这个对象进行交互(用鼠标移动并旋转它们) 现在我必须导出这个整个 Scene 到一个 stl文件,所以 freeforms 的位置和轮换应该像场景此导出后(“合并”)。 我发现这个线程关于同样的问题:将”场景“导出到STL文件,但这会创建一个破碎的stl文件(试图用meshl ..
发布时间:2017-04-28 20:51:17 Delphi

如何添加相框并在图像中插入文字?

这是我需要的:为更快的为facebook页面制作乐趣海报的节目。 海报有文字,图片和框架(白线和黑色背景)。 在这种情况下,我想在海报上插入徽标(png图像)。 根据图片大小,框架尺寸(在这种情况下属于两个形状)必须自动调整大小。 如何从链接(2个形状组件,2个图像组件,2个标签)中保存该图像的海报作为图片? 如何完成这个?使用什么,从哪里开始? 我希望这个问题不会被删 ..
发布时间:2017-04-28 20:50:27 Delphi

在Delphi中使用框架的接受方式是什么?

我主要是一个Delphi爱好者,而不是专业人士,所以我不得不学习如何使用TFrames我自己的方式女巫是: 在它的单位内创建一个TFrame。 添加该单元以主窗体Uses子句为单位。 拥有该TFrame类型的私有变量 该表单的OnCreate将启动TFrame并将其附加到一个TPanel在创建和.Parent 在我的一个操作中设置TFrame.Visible:= True和.Brin ..
发布时间:2017-04-28 20:50:11 Delphi

如何阻止Delphi DataSnap错误消息对话框?

我们在Windows 2003 Server上运行DataSnap Delphi 2009应用程序。 DataSnap客户端和服务器位于同一台计算机上,通过Borland Socketserver使用DCOM。客户端运行后台批处理作业。 有时,我们发现客户端无法连接到服务器应用程序,并在服务器桌面上显示一条消息对话框,无法连接到服务器,无法找到网络路径。“或“Objectexporter n ..
发布时间:2017-04-28 20:49:23 Delphi

检查鼠标LButton是否关闭?

我如何检查鼠标左键是否按下/拖动某些东西(我预先提到了第一种可能性)。 我试过Mouse.IsDraging,但没有结果。 注意:我在我的应用程序中处理鼠标消息,所以如果它的WM是没有问题的,只是分享一个方法来完成我的任务。 解决方案 有一个Windows API函数 GetAsyncKeyState() ,尽管它的名字也可用于获取鼠标按钮的状态。链接的文档直接包含您的问题的答 ..
发布时间:2017-04-28 20:49:11 Delphi

为什么ADO Next记录处理在Delphi中减慢?

我有一个Delphi 4程序,我开发了很多年前,使用 Opus DirectAccess 顺序搜索Microsoft Access数据库并检索所需的记录。 Delphi 4没有ADO,所以我正在使用DirectAccess。 但是我现在已经升级到Delphi 2009,并将程序转换为使用ADO。我发现,通过表(大约100,000条记录)的循环与DirectAccess一样快,但是随着它的进行 ..
发布时间:2017-04-28 20:48:58 Delphi