Delphi 自带的JSON内存释放问题-CSDN论坛

Delphi 自带的JSON内存释放问题 [问题点数：50分，结帖人helodd]

⋅Delphi 自带的JSON内存释放问题 ⋅mysql insert into 插入不成功 ⋅主从结构的JSON要怎么分拆 更多帖子 关注空间博客 helodd 本版专家分：7177 结帖率 98.48%: 使用了小飞鱼的例子（ http://blog.csdn.net/gzxiaorou/article/details/44538193）解释JSON，在没有释放内存的情况不出现问题，但在解释完释放变量，即出现了错误的指针。

unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, System.json;

type
  TForm2 = class(TForm)
    mmo1: TMemo;
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var
  JSONObject: TJSONObject;
  LItem: TJSONValue;
  LJPair: TJSONPair;
  weather: TJSONArray;
  StrJson: String;
  result: String;
  i: Integer;
begin
  StrJson := mmo1.text;//假定是上面那个json
  JSONObject := TJSONObject.ParseJSONValue(TEncoding.UTF8.GetBytes(StrJson), 0)
    as TJSONObject;
  JSONObject := (JSONObject.GetValue('results') as TJSONArray).Get(0)
    as TJSONObject;
  weather := JSONObject.GetValue('weather_data') as TJSONArray;

  for i := 0 to weather.size - 1 do //应该是4条记录
  begin
    LItem := (weather.Get(i) as TJSONObject).GetValue('weather'); //得到weather的值
    result := result + '|' + LItem.Value;
  end;

  Memo1.Text:= result;
  weather.Free;
  JSONObject.Free;     //  加上这个，会出现内存错误，请专家帮忙解释一下.

end;

end.

只有json 数据带有数组的情况会出错，没有数组的不出错。这个是system.json的一个BUG吗？

0 2016-07-22 11:33:46

回复数 7 只看楼主引用举报楼主

⋅Delphi 自带的JSON内存释放问题 ⋅mysql insert into 插入不成功 ⋅主从结构的JSON要怎么分拆 更多帖子 关注空间博客 helodd 本版专家分：7177: {

 "error":0,

 "status":"success",

 "date":"2014-03-04",

 "results":

 [{"currentCity":"成都",

 "weather_data":[

{

 "date":"周二(今天, 实时：12℃)",

 "dayPictureUrl":"http://api.map.baidu.com/images/weather/day/duoyun.png",

 "nightPictureUrl":"http://api.map.baidu.com/images/weather/night/duoyun.png",

 "weather":"多云",

 "wind":"北风微风",

 "temperature":"15 ~ 6℃"

 },

 {

 "date":"周三",

 "dayPictureUrl":"http://api.map.baidu.com/images/weather/day/yin.png",

 "nightPictureUrl":"http://api.map.baidu.com/images/weather/night/xiaoyu.png",

 "weather":"阴转小雨",

 "wind":"北风微风",

 "temperature":"14 ~ 7℃"

 },

 {

 "date":"周四",

 "dayPictureUrl":"http://api.map.baidu.com/images/weather/day/xiaoyu.png",

 "nightPictureUrl":"http://api.map.baidu.com/images/weather/night/xiaoyu.png",

 "weather":"小雨",

 "wind":"北风微风",

 "temperature":"12 ~ 7℃"

 },

 {

 "date":"周五",

 "dayPictureUrl":"http://api.map.baidu.com/images/weather/day/xiaoyu.png",

 "nightPictureUrl":"http://api.map.baidu.com/images/weather/night/xiaoyu.png",

 "weather":"小雨",

 "wind":"南风微风",

 "temperature":"9 ~ 6℃"

 }

 ]

 }

 ]}

//JSON 内容用这个。

0 2016-07-22 11:53:19

只看TA 引用举报 #1 得分 0

DELPHI关于内存释放的问题前不久做了一个展项，是上位机与串口通信的，根据收到的信号播放相应的影片rn1、我做了两个窗体，一个窗体上放置了TShockwaveFlash控件（用于播放Flash（此Flash为该展项的待机画面））和串口控件，另一个窗体上放置了播放影片的控件rn2、我在Spcomm的OnReceiveData事件里写的代码如下rn[code=Delphi(Pascal)]rnvarrn comStr, tmpStr, NumStr: String;rnbeginrn tryrn SetLength(comStr,BufferLength);rn move(buffer^,pchar(@comStr[1])^,bufferlength);rn tmpStr := StrToHexStr(comStr); //处理转换十六进制异常如异常退出rn exceptrn Exit;rn end;rnrn if length(CommStr) >= 4 then CommStr := emptyStr;rnrn if length(CommStr) <= 2 then CommStr := CommStr + tmpStr;rnrn if (CommStr = '0D0B') or (CommStr = '0B0D') thenrn NumStr := '3'rn elsern if (CommStr = '0B0C') or (CommStr = '0C0B') thenrn NumStr := '2'rn elsern if (CommStr = '0D0C') or (CommStr = '0C0D') thenrn NumStr := '1';rnrn if (NumStr = '1') or (NumStr = '2') or (NumStr = '3') thenrn beginrn if Assigned(frmSWJS) thenrn tryrn frmSWJS.Free;rn exceptrn end;rn frmSWJS := TfrmSWJS.Create(Self);rn tryrn frmSWJS.Num := NumStr;rn CommStr := emptyStr;rn frmSWJS.Show;rn exceptrn end;rn endrn elsern beginrn Exit; //如串口传入数据不是正确数据，则退出。rn end;rnend;rn[/code]rnrn这样的写法，在下位机传入的数据不是很频繁的话是不会出错的，可是一当下位机持续传入数据时，就会跳内存错误，请教各位，麻烦高手指教，答案不是很确定的也一起说一下。谢谢了

⋅新人求教 ⋅fmx 没有radioGroup 控件，大家用什么代替？ ⋅TMS 控件单元文件乱码 更多帖子 关注空间博客 看那山瞧那水 本版专家分：6023: // weather.Free;  //千万不要释放其内部对象，它的父对象会自动释放它
  JSONObject.Free;     //  现在可以了

参考万老师的博客
http://www.cnblogs.com/del/p/4225871.html

0 2016-07-22 14:34:54

只看TA 引用举报 #2    得分 25

delphi 内存释放问题本人刚学delphi 做一小程序在跑一段时间后自动关闭。用CheckMem.pas工具查得下面结果：rnrn===== Project1.exe,2014/7/10 7:49:15 =====rnrn 可用地址空间 : 1024 KB(1048576 Byte)rn 未提交部分 : 992 KB(1015808 Byte)rn 已提交部分 : 32 KB(32768 Byte)rn 空闲部分 : 29 KB(30416 Byte)rn 已分配部分 : 1 KB(2016 Byte)rn 全部小空闲内存块 : 2 KB(2552 Byte)rn 全部大空闲内存块 : 27 KB(27864 Byte)rn 其它未用内存块 : 0 KB(0 Byte)rn 内存管理器消耗 : 0 KB(336 Byte)rn 地址空间载入 : 0%rnrn当前出现 1 处内存漏洞 :rn 0) 000000000131C914 - 55($0037)字节 - (未命名): TStringList (48 字节) - In Classes.pasrn可这个地方怎么查找到对应该的delphi源码上？rn请大神赐教

单身，欢迎小姐姐来撩 本版专家分：1751: 同上
同上
同上

0 2016-07-22 17:57:32

只看TA 引用举报 #3 得分 5

delphi内存释放的问题请问各位老大们rn你们在form释放内存的时候是怎么样来实现的rn比如说创建的时候是 Application.CreateFormrn而后再 ShowModalrn释放的时候呢?rnclose? free?rn急!

⋅Delphi 自带的JSON内存释放问题 ⋅mysql insert into 插入不成功 ⋅主从结构的JSON要怎么分拆 更多帖子 关注空间博客 helodd 本版专家分：7177: 打开内存报告，还是有内存泄漏的。不知这个要怎么整。。

0 2016-07-23 20:00:22

只看TA 引用举报 #4 得分 0

Delphi内存释放问题。小弟做了一个程序。窗体加载时创建ADOQuery，并且取得数据。窗体关闭时释放ADOQuery。但是客户端的内存还是不会释放。而且随着不断的加载数据。内存一直上升。请问怎么解决？？rn我是用ADOQuery.Free做的。

⋅新人求教 ⋅fmx 没有radioGroup 控件，大家用什么代替？ ⋅TMS 控件单元文件乱码 更多帖子 关注空间博客 看那山瞧那水 本版专家分：6023: 引用 4 楼 helodd 的回复:
打开内存报告，还是有内存泄漏的。不知这个要怎么整。。

如果这个泄露是固定的几个字节，我一般是不管的。只要不是自己写的代码造成的，查起来麻烦，改起来更麻烦。

0 2016-07-23 23:39:58

只看TA 引用举报 #5 得分 0

⋅2019年新年快乐万事如意码家接分 ⋅XML 空节点保持开始与结束符号完整 ⋅Delphi Dll封闭Form 嵌入TabSheet中，失去焦点 更多帖子 关注空间博客 lyhoo163 本版专家分：50585 红花 2018年11月 Delphi大版内专家分月排行榜第一 2018年5月 Delphi大版内专家分月排行榜第一 2018年2月 Delphi大版内专家分月排行榜第一 2018年1月 Delphi大版内专家分月排行榜第一 2017年12月 Delphi大版内专家分月排行榜第一 2017年8月 Delphi大版内专家分月排行榜第一 2017年7月 Delphi大版内专家分月排行榜第一 2017年5月 Delphi大版内专家分月排行榜第一 2017年3月 Delphi大版内专家分月排行榜第一 2017年2月 Delphi大版内专家分月排行榜第一 2016年12月 Delphi大版内专家分月排行榜第一 2016年11月 Delphi大版内专家分月排行榜第一 2016年10月 Delphi大版内专家分月排行榜第一 2016年9月 Delphi大版内专家分月排行榜第一 2016年8月 Delphi大版内专家分月排行榜第一 2016年7月 Delphi大版内专家分月排行榜第一 2016年6月 Delphi大版内专家分月排行榜第一 2016年5月 Delphi大版内专家分月排行榜第一 2016年4月 Delphi大版内专家分月排行榜第一 2016年3月 Delphi大版内专家分月排行榜第一 2016年2月 Delphi大版内专家分月排行榜第一 2016年1月 Delphi大版内专家分月排行榜第一 2015年12月 Delphi大版内专家分月排行榜第一 2015年11月 Delphi大版内专家分月排行榜第一 2015年10月 Delphi大版内专家分月排行榜第一 2015年9月 Delphi大版内专家分月排行榜第一 2015年8月 Delphi大版内专家分月排行榜第一 2015年7月 Delphi大版内专家分月排行榜第一 2015年6月 Delphi大版内专家分月排行榜第一 2015年5月 Delphi大版内专家分月排行榜第一 2015年4月 Delphi大版内专家分月排行榜第一 2015年3月 Delphi大版内专家分月排行榜第一 2015年2月 Delphi大版内专家分月排行榜第一 2015年1月 Delphi大版内专家分月排行榜第一 2014年12月 Delphi大版内专家分月排行榜第一 2014年11月 Delphi大版内专家分月排行榜第一 黄花 2017年11月 Delphi大版内专家分月排行榜第二 2017年4月 Delphi大版内专家分月排行榜第二 2017年1月 Delphi大版内专家分月排行榜第二 2014年10月 Delphi大版内专家分月排行榜第二 2014年9月 Delphi大版内专家分月排行榜第二



procedure TForm2.Button1Click(Sender: TObject);

var

  JSONObject: TJSONObject;

  LItem: TJSONValue;

  LJPair: TJSONPair;

  weather: TJSONArray;

  StrJson: String;

  result: String;

  i: Integer;

begin

  JSONObject := TJSONObject.ParseJSONValue(TEncoding.UTF8.GetBytes(StrJson), 0) as TJSONObject;  // 创建JSONObject

  JSONObject := (JSONObject.GetValue('results') as TJSONArray).Get(0) as TJSONObject;            // 指向JSONObject 

  weather := JSONObject.GetValue('weather_data') as TJSONArray;                                  // 指向JSONObject 

  ......

  weather.Free;        //  weather 指向JSONObject 释放了JSONObject

  JSONObject.Free;     //  前一句已释放，再次释放出现内存错误

                       //  前二句只能用一个，建议删除weather.Free; 

end;

0 2016-07-24 08:04:03

只看TA 引用举报 #6 得分 20

Delphi关于内存释放的一个问题..... 最近在弄一个关于内存的程序,每次释放都是报错,请教一下怎么回事......分少见谅.....rn代码如下:rn [code=delphi]rnprocedure TForm1.Button9Click(Sender: TObject);rnvarrn TempP,OutP,tempp1,outp1:PChar;rn TempS,Outstr:string;rn I:Integer;rnbeginrn TempP:=StrAlloc(1024);rn TempS:=TempS+'12344545454';rn TempP:=PChar(TempS);rn Outstr:=StrPas(TempP);rn StrDispose(TempP);//此处报错rn Edit1.Text:=Outstr;rnend;rn[/code]

⋅Delphi 自带的JSON内存释放问题 ⋅mysql insert into 插入不成功 ⋅主从结构的JSON要怎么分拆 更多帖子 关注空间博客 helodd 本版专家分：7177: 引用 5 楼 jankercsdn 的回复:
Quote: 引用 4 楼 helodd 的回复:

打开内存报告，还是有内存泄漏的。    不知这个要怎么整。。

如果这个泄露是固定的几个字节，我一般是不管的。只要不是自己写的代码造成的，查起来麻烦，改起来更麻烦。

不要小看那几个字节，如果用到是你的数据，可能就不是几个字节了，还是我代码是想要循环去获取数据的，时间久了，泄漏的内存很快就程序out of momey 了。。所以这个要想办法解决。。

weather.Free;        //  weather 指向JSONObject 释放了JSONObject
  JSONObject.Free;     //  前一句已释放，再次释放出现内存错误
                       //  前二句只能用一个，建议删除weather.Free;

无论释放哪一个，最终内存报告，都是有泄漏的。

0 2016-07-24 16:44:33

只看TA 引用举报 #7    得分 0

delphi 创建窗体，内存释放问题 form1 是主窗体，form2是另外一个窗体rnform1下的button事件中，rnfrm2:=TForm2.Create(self);rnfrm2.show;//注：这里就用show,不用showmodual.rnrn目的：按下 form1的button按钮,就弹出 form2窗体。当form2窗体关闭后，创建的frm2 也随之释放。rn不知道该如何去做。请各位大神指教！

收藏帖子

关于DELPHI内存释放的疑问！: 最近做了一个项目，出现内存不释放的问题，希望大家帮忙！rnrn我先说说现象！rnrn程序正常运行，线程什么的，该关闭也关闭了，但是内存只增不减，但是变态的地方出现了，如果我把窗体最大化一下，或者最小化一下，内存马上就释放掉，如果窗体不动，内存就不释放。原因分析不出来……rnrn还有，我为了弄明白问题，我新建一个项目，什么都不做，直接点运行。发现内存会吃到5M大，如果最小化一下，马上就变成了几百K，然后在最大化一下，发现内存最多占用1M大左右。rnrn当然，我知道我做的项目肯定有问题，但怎么解决呢？我看过很多东西，都释放掉了，怎么还站内存呢？非要窗体刷新下才没么？rnrnrn十分不理解，请高手赐教！！！

delphi自带安装程序的问题: 用delphi5安装盘带的制作安装程序的程序，有一个选择项是：是否选择输入SN，当rn选择后，安装时要输入SN，但随便输入一个号码，都可以进行到下一步，如何设置要用户rn输入指定的号码？？？

DELPHI自带数据库的问题~~~: 做了一个表rn中文记录都变成了乱码rn改成英文就好了rn可是其他表就没有这个问题rn是什么原因呢？rn我的字段名是英文rnrn是不是DELPHI里最好字段名都用英文？rn因为以前做过一个表rn用中文字段名rn结果整个表都是乱码~~~

Delphi原生JSON的问题: 不知道从哪个版本开始，Delphi开始原生支持JSON，本人没有考证，现在用XE10.1的原生JSON会发现以下问题：如果是在ActiveX或用于WebSocket Server端的开发，会出现各种异常，而用superobject则一切正常，或许是我的用法不正确？暂时还是继续用superobject吧

内存释放内存释放内存释放: 内存释放内存释放内存释放内存释放内存释放内存释放

内存释放:Solaris上内存释放问题: 在solaris 10 x86_64上malloc内存，操作完free,程序运行过程中，内存一直在涨（通过prstat -a命令查看），同样得程序在windows上运行没有不存在这个问题，所以可以排除内存泄漏得可能。通过查看solaris得内存释放和分配算法，得知当程序调用free时，系统并不直接释放内存页，目的是为了下次程序可能再次访问这些内存页，从而提高系统性能，当系统缓存到一定数量的时候，系统会自动根据算法把这些不用得页真正的释放掉。 rn问题：在不使用其它版本malloc实现得前提下，有没有编译器选项或者其它方法能够使得生成得程序不使用这种机制，即当程序调用free时，系统立即释放内存页?

Delphi内存释放的问题，在线急等！！！！！: Timer.Interval := 50;rn在TTimer 的OnTimer事件中rnbeginrn Args.NumDatas := 255;rn GetMem(Args.pDataBlock, Args.NumDatas * sizeof(SDataBlock));rnrn Data := TData.Create;rn FList.Add(Data); rnrnrn finallyrn FreeMem(Args.pColorCodeCCHDataBlock);rn end;rnend;rn不知道为什么我只要加上rn Data := TData.Create;rn FList.Add(Data); rn就会有内存泄露，应用程序的内存使用量不停的增加，而且速度特别快，绝对不止增加一个TData占用的内存。rn而如果我把中间两句改成rn Data := TData.Create;rn Data.Free；rn即把刚申请的内存释放掉，则一切正常。 rnrn不知道哪位老大遇到过这样的问题啊？

请教Delphi高手，关于内存释放的问题: 有这样一个动态库中的函数rnextern int ReadImgBufferFromBmp(unsigned char **img,char *bmpFile,int *width,int *height);rn返回值：1 ...... 成功rn -1 ...... 失败 rn参数说明：*img ...... 返回图象数据指针(在ReadImgBufferFromBmp内部申请,使用完应在外部释放)rn *width ..... 返回的图象宽度rn *height .... 返回图象高度rn bmpFile .... bmp文件名rn我在Delphi中调用，但是*img在内部所申请的内存释放不掉。rn请问在Delphi中该如何释放？

iOS5 自带json使用: NSArray *valueArray = [@"val1 val2 val3" componentsSeparatedByString:@" "]; NSMutableDictionary *dict = [NSMutableDictionary dictionary]; for (NSString *each in [@"KeyA KeyB KeyC" ...

内存释放的问题: free()内存是怎么实现的？我怎么知道这块内存已经是空闲的了呢

内存释放问题。: 我在类中的成员函数返回一个TList,如下所示，然后再外面把它释放，可是释放时，老出错。请各位帮我看看。谢谢！ rnrntype rn PMesItems = ^TMesItems; rn TMesItems = record rn strItem : string; //²âÁ¿ÏîµÄ±êÌâ rn strID : Integer; //²¡ÈËµÄID rn strDateTime :string; //²âÁ¿Ê±¼ä rnend; rnrn//类中的内容 rnfunction TMesContrast.GetMuscleQuantityData: TList; rnvar rn tmpList:TList; rn tmpMesItems MesItems; rnbegin rn try rn tmpList := TList.Create ; rn if(NOt(dmMesContrast.qryFiveTee.Eof) and not(dmMesContrast.qryFiveTee.Bof )) then rn begin rn dmMesContrast.qryFiveTee.First; rn while(not(dmMesContrast.qryFiveTee.Eof)) do rn begin rn new(tmpMesItems); rn tmpMesItems^.strItemTitle := 'MuscleQuantity'; rn tmpMesItems^.strLData := dmMesContrast.qryFiveTee.FieldByName('Lmf').AsString ; rn tmpMesItems^.strRData := dmMesContrast.qryFiveTee.FieldByName('Rmf').AsString ; rn tmpMesItems^.strID := dmMesContrast.qryFiveTee.FieldByName('CaseID').AsString ; rn tmpMesItems^.strDateTime := dmMesContrast.qryFiveTee.FieldByName('MeasureTime').AsString ; rn tmpList.Add(tmpMesItems); rn dmMesContrast.qryFiveTee.Next; rn end; rn dmMesContrast.qryFiveTee.First; rn end; rn result := tmpList; rn except rn Result := nil; rn end; rnend; rnrn//外面的内容，去掉里面分配的内存。 rnprocedure TMainForm.Button1Click(Sender: TObject); rnvar rn objMes :TIMesContrast; rn tmpList:TList; rn tmpItems : PMesItems; rn integer; rn strTmp:string; rnbegin rn strTmp := '1'; rn objMes := TObjMesContrast.Create; rn objMes.SetPatientID(strTmp); rn objMes.SetSQL('select * from mesc30 '); rn tmpList := objMes.GetLegMuscleForceData; rn for i := 0 to tmplist.Count -1 do rn begin rn tmpItems := tmpList.items[i]; rn dispose(tmpItems); rn end; rnrn showmessage(IntToStr(tmpList.Count)); rn objMes.Free ; rn tmpList.Free; rnend; rnrn//说明，我对c++比较在行，c++中可以用new分配内存，在外面释放没有问题。因为new是在堆中分配内存，只要指针存在，就可以释放。在delphi中可以么？如果我想把返回的tlist释放掉，应该怎么做？谢谢。rn如果说是因为返回的是个局部变量，可是我可以得到其中的数据阿。rn

内存释放问题: 在程序中使用arraylist放大量数据，在程序运行中有释放（用xx = nothing)，实际运行中发现程序占用的内存可以释放，但系统总的占用内存不减少，只有退出程序这部分内存才释放，请问是什么原因？先谢谢了。

内存释放问题.: 大家好, 可以告诉我为什么下面的句子第一个会自动释放, 第二个就不会调用析构函数自动释放吗? 也就是第一个为什么不是动态对象? 望各位大侠不吝赐教. 谢谢!rnrnvoid CMyView::OnLButtonDown(UINT nFlags, CPoint point)rnrn CRect rect;rnrn CClientDC dc(this); // constructs dc on the stackrn dc.GetClipBox(rect); // retrieves the clipping rectanglern // dc automatically releasedrnrnvoid CMyView::OnLButtonDown(UINT nFlags, CPoint point)rnrn CRect rect;rnrn CDC* pDC = GetDC(); // a pointer to an internal dcrn pDC->GetClipBox(rect); // retrieves the clipping rectanglern ReleaseDC(pDC); // Don't forget thisrnrn

【内存释放问题】: [code=c]rnOnPaint()函数中：rnrnCPaintDC dc(this); rn//背景rn CRect rect;rn GetClientRect(&rect);rn CDC dcMem;rn dcMem.CreateCompatibleDC(&dc);rn CBitmap bmpBackground;rn bmpBackground.LoadBitmap(IDB_BITMAP7); //对话框的背景图片rn BITMAP bitmap;rn bmpBackground.GetBitmap(&bitmap);rn CBitmap *pbmpOld = dcMem.SelectObject(&bmpBackground);rn dc.SetStretchBltMode(COLORONCOLOR);rn dc.StretchBlt(0, 0, rect.Width(), rect.Height(), &dcMem, 0, 0, bitmap.bmWidth, bitmap.bmHeight, SRCCOPY);rn rn rn CDC *pDC = this->GetDC();rn rn CPen* pPenRed = new CPen;rn pPenRed->CreatePen(PS_SOLID, 2, RGB(180, 181, 181));rn CGdiObject* pOldPen = pDC->SelectObject(pPenRed);rn[/code]rnrn使用完了，rnpDC->SelectObject(pPenRed);rnReleaseDC(pDC);rndcMem.SelectObject(pbmpOld);//这个对么rn还有内存泄露，大神帮忙看看还有的要怎么写？

内存释放的问题?: 通过BYTE* temp = new BYTE [ibuffer.GetSize()];rn是否要释放,如何释放!

内存释放的问题？: 程序如下rncout << "------------After 5Seconds start-------------" << endl;rnsleep(5);rncout << "------------create Packet start-------------" << endl;rn list charList;rn for (int i = 0; i<< "------Now create-------" << "------------delete Packet finish-------------" << n << endl;rnrnsleep(20);rncout << "------------exit-------------" << endl;rnrn执行前内存如下rnMem: 1034420k total, 69592k used, 964828k free, 4264k buffersrnSwap: 2031608k total, 56184k used, 1975424k free, 31312k cachedrnrnrn打印完"------------create Packet finish-------------" rn之后内存如下rnMem: 1034420k total, 1011132k used, 23288k free, 188k buffersrnSwap: 2031608k total, 117024k used, 1914584k free, 11960k cachedrnrnrn打印完 "------------delete Packet finish-------------"rn之后内存如下rnMem: 1034420k total, 1018364k used, 16056k free, 92k buffersrnSwap: 2031608k total, 633204k used, 1398404k free, 9544k cachedrnrn可以说内存根本就没被释放掉，不知道为什么，rnrn请高人指点！谢谢！rn

delphi json: 一个不错的json类，可对常用的数据进行解释，极力推荐

【内存释放问题？？？】: 用Debug检测内存泄露rn大部分都是如下：rnThe thread 0x1370 has exited with code 3 (0x3).rnDetected memory leaks!rnDumping objects ->rnarray_s.cpp(155) : 801 normal block at 0x03152240, 20 bytes long.rn Data: < ! M_ > F4 21 15 03 14 0B 4D 5F CD CD CD CD CD CD CD CD rnstrcore.cpp(118) : 800 normal block at 0x031521E8, 22 bytes long.rn Data: < 38.1> 01 00 00 00 09 00 00 00 09 00 00 00 33 38 2E 31 rnstrcore.cpp(118) : 740 normal block at 0x031519F8, 21 bytes long.rn Data: < Infi> 01 00 00 00 08 00 00 00 08 00 00 00 49 6E 66 69 rnstrcore.cpp(118) : 739 normal block at 0x031519A0, 21 bytes long.rn Data: < Infi> 01 00 00 00 08 00 00 00 08 00 00 00 49 6E 66 69 rnstrcore.cpp(118) : 738 normal block at 0x03151948, 21 bytes long.rn Data: < Infi> 01 00 00 00 08 00 00 00 08 00 00 00 49 6E 66 69 rnstrcore.cpp(118) : 737 normal block at 0x031516B8, 21 bytes long.rn Data: < Infi> 01 00 00 00 08 00 00 00 08 00 00 00 49 6E 66 69 rnrn[color=#FF0000]我程序中没有这些文件，应该是系统文件什么，我用任务管理器查看还是有内存泄露。请问怎么解？[/color]

内存释放问题????????????????????: 我把文件放在数据库里,原后通过一个aspx文件把数据库里的文件读出来下载，语句如下：rnResponse.BinaryWrite((byte[])dr[strCol1]);rnrn但是后来我发觉，用户下载完成之后，内存不会自动释放，就算用GC.Collect()也不会释放，只有用户关了浏览器才释放，不知有没方法令用户下载完后马上释放内存吗？？？？？？？？？？？？？？？？？rn

内存释放的问题！: 在一个程序中if （）pch = new char[10] 我是根据一定的条件才new的。那我在程序中并不知道这条语句有没有执行。。我要做一个释放memory的函数，那么这个pch，是不是要del 掉吗？也许没有执行new ，我del 有问题吗？？

内存释放的问题。: VC里如下代码：rnrn#include "stdafx.h"rn#include "iostream.h"rnrnint main(int argc, char* argv[])rnrn char* p = new char[];rn cin>>p;rn cout<

问题有关rave,delphi自带的: 有谁对delphi 自带的rave页，是borland 公司自己开发的报表，请问那位兄弟对着比较rn熟，跟我将一下

DELPHI自带例子中的问题: DEMO下面MIDAS的POOL程序，为何只能用TDCOMCONNECTION不能用TSOCKETCONNECTION

关于delphi自带例程的问题。: 其中有个wordpad程序，能实现大多数文本编辑器的功能，可源码里只有区区几行，请问高手们这是怎么回事阿？

delphi自带示例程序DockExk的问题: delphi6中示例程序DockExk中的BottomDockPanel、LeftDockPanel、Hsplitter、rnVSplitter用来干什么？好像是不必要的啊.

delphi 7自带的f1book问题: 各位：delphi7自带的f1book是3.0版本的，我现在装了可是怎么用啊，两个的类名都是TF1book，在ActiveX面板里只有旧版的f1book,没有新装的f1book。rn在Component->Improt ActiveX Control里也显示新版本的已经安装了，但是怎么用大家帮帮忙啊。

delphi自带例子的一个问题。: Borland\Delphi6\Demos\DbClx\fishfact目录下有biolife。cds文件。看了是个文件数据库，这种文件是那里来到？

修改DELPHI自带控件的问题。: 我给DELPHI自带的某个控件（如TBOTTON)增加了一个属性（property），不是继承，是直接修改源代码，所有代码写完后（没有错误），怎样才能将我加的属性出现在Object Inspector中？（将原DCU删除后编译不行。）

内存释放问题！: 用C++写的程序，当这个应用程序关闭后，此应用程序所占用的系统资源是不是一定完全释放了?例如：rnrnvoid main()rnrn int* a;rn a = new int[10000];rn for(int i = 0 ;i<10000;i++)rn rn a[i] = i + 1;rn rn rnrnrn此程序就这样结束，试问此应用程序结束后动态分配给指针a 的内存空间有没有被释放呢？

内存释放问题..: 内存释放问题....rn不好意思没多少分了rnrn函数:rnrnint split(char* str,char seps[],char * ret[])rnrn int i=0;rn char *token;rn token = strtok( str, seps ); rn while( token != NULL ) rn rn // printf( " 8888888 %s\n", token ); rn ret[i]=token;rn token = strtok( NULL, seps ); rn //sprintf(ret[i],"%s", token);rn rn i++;rn rnrn rn delete token;rn return i;rnrnrn======================================rnrnmain()rnrnrn char *msg[4]=NULL;rn char *doc=(char *)malloc(strlen(lpContext->m_wsaInBuffer.buf)) ;rn strcpy(doc, lpContext->m_wsaInBuffer.buf);rnrnrn split(doc,"@",msg);rnrn========================================rn请问 msg 和 doc 需要进行释放吗,如果需要释放的话该如何写 ?

内存释放的问题！！！: 一个swing程序，内存老是得不到释放，我把panel都指null了，内存还是下不来，运行时间长了就堆溢出了，该怎么办啊？

关于微软自带的JSON解析时的问题: 申明一个队列，里面两个属性，一个是string tbname 一个是属性的集合，使用的是List 无论这个集合，是用接口，还是用基类，都无法完成序列化的操作，不知道为什么。使用Newtonsoft.json，会报不可以使用接口转换的问题，请问，微软自带的这个可以吗？谢谢大家了

内存释放: 内存释放

TMPGEnc PLUS 2.54 （带KVCD编码模板）下载: KVCD的作者设计了专用的编码模板文件，这些模板使用在mpeg压缩品质最好的软件“TMPGEnc plus”上，通过优化的动态码率和修正的量化矩阵来压缩编码，保证了生成的视频质量。相关下载链接：[url=//download.csdn.net/download/baobolz/2252485?utm_source=bbsseo]//download.csdn.net/download/baobolz/2252485?utm_source=bbsseo[/url]

餐饮管理系统（vb+sql server2005+crystal report10）下载: 详细介绍数据库设计和模块设计，附有详细代码相关下载链接：[url=//download.csdn.net/download/catherine104/2731020?utm_source=bbsseo]//download.csdn.net/download/catherine104/2731020?utm_source=bbsseo[/url]

Cocos2d for iPhone.0.99 Beginners Guide Dec.2010.pdf下载: Cocos2d for iPhone.0.99 Beginners Guide Dec.2010.pdf 相关下载链接：[url=//download.csdn.net/download/iamhh/3140771?utm_source=bbsseo]//download.csdn.net/download/iamhh/3140771?utm_source=bbsseo[/url]

我们是很有底线的