本文实例讲述了delphi实现将BMP格式图形转化为JPG格式图形的方法。分享给大家供大家参考。具体实现方法如下： 复制代码 代码如下: procedure ConvertBMPtoJPG(SFileName,DFileName:string); Var J:TJpegImage; I:TBitmap; S,D:String; begin s:=SFileN

Delphi 2023年07月12日  102

Delphi 在窗体上创建自己光标的实例 我们知道在文本框等可以接收输入的组件中，我们可以看到闪烁的光标，并可以输入文字，如果我们在，比如窗体上时，因为不支持输入，也无法显示闪烁的光标，那我们 有办法做自己的输入吗？当然可以，下面我们演示在Form上来输入文字。 用到的API函数如下 GetTextMetrics：获取程序当前的字体信息，存放到TEXTMETRIC结构中

Delphi 2023年07月12日  151

背景说明： 前段时间开发一个数据转换的系统，业务逻辑中说明数据需要压缩成.tar.gz格式。 我在Windows系统下采用，先生成批处理文件，然后调用WinExec执行批处理文件，休眠等待一段时间，完成数据的自动压缩。 后来发现，待压缩文件的大小不确定，单纯的执行WinExec时Sleep固定时间，可能导致压缩失败、文件不全或损坏。 优化方案： 取代WinExe用CreateProces

Delphi 2023年07月11日  78

已经钻DELPHI很深了，当然现在DELPHI是过了最辉煌的时代。但为什么要继续下去，而不转向其它的?这是不是死脑筋？ 我看了一下C#的LINQ的产生，然后又被实体框架所代替。思考了一下： 1）LINQ的确是有好处，但是所用的场景又不多，这样就会变得很鸡肋。所以说学新的东西，有时对自己来说不一定有相当大的好处。 2）软件编程发展现在，会有很多花巧的小东西，这些小东西可能带给你好处，但也不一定

Delphi 2023年07月11日  65

Delphi 常见文件处理及注册表文件的使用实例 前言： Registry为我们提供了操作注册表的方法,这里我们用TRegIniFile提供的方法,TRegIniFile继承自TRegistry,TRegIniFile提供的方法类似于前面讲到的操作Ini文件的方法,这样就大大简化了我们操作"神秘"注册表的方法,下面是常用的方法: function CreateKey(const K

Delphi 2023年07月11日  131

快捷键对于提高编程速度有着很重要的影响，本文汇总整理了Delphi常用的快捷键，供大家参考之用： Ctrl+PageUp将光标移至本屏的第一行，屏幕不滚动。 Ctrl+PageDown将光标移至本屏的最后一行，屏幕不滚动。 Ctrl+↓向下滚动屏幕，光标跟随滚动不出本屏。 Ctrl+↑向上滚动屏幕，光标跟随滚动不出本屏。 Ctrl+Shift+NUM在光标行设置最多九个临时标志号，对临时

Delphi 2023年07月11日  125

1，故障现象 一次程序运行，出现如下错误： 对应代码如下： 2，故障分析 Query_alert_2的语句在查询分析器中单独执行是正常的。排除语句出错。 如果注解掉Query_alert_1，则错误变为Query_alert_3执行出错： 2019-07-11 09:32:26 Query_alert_1执行完毕 2019-07-11 09:32:27 Query_alert

Delphi 2023年07月11日  167

本文实例讲述了delphi字符串分隔函数用法。分享给大家供大家参考。具体实现方法如下： 该实例可实现根据字符串Separator的表示将字符串s分隔为若干个字符串，存入rs字符串列表中，具体代码如下： 复制代码 代码如下: procedure SeparateTerms2(s:string;Separator:string;var rs:TStringList); var AStr

Delphi 2023年07月11日  134

1，起因 某delphi程序A使用了Indy9.0.18组件。机器中原本自带老版本的Indy组件9.0.12，后升级到9.0.18，使用一直正常。 某次操作将程序A重新build all了一下，结果提示如下信息，此后即便是compile也会出错。 [Fatal Error] uMain.pas(11): Unit IdServerIOHandlerSocket was compiled

Delphi 2023年07月11日  123

本文实例讲述了Delphi实现截屏存盘的方法。分享给大家供大家参考。具体分析如下： 该实例可实现截取屏幕，并保存为JPEG文件格式的功能。 procedure TForm1.ScreenCap(LeftPos,TopPos,RightPos,BottomPos:integer); var RectWidth,RectHeight:integer; SourceDC,DestD

Delphi 2023年07月11日  67