Delphi OleVariant 内存泄露

最新推荐文章于 2017-09-20 13:55:48 发布
原创 最新推荐文章于 2017-09-20 13:55:48 发布 · 1.9k 阅读 · 0 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

本文探讨了在特定编程环境中，尝试通过不同方式（如 Unassigned 和 VarClear）来释放字符串变量占用的内存空间所遇到的问题，并介绍了 TClientDataSet 中使用的 OleAut32.DLL 相关函数如何帮助设置或清除数据包。

V := '123456';

 

V := Unassigned;

或

VarClear(V);

 

都无法完全释放内存（这里的内存指的是 V := '123456'; 这行代码造成的类型转换后存储'123456'的内存空间）。

 

TClientDataSet.SetData(const Value: OleVariant);

 

使用的是 oleaut32.dll 中的 ClearSavedPacket 函数和 SafeArrayCopy 函数来设置或清除 TDataPacket = PSafeArray;

delphi_内存释放
05-25
delphi_内存释放.............
转换OLEVariant和TMemoryStrea
08-06
TMemoryStream是Delphi中的一种内存流对象，用于在内存中读写二进制数据。它可以被视为一个虚拟文件系统的一部分，通过提供类似文件操作的方法（如Read、Write等），使得程序能够在内存中高效地处理数据。 ### ...
DELPHI编译的DLL喜欢内存泄漏
soasoa的专栏
10-29 1726
用Delphi的过程中难免会遇到很多奇怪的问题，而Delphi的文档也出奇的少，因此只能自己慢慢的总结，所以有了下文（由于只是零散的细节，所以文笔上没有花什么功夫，可能会比较乱，但应该能够理解;-)）。如果：1. 你有下面问题的更好解决方法，请告诉我，和csdn上的朋友2. 你有其他的问题，请列出问题，以及你的解答，告诉我，和csdn上的朋友。 沟通创造一切！正文： Q: 在Delphi的DLL中
Delphi OleVariant自动转换String 疑似SysString泄漏
goingchan的专栏
02-20 538
有如下声明，假设V已赋值 var V:OleVariant;   如下代码似乎会造成内存泄漏 SysUtil.Pos('finish.html', V); 或 VarToStr(V);   原因猜测: SysUitl.Pos要求的第二个参数为String, 那么程序运行时把V:OleVariant自动转换为String, 调用堆栈如下 Routine Name               Clas...
Delphi程序使用资源的释放
04-11 1256
写出一个不会造成资源分配崩溃的Delphi应用程序的关键是确保如果程序中分配了资源，即使当故障发生，程序也应能释放占用的资源。　　文件、内存、WINDOWS资源和对象是一些必须时时加以注意的需确保释放的资源。下面的事件控制代码例子中先分配了内存，然后产生了一个错误，而造成它不再执行释放内存的程序代码：　　ProcedureTForm1．ButtonlClick（Sender：Tobject）；　　
【内存优化方法】：Delphi处理Excel文件的高效技巧
首先介绍了Delphi与Excel文件处理的基础知识，然后深入分析了Delphi内存优化的理论基础，包括内存管理原理、高效数据处理策略和内存优化技术。接着，本文详细阐述了在Excel处理中应用内存优化实
Delphi代码标准文档定义.pdf
10-30
7. **资源管理规范**：对于Delphi中的类实例和资源管理，文档中会说明对象创建与释放的规则，以及如何在保证资源得到合理释放的同时，确保程序的稳定运行，避免内存泄露等问题。 8. **数据类型的使用规范**：Delphi...
解决Delphi中动态WebBrowser释放相关问题
总结以上知识点，可以发现该Delphi示例涉及了编程中的内存管理、事件驱动编程、ActiveX组件使用以及组件的创建与销毁等重要概念。在动态组件使用中，特别是在组件生命周期的管理上，开发者需要特别小心，以避免内存...
delphi调用MATALAB
11-03
不释放引擎可能导致内存泄漏和其他问题。 请注意，调用MATLAB的性能可能不如直接在Delphi中编写计算代码，因为每次调用都需要与MATLAB引擎进行交互。但是，如果你的计算逻辑已经在MATLAB中编写并优化，或者需要...
DELPHI Variant变量的使用技巧
10-08
delphi 为了完全支持OLE，32位Delphi 增加了Variant 数据类型，本节将从宏观角度来分析这种数据类型。实际上，Variant类型对Pascal语言有普遍而深入的影响，Delphi 控件库中与OLE 无关的地方也使用到这种类型。 Variant变量没有类型 一般说来，你可以用Variant 变量存储任何数据类型，对它执行各种操作和类型转换。需要注意的是：这违反了Pascal 语言的一贯原则，有悖于良好的编程习惯。variant 变量的类型检查和计算在运行期间才进行，编译器不会提示代码中的潜在错误，这些错误在进一步测试中才能发现。总之，你可以认为包含variant变量的代码是解释性代码，正如解释性代码一样，许多操作直到执行时才能知道，这对代码运行速度会有很大的影响。 上面对Variant 类型的使用提出了警告，现在来看看Variant 类型究竟能干什么。基本上说，如果声明了一个variant 变量： var V: Variant; 你就可以把各种不同类型的值赋给它： V := 10; V := 'Hello, World'; V := 45.55; 一旦得到一个variant 值，你可以把它拷贝给任何兼容或不兼容的数据类型。如果你把值赋给不兼容的数据类型，Delphi 会力尽所能进行转换，无法转换则颁布一个运行时间错误。实际上，variant变量中不仅包含了数据还包含有类型信息，并允许一系列运行时间操作,这些操作很方便，但运行速度慢且安全性差。 见例VariTest，它是上面代码的扩展。窗体上有三个编辑框，一对按钮，第一个按钮的OnClick 事件代码如下： procedure TForm1.Button1Click(Sender: TObject); var V: Variant; begin V := 10; Edit1.Text := V; V := 'Hello, World'; Edit2.Text := V; V := 45.55; Edit3.Text := V; end; 很有趣是不是？你可以把一个值为字符串的variant 变量赋给编辑框Text 属性，还可以把值为整数或浮点数的variant 变量赋给Text属性。正如你在图10.1中所看到的，一切正常。 （图10.1）按Assign按钮后，例VariTest的输出结果 图 10.1: 例 VariTest 的 Assign 按钮 Click 事件输出结果 更糟糕的是:你还可以用variant变量计算数值，从第二个按钮的Click事件代码就可看到这一点： procedure TForm1.Button2Click(Sender: TObject); var V: Variant; N: Integer; begin V := Edit1.Text; N := Integer(V) * 2; V := N; Edit1.Text := V; end; 至少这种代码带有一定危险性，如果第一个编辑框包含了一个数字，那么一切运行正常；如果不是，将会引发异常。这里再重申一遍，如果不到万不得以，不要随便使用Variant 类型，还是应坚持使用传统的Pascal 数据类型和类型检查方法。在Delphi 和 VCL中，variant变量主要是用于 OLE 支持和数据库域的访问。 Variant类型内部结构 Delphi中定义了一个 variant 记录类型，TVarData，它与Variant 类型有相同的内存布局。你可以通过TVarData访问variant变量的实际类型。TVarData 结构中包含了Variant类型信息(由Vtype域表示)、一些保留域及当前值。 VType域的取值包括OLE 自动化中的所有数据类型，这些类型通常叫OLE 类型或variant 类型。以下是variant 类型的完整列表，按字母顺序排列： varArray varBoolean varByRef varCurrency varDate varDispatch varDouble varEmpty varError varInteger varNull varOleStr varSingle varSmallint varString varTypeMask varUnknown varVariant 你可以在Delphi 帮助系统的variants 主题下找到这些类型的说明。 还有许多操作variant 变量的函数，你可以用它们进行特定的类型转换，或通过它们获取variant变量的类型信息（例如VarType 函数），当你用variant变量写表达式时，Delphi会自动调用这些类型转换和赋值函数。另外还有操作variant 数组的例程，你可以通过帮助文件的Variant support routines 主题了解相关内容。 Variant类型运行很慢！ Variant 类型代码运行很慢，不仅数据类型转换如此，两个值为整数的Variant 变量相加也是如此。它们几乎跟Visual Basic这种解释性代码一样慢！为了比较Variant变量和整型变量的运行速度，请看例VSpeed 。 程序中设置了一个循环，记录运行时间并在进程条中显示运行状态。下面是基于variant类型的一段代码，基于整型的代码与此相似： procedure TForm1.Button1Click(Sender: TObject); var time1, time2: TDateTime; n1, n2: Variant; begin time1 := Now; n1 := 0; n2 := 0; ProgressBar1.Position := 0; while n1 < 5000000 do begin n2 := n2 + n1; Inc (n1); if (n1 mod 50000) = 0 then begin ProgressBar1.Position := n1 div 50000; Application.ProcessMessages; end; end; // we must use the result Total := n2; time2 := Now; Label1.Caption := FormatDateTime ( 'n:ss', Time2-Time1) + ' seconds'; end; 记时这段代码值得一看，因为你可以把它用到任何类型的性能测试中。正如你所看到的，程序用Now 函数获取当前的时间，用FormatDateTime 函数格式化时间差，输出结果以分("n")和秒("ss")表示。除此之外，你可以用Windows API的GetTickCount 函数，该函数能精确显示操作系统启动后至当前的毫秒数。 从上例可见两者的速度差异非常之大，以至于不用精确记时也能看到这种差异。图10.2是在本人计算机上运行程序看到的结果。当然运行结果取决于运行程序的计算机，但是两者的数值比不会有太大变化。
delphi variant的一些操作函数
11-14
网上下载的一些Variant操作函数，有需要的下载研究一下
显式加载卸载delphi写的dll之内存泄漏（4KB）问题
Avan_Lau的专栏
09-21 2297
<br />Memory Lost And Found... And Released <br /><br />by Roy Nelson <br /><br />This article has been long in the making: it all started about two years ago, after a conversation with a previous colleague. The conversation centred on the fact that they w
Delphi 中的自动释放策略
weixin_34014555的博客
12-29 122
//uses Vcl.StdCtrls, Vcl.ExtCtrls; var panel: TPanel; procedure TForm1.Button1Click(Sender: TObject); begin panel := TPanel.Create(Self); panel.Parent := Self; with TBu...
OleVariant 与 Variant
Hmillet的专栏
09-20 2671
olevariant存在于windows和linux平台,这二种类型主要的不同是variant类型仅是当前的应用程序可以进行操作,而olevariant类型则是ole自动化服务器所以定义的统一的数据类型,意味着可以通过网络或其他程序进行操作,当然也不必担心其他客户端如何进行操作. 当你给一个variant类型的变量赋自定义的值的时候(例如delphi string,或一个其他的新的自定义类型
Delphi OleVariant 类型的用法
热门推荐
atlim的专栏
05-04 1万+
因客户需求，对客户的指纹机与公司产品进行集成，需要对指纹机做接口的二次开发，郁闷的是产商只提供了VB和C的DEMO示例，没有Delphi的，公司没有VB,C的环境，不能打开这二种语言的示例，因为本公司搭环境特麻烦，加上之前做过类似的开发，所以也懒得去搭环境了，按照以前的开发经验写了个DEMO进行测试，一路进行得很顺利，但到了下载用户指纹和上传用户指纹数据时卡住了，因为下载用户指纹时，用于获取指纹数
如何避免OPC内存泄露
華華的博客
09-12 2347
用OPC Client开发时，需要从如下几个地方注意内存泄露： （1）所有返回的指针，都要用CoTaskMemFree释放，如： function Group_TryAddItems(AGroupIntf:IOPCItemMgt;AItemCount:integer;AItems:POPCITEMDEFARRAY):POPCITEMRESULTARRAY; var vErrors: PRe
delphi中操作oleVariant、variant和stream
leandzgc的专栏
05-15 9454
最近在学习delphi，好多东西都不懂。这几天需要用到用二进制的方式保存和读取oracle中的数据。找了好多帖子才找到我需要的，不过都不全，害我本来就不怎么懂得人弄了好几天。整理一下，供自己和大家以后使用相关操作时借鉴。 首先是oleVariant转成stream，并保存到数据库。我调用的控件函数得到的是一个oleVariant类型，保存只能保存stream，所以只能转换 procedure
delphi中处理OleVariant和TStream
xt_chaoji的专栏
10-20 5218
因为客户不知道从数据库中流字段到打开文档，编辑，再保存到数据库中流字段这个流程，这个流程涉及到了接口OpenDocumentWithStream和SaveToStream，而对应的VARIANT类型在delphi中展现为OleVariant，于是中间涉及到OleVariant转为TStream以及TStream转换为OleVariant，我写的一个例子如下： function   TForm1.
Delphi 7操作Excel图表的技巧
操作完成后，为了防止内存泄漏和资源占用，应该关闭工作簿、释放图表对象，并退出Excel应用程序。 ```delphi ExcelApp.ActiveWorkbook.Close(False); ExcelApp.Quit; ``` ### 总结 使用Delphi控制Excel图表是企业...
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值