delphi内存占用讨论，欢迎大家发言 -----如何让程序占用内存最少

飞天揽月 2005-08-12 09:27:58
如何让程序占用内存最少,欢迎大家各抒己见，有问题提问题，有好的方法粘贴方法。

例如：窗口如何释放内存（彻底） 案例 最好有内存占用说明。
那些控件最耗内存，解决方法。
...全文
1619 55 打赏 收藏 转发到动态 举报
写回复
用AI写文章
55 条回复
切换为时间正序
请发表友善的回复…
发表回复
conis 2006-01-13
  • 打赏
  • 举报
 回复
SetProcessWorkingSetSize
虚拟内存并没减小占用
不过用户看起来舒服一点
:)
hzwmjl 2005-08-30
  • 打赏
  • 举报
 回复
欢迎加入Borland 一线程序员，参与群里技术讨论！欢迎女孩子，也欢迎男孩子参与技术讨论！群号15154361
Dragon084 2005-08-27
  • 打赏
  • 举报
 回复
在创建对象的时候,如果没有特殊需要不要将AOwner指定为Self或Form等等。因为这样将会调用Conponents属性，从而消耗时间。
如果将AOwner指定为Self或Form 的时候，在调用Free进行释放的时候，也会调用Components属性。
飞天揽月 2005-08-27
  • 打赏
  • 举报
 回复
好像是的
fffddd 2005-08-27
  • 打赏
  • 举报
 回复
强烈关注这个问题。
jiny2873 2005-08-25
  • 打赏
  • 举报
 回复
我老师编的程序运行时点击有个按钮后，占了60M的内存
嘿嘿 就是因为他把很多东西加载到Tlist中来了，消耗内存大的吓死我了
xzhifei 2005-08-25
  • 打赏
  • 举报
 回复
不过这个函数是治标不治本，呵呵，只是让你看起来占用少了，其实内存总占用率根本不减!
xzhifei 2005-08-25
  • 打赏
  • 举报
 回复
据说使用这个函数将有可能导致缺页中断，严重影响性能。
但是从使用的情况来看，没有发现这样的现象

xzhifei 2005-08-25
  • 打赏
  • 举报
 回复
function SetProcessWorkingSetSize(hProcess: THandle;
dwMinimumWorkingSetSize, dwMaximumWorkingSetSize: DWORD): BOOL; stdcall;
说明
设置操作系统实际划分给进程使用的内存容量
返回值
Long，非零表示成功，零表示失败。会设置GetLastError
参数表
参数 类型及说明
hProcess Long，指定一个进程的句柄
lpMinimumWorkingSetSize Long，用于装载进程最小工作环境（容量）的一个变量
lpMaximumWorkingSetSize Long，用于装载进程最大工作环境（容量）的一个变量
适用平台
Windows NT

注解
一个应用程序运行的时候，操作系统的虚拟内存系统会尽可能为其保持事先指定的最小工作环境（也称作“工作区”）大小。除非有空闲的内存可用，否则不会为应用程序分配超出最大工作环境设置以外的内存空间
xzhifei 2005-08-25
  • 打赏
  • 举报
 回复
回复人： chenzhuo(灼) ( ) 信誉：97 2005-08-21 22:09:00 得分: 0


if Win32Platform = VER_PLATFORM_WIN32_NT then
begin
SetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF);
application.ProcessMessages;
end;


回复人： chenzhuo(灼) ( ) 信誉：97 2005-08-22 08:58:00 得分: 0


放在一个timer里面时间设为5秒



***********
我KAO，这东西还真TMD管用，收藏之
tfp 2005-08-25
  • 打赏
  • 举报
 回复
suggest u use c plus plus if peformance is imporatnt . since delphi's purpose is easy to use not consider the pefromance .
Teng_s2000 2005-08-25
  • 打赏
  • 举报
 回复
哈哈，学习学习！我才做的那个小东西关闭的时候再有的电脑上驻内存问题特严重10几M，但是有的电脑上就没事！也不知道是不是那个客户机配置的问题！
ghy412 2005-08-25
  • 打赏
  • 举报
 回复
delphi源码分析 一书中有介绍 可惜还没有研究 等研究了在来讨论
imhuafei 2005-08-25
  • 打赏
  • 举报
 回复
动态创建对象(包括窗体等可视化控件).不用后free它.
Mrkang 2005-08-22
  • 打赏
  • 举报
 回复
听课
Relax_Myself 2005-08-22
  • 打赏
  • 举报
 回复
学习。。顶
chenzhuo 2005-08-22
  • 打赏
  • 举报
 回复
放在一个timer里面时间设为5秒
chenzhuo 2005-08-21
  • 打赏
  • 举报
 回复
if Win32Platform = VER_PLATFORM_WIN32_NT then
begin
SetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF);
application.ProcessMessages;
end;
xaocao 2005-08-21
  • 打赏
  • 举报
 回复
1 动态装入DLL, 分配的资源及时关闭,用时再分配
2 少用第三方控件
...
opqhjb_2002 2005-08-18
  • 打赏
  • 举报
 回复
关注关注！！
加载更多回复（35）
8位16位32位的CRC校验算法Delphi源代码.rar
内含8位、16位、32位的CRC校验算法示例代码，生成多项式的值（多项式因子） 注意：CRC16是数据流的高位先计算，多项式因子不变 而CRC32和CRC8都是数据流的低位先计算，所以多项式因子的高/低位对调 比如CRC32由$04C11DB7变为$EDB88320，CRC8由$31变为$8C 16位CRC：按位计算，速度最慢，占用空间最少 注：数据流是高位先行 MCS51的CRC-16计算函数(多项式因子为$1021, 高位先行) ; 调用：CRC16H/CRC16L=原CRC16值(16位，初始值为0000h)，A=待计算数据(8位) ; 结果：CRC16H/CRC16L=计算后的CRC16值(16位) 16位CRC：生成CRC16表(256项)，用于快速查表计算 在程序初始化时就先调用，预先生成CRC16Tab[256]查表数据 MCS51的CRC-16快速查表计算函数 ; 要预先生成CRC16查表数据，起始地址CRC16Tab，按高/低字节顺序存放(512字节) ; 调用：CRC16H/CRC16L=原CRC16值(16位，初始值为0000h)，A=待计算数据(8位) ; 结果：CRC16H/CRC16L=计算后的CRC16值(16位) MCS51的CRC-8快速查表计算函数 ; 要预先生成CRC8查表数据，起始地址CRC8Tab，按顺序存放(256字节) ; 调用：B=原CRC8值(8位，初始值为00h)，A=待计算数据(8位) ; 结果：B=计算后的CRC8值(8位) …………
用Delphi实现Word文件的预览
使用DELHPI的设计与编程来实现与WORD的结合，达到控制的目的。 您不必从文件中读取所有的图像 ? 您可以创建自己的图像。要创建自己的图像，最灵活的方法是用一个 BufferedImage 对象，它是 Image 类的一个子类，它把图像数据存储在一个可以被访问的缓冲区中。它还支持各种存储像素数据的方法：使用或不使用 alpha 通道、不同种类的颜色模型以及颜色组件的各种精确度。ColorModel 类提供一种灵活的方法定义各种颜色模型，以和 BufferedImage 对象一起使用。为了理解颜色模型工作的基本知识，我们将只使用一个缺省的颜色模型，其颜色组件由 RGB 值和一个缓冲类型（存储 8 位的 RGB 颜色值加上一个 alpha 通道）组成。这一缓冲类型由 BufferedImage 类中的常量 TYPE_INT_ARGB 指定，它意味着每个像素要用一个 int 值。每个像素的值是以 8 位字节形式存储一个 alpha 组件加上 RGB 颜色组件。我们可以用给定的宽度和高度创建一个这种类型的 BufferedImage 对象，代码语句如下： int width = 200; int height = 300; BufferedImage image = new BufferedImage(width, height,BufferedImage.TYPE_INT_ARGB); 这段代码创建了一个 BufferedImage 对象，它代表一个 200 像素宽、300 像素高的图像。为了应用这个图像，我们需要有图形上下文，而 BufferedImage 对象的 createGraphics() 方法就返回一个与该图像相关的 Graphics2D 对象： int width = 200; Graphics2D g2D = image.createGraphics(); 使用 g2D 对象的操作会修改 BufferedImage 对象 image 的像素。利用这个对象，您现在完全有能力应用 BufferedImage 对象。您可以绘制形状、图像、GeneralPath 对象或任何别的东西，还可以为图形上下文设置 alpha 组合对象。您同时还拥有 Graphics2D 对象提供的全部仿射变形能力。 如果要从 BufferedImage 对象获取单个像素，可以通过调用它的 getRGB() 方法，并提供该像素的 x,y 坐标作为 int 类型的参数。这个像素会按 TYPE_INT_ARGB 格式以 int 类型返回，它由四个 8 位的值（代表 alpha 值和 RGB 颜色组件）组成一个 32 位字。同时 getRGB() 还有一个重载的版本，它从一部分图像数据中返回一个像素数组。您也可以通过调用 setRGB() 方法来设置单个像素。前两个参数是该像素的坐标值，第三个参数是待设定的值，类型为 int。这个方法也有一个版本可以设置像素数组的值。 至此我们已经完成了像素操作的学习。下面我们要建立一个 applet，它在 Wrox 徽标背景上使 BufferedImage 对象具有动画效果。我们的示例还将演示怎样能让图像局部透明。applet 的基本内容如下所示： import java.awt.*; import java.awt.image.*; import java.awt.geom.*; import javax.swing.*; public class ImageDrawDemo extends JApplet { // The init() method to initialize everything... // The start() method to start the animation... // The stop() method to stop the animation... // The ImagePanel class defining the panel displaying the animation... // Data members for the applet... } 创建一个图像 一个子图形是一个小的图形图像，可以将其绘制在静态图像以创建动画。要创建动画效果，您只要随着时间推移，在不同的位置和方向上绘制子图形。当然，利用坐标系的变形可以使之简化许多。游戏经常使用子图形 ? 由于您只需要在一个静态背景上绘制子图形，所以可以使动画所占用的处理器的时间大大减少。我们对使用 BufferedImage 对象的兴趣意味着我们将不再花费精力去研究减少处理器时间的最佳技术，而是把注意力放在理解怎样才能在一个程序内部创建和使用图像上。 我们的 BufferedImage 对象看上去如图 1 中的图像： 图 1. BufferedImage 子图形 这个图像是一个以 spriteSize 为边长的正方形。图像其它部分的尺寸值都与这个边长相关。实际上这里只有两个几何实体，一条线和一个圆，都在不同位置和方向重复出现。如果我们创建一个 Line2D.Double 对象代表线，创建一个 Ellipse2D.Double 对象代表圆，那么我们就可以通过移动用户坐标系和画这两个对象中的一个或其它的对象而画出整个图像。 如果是按真正面向对象的方法，应该定义一个类代表一个子图形，可能是作为 BufferedImage 的一个子类，但由于我们是在探索使用 BufferedImage 对象的技巧，因此用一个 createSprite() 方法来画出 BufferedImage 对象上的子图形会更适合我们的目的。因为该方法只是我们的 applet 类的一个成员，所以我们将为 applet 添加数据成员以存储任何需要的数据。您可以把我们将使用的数据成员插入到 applet 类中，如下所示： double totalAngle; // Current angular position of sprite double spriteAngle; // Rotation angle of sprite about its center ImagePanel imagePanel; // Panel to display animation BufferedImage sprite; // Stores reference to the sprite int spriteSize = 100; // Diameter of the sprite Ellipse2D.Double circle; // A circle - part of the sprite Line2D.Double line; // A line - part of the sprite // Colors used in sprite Color[] colors = {Color.red , Color.yellow, Color.green , Color.blue, Color.cyan, Color.pink , Color.magenta, Color.orange}; java.util.Timer timer; // Timer for the animation long interval = 50; // Time interval msec between repaints 这些成员的一般用途可以从注释中清楚地看到。下面我们要看一看开发代码时它们是怎样被使用的。 createSprite() 方法需要做的第一件事就是创建 BufferedImage 对象 sprite，然后我们还需要一个 Graphics2D 对象用于在 sprite 图像上绘画。下面就是完成这些操作的代码： BufferedImage createSprite(int spriteSize) { // Create image with RGB and alpha channel BufferedImage sprite = new BufferedImage(spriteSize, spriteSize, BufferedImage.TYPE_INT_ARGB); Graphics2D g2D = sprite.createGraphics(); // Context for buffered image // plus the rest of the method... } sprite 对象的宽和高的值都是 spriteSize，图像的类型为 TYPE_INT_ARGB，就是说每个像素的 alpha 值和颜色组件是以一个单独的 int 值存储的，而颜色是以 8 位的红、绿、蓝组件的形式存储的。这意味着我们的 sprite 图像将占用 40,000 字节，这只是浏览一个网页会占用的内存的很小一部分。而这并不影响网页的下载时间，因为在执行 applet 的时候，这部分内存是在本地机器上被分配的。除了作为网页本身的 HTML 文件的内容外，下载时间还取决于 applet 的 .class 文件的大小，以及在它执行时下载的图像或其它文件。 创建一个透明的背景 在 sprite 图像中，alpha 通道是很重要的，因为我们希望背景能完全透明。在绘画过程中，只有 sprite 对象本身应该是可见的，而不是整个 100×100 的矩形图像。我们可以很容易地实现这一目的，只要开始先使整个 sprite 图像区域透明（即，alpha 值为 0.0f），然后把我们想要画的图形绘制在上面，使之不透明（alpha 值为 1.0f）。以下是使整个图像透明的代码： // Clear image with transparent alpha by drawing a rectangle g2D.setComposite(AlphaComposite.getInstance(AlphaComposite.CLEAR, 0.0f)); Rectangle2D.Double rect = new Rectangle2D.Double(0,0,spriteSize,spriteSize); g2D.fill(rect); 我们首先使用 AlphaComposite 对象按照 CLEAR 规则设置 alpha 合成值，把颜色组件设置为零，又通过设置 alpha 值为 0.0f，使之透明。然后我们填充一个覆盖整个图像区域的矩形。我们不必设置颜色值，因为根据 CLEAR 规则，每个像素的前景和背景色所占成分都是零，所以这两者都不参与像素的生成。但我们仍要填充该矩形，因为这将确定被操作的图像像素。 这里，我们可以稍微了解一下怎样控制图像的质量。 着色微调 对着色操作的许多方面而言，都有一个在质量和速度间选择的问题。着色操作就像大多数事情一样 ? 质量是需要代价的，而这里的代价就是处理时间。所有的着色操作都有缺省设置，其中存在一个选择，缺省设置是特定于平台的，但您可以通过调用用于着色的 Graphics2D 对象的 setRenderingHint() 方法自己选择。虽然只有一些微调，如果您的计算机不支持与您指定的微调相对应的着色操作选项，这些微调就无法生效。 通过添加以下对 createSprite() 方法的调用，可以确保得到由我们的 alpha 合成操作可能生成的最好效果。 BufferedImage createSprite(int spriteSize) { // Create image with RGB and alpha channel BufferedImage sprite = new BufferedImage(spriteSize, spriteSize, BufferedImage.TYPE_INT_ARGB); Graphics2D g2D = sprite.createGraphics(); // Context for buffered image // Set best alpha interpolation quality g2D.setRenderingHint(RenderingHints.KEY_ALPHA_INTERPOLATION, RenderingHints.VALUE_ALPHA_INTERPOLATION_QUALITY); // Clear image with transparent alpha by drawing a rectangle g2D.setComposite(AlphaComposite.getInstance(AlphaComposite.CLEAR, 0.0f)); Rectangle2D.Double rect = new Rectangle2D.Double(0,0,spriteSize,spriteSize); g2D.fill(rect); // plus the rest of the method... } RenderingHints 类定义了多种着色微调，它们存储在一个映射集的 Graphics2D 对象里。setRenderingHint() 方法的参数是一个键以及对应的键值。在我们的代码中，第一个参数是代表 alpha 合成微调的键，第二个参数是该微调的值。该微调的其它可能的值有 VALUE_ALPHA_INTERPOLATION_DEFAULT，代表平台缺省值；以及 VALUE_ALPHA_INTERPOLATION_SPEED，代表追求速度而不是质量。 您还可以为下面的键提供微调： 键 描述 KEY_ANTIALIASING 决定是否使用抗锯齿。当着色有倾斜角度的线时，通常会得到一组阶梯式的像素排列，使这条线看上去不平滑，经常被称为 锯齿状图形。抗锯齿是一种技术，它设置有倾斜角度的线的像素亮度，以使线看起来更平滑。因此，这个微调是用来决定在着色有倾斜角度的线时是否在减少锯齿状图形上花费时间。可能的值有 VALUE_ANTIALIAS_ON, _OFF 或 _DEFAULT。 KEY_COLOR_RENDERING 控制颜色着色的方式。可能的值有 VALUE_COLOR_RENDER_SPEED, _QUALITY 或 _DEFAULT。 KEY_DITHERING 控制如何处理抖动。抖动是用一组有限的颜色合成出一个更大范围的颜色的过程，方法是给相邻像素着色以产生不在该组颜色中的新的颜色幻觉。可能的值有 VALUE_DITHER_ENABLE, _DISABLE 或 _DEFAULT。 KEY_FRACTIONALMETRICS 控制显示文本的质量。可能的值有 VALUE_FRACTIONALMETRICS_ON, _OFF 或 _DEFAULT。 KEY_INTERPOLATION 确定怎样做内插。 在对一个源图像做变形时，变形后的像素很少能够恰好对应目标像素位置。在这种情况下，每个变形后的像素的颜色值不得不由周围的像素决定。 内插就是实现上述过程。有许多可用的技术。可能的值，按处理时间从最多到最少，是 VALUE_INTERPOLATION_BICUBIC, _BILINEAR 或 _NEAREST_NEIGHBOR。 KEY_RENDERING 确定着色技术，在速度和质量之间进行权衡。可能的值有 VALUE_RENDERING_SPEED, _QUALITY 或 _DEFAULT。 KEY_TEXT_ANTIALIASING 确定对文本着色时是否抗锯齿。可能的值有 VALUE_TEXT_ANTIALIASING_ON, _OFF 或 _DEFAULT。
DelphiXE10安卓开发（实战篇）
实战方式讲解DelphiXE10的安卓开发，从安卓开发开发环境配置开始讲解，实战讲解如何使用FMX进行安卓开发，App的创建，调试，UI设计、让学员快速入门Delphi安卓App的开发
Delphi包含8位16位32位的CRC校验算法示例代码
内容索引:Delphi源码,算法相关,算法,CRC　　内含8位、16位、32位的CRC校验算法示例代码，生成多项式的值（多项式因子） 　　 注意：CRC16是数据流的高位先计算，多项式因子不变 　　而CRC32和CRC8都是数据流的低位先计算，所以多项式因子的高/低位对调 　　比如CRC32由$04C11DB7变为$EDB88320，CRC8由$31变为$8C 　　16位CRC：按位计算，速度最慢，占用空间最少 　　注：数据流是高位先行 　　 　　MCS51的CRC-16计算函数(多项式因子为$1021, 高位先行) 　　; 调用：CRC16H/CRC16L=原CRC16值(16位，初始值为0
Smartscan Xpress Barcode—用于生成和识别一维、二维条码
在你的程序中加入强大的条码（barcode）处理功能。Smartscan Xpress Barcode能够方便你创建应用程序来读取一维（线性的）和二维条码。它为你提供了许多预处理功能使你在条码分析之前对图像进行操作和整理，包括镜像（mirroring）、交换（flipping）, 变焦（zooming）、 旋转（rotating）、, 反色显示（negating）等等。支持包括Code 39/128/93、EAN-8/13在内的21种一维条码以及包括PDF417在内的二维条码。 性能： · 32位的ActiveX/COM和VCL组件。 · 开发环境：Win32可视开发环境。 · 范例代码包括：.NET、VB、Delphi、VC++、C++ Builder以及HTML。 · 通过ATL来确保占用最少的系统资源，而且无需MFC。 · 能够用于任何接纳ActiveX/COM控件的开发环境中。 · 在.NET中作为100%的管制控件来配置。 · 使用系统中包括的CAB文件或者创建一个自定义文件。 · 用不超过10行的代码就能在应用程序中添加条码识别功能。 · 能够读取20多种行业一维和二维条码，包括Code39、CODABAR、Interleaved 2 of 5、Code128、UCC128、EAN128、Code93、UPC-A和PDF417 (见下面的详细目录)。 · 书写一维条码(见下面的详细目录)。 · 窗体识别（Forms recognition）用于从一个引用数据库中对窗体进行添加或删除，以及基于行结构（line structure）来识别窗体。 · 在一个图像或其中指定的区域中自动化检测所有条码，自动化地检测方向（横向/纵向），扶正（deskew）图像并从图像中删除线条。 · 在任何方向镜像、交换、放大、平滑、反色显示、移动，从0到89度水平方向剪辑图像，对图像进行任何角度地旋转。 · 超过27种滤镜（filter）效果，包括消除斑点（despeckle）、填充白色或黑色水平和垂直缝隙、强化暗区（erode）和强化亮区（delate）。 · 特殊阅读区 – 检测并清除图像中的圆圈（circle）。 · 窗体注册 –在图像周围生成一个白色的边并自动删除黑色的边。 · 报告所有检测到的条码类型、位置和倾斜角度。 · 以字符串方式返回条码值。 · 提供详细的出错报告。 · 提供性能完好的可即时下载的免费试用版本。
网络通信/分布式开发

1,593

社区成员

32,964

社区内容

发帖
与我相关
我的任务
社区描述
Delphi 网络通信/分布式开发
社区管理员
  • 网络通信/分布式开发社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章