VarFormat的不正确使用导致内存泄漏

最新推荐文章于 2023-10-29 00:16:29 发布
转载 最新推荐文章于 2023-10-29 00:16:29 发布 · 580 阅读 · 0

本文介绍了一个关于VarFormat函数不正确使用的例子，指出如果在调用VarFormat前自行分配BSTR内存会导致内存泄漏的问题，并提供了正确的解决方案。
VarFormat的不正确使用导致内存泄漏

一个很弱智的错误
代码如下：
       _variant_t var(dblValue);
       CString sOut;
       BSTR bstrOut = sOut.AllocSysString();
       ::VarFormat(&var, L"0.#########", 0, 0, VAR_FORMAT_NOSUBSTITUTE, &bstrOut);
       sOut = bstrOut;
       ::SysFreeString(bstrOut);    

错误：
         VarFormat中的参数bstrOut是由函数内部Alloc的，不能在外部Alloc，否则会有内存泄漏。
         BSTR bstrOut = sOut.AllocSysString();
         改为
        BSTR bstrOut = NULL;

      其实上述错误用BondCheck是可以定位错误的，但我在这份旧代码里一直没有用BondCheck跑一次，
所以导致该问题跟踪了两天才查到错误。唉，看来以后改完代码，一定要用BondCheck跑一次。
解决 Java 项目中 Tomcat 内存泄漏问题的方案
Java大师兄的博客
04-14 1049
Tomcat 作为 Java 生态最流行的 Web 容器之一，其内存泄漏问题会导致服务器性能下降、频繁 Full GC 甚至服务崩溃。本文聚焦 Tomcat 7/8/9 版本，深入剖析内存泄漏的本质原因，提供从诊断工具使用到代码优化、容器配置的完整解决方案。内存泄漏的核心原理与 Tomcat 架构关联主流诊断工具的实战操作流程应用层、容器层、JVM 层的三级优化策略生产环境的故障排查最佳实践背景与核心概念：建立 Tomcat 内存模型与泄漏机制的认知基础诊断体系。
有意思的 Node.js 内存泄漏问题
腾讯技术工程
08-20 3544
作者：elvinpeng，腾讯 WXG 前端开发工程师Node.js 使用的是 V8 引擎，会自动进行垃圾回收（Garbage Collection，GC），因而写代码的时候不需要像 C...
解决Jupyter notebook报错：AssertionError: wrong color format ‘var(--jp-mirror-editor-variable-color)‘
Circle-C的博客
12-18 2948
今天使用jupyter notebook时出错： 500: Internal Server Error 错误现象 查看日志： AssertionError: wrong color format 'var(--jp-mirror-editor-variable-color)' [E 13:56:50.149 NotebookApp] Uncaught exception GET /notebooks/MongoDB-Soul.ipynb (127.0.0.1) HTTPServerReq
CString多线程内存泄露疑惑
昵称一定要靓
04-04 1858
今天在调试程序时候，vld检查到CString的内存泄露，总过有6处。多发生在Format调用处，共同点是在程序的一个线程中。 线程创建时传入的参数是CString的地址指针，开始以为是指针引用有问题，于是开始在网上搜。 贴1：http://blog.youkuaiyun.com/red_hope/article/details/1729937。作者的经验是：针对vc6.0，如果多次调用带有CString
Java内存泄漏类型详解
qq_43456816的博客
05-29 300
内存泄漏介绍 程序在申请内存后，无用内存无法释放已申请的内存空间。 长生命周期的对象持有短生命周期对象的引用 例如：将ArrayList设置为静态变量，则容器中的对象在程序结束之前将不能被释放，从而造成内存泄漏 连接未关闭 如数据库连接、网络连接和IO连接等，只有连接被关闭后，垃圾回收器才会回收对应的对象。 这些未释放的网络连接、IO连接等，也会给数据库、系统带来负担 变量作用域不合理 1.一个变量的定义的作用范围大于其使用范围 在局部方法中定义大于这个方法作用域范围的变量 2.如果没有
避免内存泄露, 有效利用内存
wukunting的专栏
01-24 3715
避免内存泄露, 有效利用内存 一  TraceView 简介Traceview是android平台配备一个很好的性能分析的工具。它可以通过图形化的方式让我们了解我们要跟踪的程序的性能，并且能具体到method。下面我们看下如何使用这个东东。首先，我们必须在程序当中加入代码，以便生成trace文件，有了这个trace文件我们才可以将其转化为图形。要添加的代码如下：Java代码
内存泄漏导致频繁重启？快速判断是否内存耗尽的6种方法
内存泄漏作为慢性“系统毒瘤”，会逐步蚕食可用内存资源，导致系统被迫依赖Swap交换分区，进而引发严重性能劣化。当内存压力持续升高至触发OOM Killer（Out-of-Memory Killer）时，内核将强制终止进程甚至直接崩溃...
Java堆内存泄漏分析实战：MAT工具使用全解析（3步定位内存元凶）
在Java应用运行过程中，堆内存泄漏是导致系统性能下降甚至崩溃的常见问题。它表现为对象无法被及时回收，持续占用堆空间，最终可能引发`OutOfMemoryError`。与直接的内存溢出不同，内存泄漏更具隐蔽性，往往在长时间...
实战Go内存泄露
FCzhandu0的专栏
04-30 1537
实战Go内存泄露 golangmemory内存泄露pprof 最近解决了我们项目中的一个内存泄露问题，事实再次证明pprof是一个好工具，但掌握好工具的正确用法，才能发挥好工具的威力，不然就算你手里有屠龙刀，也成不了天下第一，本文就是带你用pprof定位内存泄露问题。 关于Go的内存泄露有这么一句话不知道你听过没有： 10次内存泄露，有9次是goroutine泄露。 我所解决的问题，...
C#与西门子PLC通讯——手搓S7通讯协议
吾家有猫名探花的博客
10-29 7032
知其然，知其所以然。这篇文章，我们就尝试重复造一个轮子。通过对通讯协议的简要分析，我们能够更好地了解与西门子PLC是如何交互的。最后，我们就运用底层方法，使用Socket通讯将一个数组读取出来，再将数组反转之后写回PLC中。本篇文章算是《C#与西门子PLC通讯》的番外篇，扒开了S7 Net Plus的神秘外衣，一探底层逻辑，了解了PLC的行为分析和通讯原理。
2021-10-08
weixin_44935687的博客
10-08 3974
西门子PLC S7.net中文文档 如何下载s7.Net 官方存储库位于GitHub上(https://github.com/killnine/s7netplus),你也可以下载直接从NuGet获得的库 (https://www.nuget.org/packages/S7netplus/). 什么是S7.Net S7.Net是一种plc驱动程序，仅适用于西门子plc和以太网连接。 这意味着您的plc必须具有Profinet CPU或Profinet外部卡（CPxxx卡）。 S7.Net完
.net通过S7.net读写西门子PLC中，字符串，bool,整数，小数及byte型
热门推荐
qq_36669241的博客
08-01 2万+
net使用S7.net.dll读取PLC中String,Bool,Real,Word,Byte数据
delphi11 fmx 剪贴板TBitmapSurface转TBitmap Bitmap.Assign后颜色不正确
最新发布
08-07
<think>我们正在解决 Delphi 11 FMX 中 TBitmapSurface 复制到 TBitmap 后颜色不正确的问题。根据用户描述，他们使用了 `AssignFromSurface` 方法，但出现了颜色错误。结合之前提供的解决方案和引用内容，我们可以分析原因并给出解决方案。 ### 问题分析 1. **颜色通道顺序问题**：`TBitmapSurface` 在不同平台上可能使用不同的像素格式（如 Windows 上通常是 BGRA，而移动平台可能是 RGBA）。如果直接使用 `AssignFromSurface` 方法，可能导致颜色通道顺序不匹配。 2. **Alpha 通道处理**：`AssignFromSurface` 可能不会正确处理 Alpha 通道，导致颜色异常。 3. **像素格式不匹配**：`TBitmap` 和 `TBitmapSurface` 的像素格式可能不一致，而 `AssignFromSurface` 没有进行必要的转换。 ### 解决方案 我们推荐使用 `CopyTo` 方法替代 `AssignFromSurface`，并明确指定目标像素格式。这样可以确保颜色通道顺序正确。 #### 步骤 1. 创建目标 `TBitmap` 并设置其大小和像素格式（推荐使用 BGRA 或根据平台选择）。 2. 使用 `TBitmapSurface.CopyTo` 方法将数据复制到 `TBitmap`，同时指定目标像素格式。 3. 如果目标平台是移动设备（如 Android 或 iOS），可能需要使用 RGBA 格式。 #### 代码示例 ```pascal var SourceSurface: TBitmapSurface; DestBitmap: TBitmap; begin SourceSurface := TBitmapSurface.Create; try // 假设从剪贴板获取图像（示例） if Clipboard.GetForMimeType('image/png', SourceSurface) then begin DestBitmap := TBitmap.Create; try // 设置目标位图的大小和像素格式（这里使用BGRA，Windows平台常用） // 对于移动平台，可以尝试使用 RGBA DestBitmap.SetSize(SourceSurface.Width, SourceSurface.Height, TPixelFormat.BGRA); // 使用 CopyTo 方法进行转换，并指定目标格式 if SourceSurface.CopyTo(DestBitmap, TPixelFormat.BGRA) then begin // 显示或使用转换后的位图 Image1.Bitmap.Assign(DestBitmap); end; finally DestBitmap.Free; end; end; finally SourceSurface.Free; end; end; ``` #### 平台适配 为了跨平台兼容，可以根据当前平台选择目标像素格式： ```pascal var TargetFormat: TPixelFormat; begin {$IF Defined(MSWINDOWS)} TargetFormat := TPixelFormat.BGRA; {$ELSEIF Defined(ANDROID) or Defined(IOS)} TargetFormat := TPixelFormat.RGBA; {$ELSE} TargetFormat := TPixelFormat.BGRA; // 其他平台默认 {$ENDIF} // 然后在 CopyTo 时使用 TargetFormat SourceSurface.CopyTo(DestBitmap, TargetFormat); ``` ### 备选方案：手动处理像素数据 如果上述方法仍不能解决问题，我们可以通过直接操作像素数据来调整通道顺序。这种方法更底层，但可以确保精确控制。 #### 步骤 1. 将 `TBitmapSurface` 复制到一个临时 `TBitmap`（使用默认方式）。 2. 使用 `TBitmap.Map` 方法获取像素数据。 3. 遍历每个像素，调整颜色通道顺序（例如，将 RGBA 转换为 BGRA 或反之）。 4. 将处理后的位图赋值给目标。 #### 代码示例（RGBA 转 BGRA） ```pascal var SourceSurface: TBitmapSurface; TempBitmap: TBitmap; MappedData: TBitmapData; X, Y: Integer; SrcPixel, DestPixel: PAlphaColorRec; begin SourceSurface := TBitmapSurface.Create; try // 获取源图像（例如从剪贴板） if Clipboard.GetForMimeType('image/png', SourceSurface) then begin TempBitmap := TBitmap.Create; try // 先使用默认方式复制 TempBitmap.Assign(SourceSurface); // 映射位图进行读写 if TempBitmap.Map(TMapAccess.ReadWrite, MappedData) then try for Y := 0 to TempBitmap.Height - 1 do begin for X := 0 to TempBitmap.Width - 1 do begin // 获取当前像素 SrcPixel := PAlphaColorRec(MappedData.GetPixelAddr(X, Y)); // 交换 R 和 B 通道 DestPixel := SrcPixel; var Temp := DestPixel.R; DestPixel.R := DestPixel.B; DestPixel.B := Temp; // Alpha 保持不变 end; end; finally TempBitmap.Unmap(MappedData); end; // 现在 TempBitmap 是 BGRA 格式（如果源是RGBA） Image1.Bitmap.Assign(TempBitmap); finally TempBitmap.Free; end; end; finally SourceSurface.Free; end; end; ``` ### 调试建议 1. **检查像素格式**：在转换前，输出源 `TBitmapSurface` 的像素格式，以便确定问题： ```pascal ShowMessage('Source surface pixel format: ' + TRttiEnumerationType.GetName(SourceSurface.PixelFormat)); ``` 2. **保存中间图像**：将转换前后的图像保存到文件，以便比较： ```pascal // 保存源表面（需要先转换为TBitmap） Temp := TBitmap.Create; try Temp.Assign(SourceSurface); Temp.SaveToFile(TPath.Combine(TPath.GetDocumentsPath, 'source.png')); finally Temp.Free; end; // 保存转换后的位图 DestBitmap.SaveToFile(TPath.Combine(TPath.GetDocumentsPath, 'dest.png')); ``` ### 总结 颜色错误通常是由于通道顺序不一致引起的。在 Delphi FMX 中，推荐使用 `CopyTo` 方法并明确指定目标像素格式，而不是使用 `AssignFromSurface`。如果问题仍然存在，可以手动交换颜色通道。 §§相关问题§§ 1. 如何检测 `TBitmapSurface` 和 `TBitmap` 的像素格式？ 2. 在 Delphi FMX 中，如何高效地处理大位图的像素数据？ 3. 跨平台开发时，如何处理不同平台上的图像通道顺序差异？ 4. 如何优化图像处理操作在移动设备上的性能？</think>### 解决 Delphi 11 FMX 中 TBitmapSurface 复制到 TBitmap 的颜色错误问题 在 Delphi 11 FMX 中，当使用 `AssignFromSurface` 将 `TBitmapSurface` 复制到 `TBitmap` 时出现颜色错误，主要原因是 **通道顺序不匹配** 和 **Alpha 通道处理问题**。以下是完整解决方案： #### 核心问题分析 1. **通道顺序反转**：Windows 使用 BGRA 格式，而移动平台使用 RGBA 格式[^1][^2] 2. **Alpha 通道未正确处理**：`AssignFromSurface` 可能忽略 Alpha 通道 3. **像素格式不匹配**：源表面和目标位图的像素格式不一致 #### 推荐解决方案（使用 CopyTo 替代 AssignFromSurface） ```pascal var Surface: TBitmapSurface; Bmp: TBitmap; begin Surface := TBitmapSurface.Create; try // 从剪贴板获取图像 if Clipboard.GetForMimeType('image/png', Surface) then begin Bmp := TBitmap.Create; try // 关键步骤：设置目标格式为 BGRA Bmp.SetSize(Surface.Width, Surface.Height, TPixelFormat.BGRA); // 使用 CopyTo 替代 AssignFromSurface if Surface.CopyTo(Bmp, TPixelFormat.BGRA) then begin Image1.Bitmap := Bmp; // 显示结果 end; finally Bmp.Free; end; end; finally Surface.Free; end; end; ``` #### 跨平台通道处理方案 ```pascal // 定义平台相关的目标格式 {$IFDEF MSWINDOWS} const TargetFormat = TPixelFormat.BGRA; {$ELSE} const TargetFormat = TPixelFormat.RGBA; // Android/iOS {$ENDIF} // 在复制时使用 Surface.CopyTo(Bmp, TargetFormat); ``` #### 手动修正颜色通道（当 CopyTo 无效时） ```pascal Bmp.Assign(Surface); // 先使用 AssignFromSurface // 手动交换 R 和 B 通道 Bmp.Map(TMapAccess.ReadWrite, MappedData); try for var Y := 0 to Bmp.Height - 1 do begin var Pixels := PAlphaColorRecArray(MappedData.GetScanline(Y)); for var X := 0 to Bmp.Width - 1 do begin // 交换 R 和 B 通道 var Temp := Pixels[X].R; Pixels[X].R := Pixels[X].B; Pixels[X].B := Temp; end; end; finally Bmp.Unmap(MappedData); end; ``` #### 调试技巧 1. **检查像素格式**： ```pascal ShowMessage( 'Surface格式: ' + TRttiEnumerationType.GetName(Surface.PixelFormat) + #13#10 + 'Bitmap格式: ' + TRttiEnumerationType.GetName(Bmp.PixelFormat) ); ``` 2. **保存调试图像**： ```pascal Bmp.SaveToFile(TPath.Combine(TPath.GetDocumentsPath, 'debug.png')); ``` #### 关键注意事项 1. **性能优化**： - 对大图像使用 `TParallel.For` 加速处理 - 复用 `TBitmap` 实例避免重复创建 - 使用 `TBitmapCodec` 直接加载文件[^1] 2. **Alpha 通道处理**： ```pascal // 确保 Alpha 通道为不透明（如果需要） Pixels[X].A := 255; ``` 3. **避免内存泄漏**： - 始终在 `try/finally` 中释放资源 - 使用 `DisposeOf` 替代 `Free` 在移动平台[^1] > **提示**：在 Android 平台上，如果从摄像头获取图像，使用 `Camera1.SampleBufferToBitmap` 时也可能遇到类似问题，解决方案相同[^4]。
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值