关于Delphi中指针使用的心得

     前段时间一直在搞一个项目,常用到ListView,而且常把Record放入ItemData。一开始我就把对ListView的常规操作都写入一个Dll(包括批量的添加数据,保存数据,加载数据),方便于以后的使用。这是恶梦的开始。

 

     这样做不要紧,等项目越做越深入时,越来越多的问题突现。只要对ListView操作不管什么操作,添加、删除,就是点击某行,就会跳出“Invalid pointer operation”,或者“Access violation ”某个地址错误。这使得我的项目进程大大受限,最后不得不停下来专心解决这个问题。

     一开始,我并不认为是调用DLL时的问题,当我把其它一些功能层层剥离时发现,就连LoadLibrary(‘8888.dll‘);都会出错。最后不得不把注意力放在操作ListView的DLL中。

    这个DLL中有这样一段代码

 1关于Delphi中指针使用的心得function SetSubColumns( var Xml: IXMLDocument;
 2关于Delphi中指针使用的心得                        AddNodeName: WideString;
 3关于Delphi中指针使用的心得                        var ColumnsField : TStringList;
 4关于Delphi中指针使用的心得                        var Lv: TListView ):Boolean;stdcall;
 5关于Delphi中指针使用的心得var
 6关于Delphi中指针使用的心得    ListItem : TListItem;
 7关于Delphi中指针使用的心得    DataNode: IXMLNode;
 8关于Delphi中指针使用的心得    NodeList: IXMLNodeList;
 9关于Delphi中指针使用的心得    HideStr : PItemData;
10关于Delphi中指针使用的心得    i,j: Integer;
11关于Delphi中指针使用的心得begin
12关于Delphi中指针使用的心得    try
13关于Delphi中指针使用的心得        NodeList := Xml.DocumentElement.ChildNodes;
14关于Delphi中指针使用的心得        for i := 0 to NodeList.Count - 1 do
15关于Delphi中指针使用的心得        begin
16关于Delphi中指针使用的心得            ListItem := Lv.Items.Add;
17关于Delphi中指针使用的心得            DataNode := NodeList[i];
18关于Delphi中指针使用的心得            {用指针HideStr来保存隐藏的ID}
19关于Delphi中指针使用的心得            New(HideStr);
20关于Delphi中指针使用的心得            HideStr.PrimaryKey := StrToInt(DataNode.ChildNodes[ColumnsField[0]].NodeValue);
21关于Delphi中指针使用的心得            ListItem.Data := HideStr;
22关于Delphi中指针使用的心得
23关于Delphi中指针使用的心得            ListItem.Caption := DataNode.ChildNodes[ColumnsField[1]].NodeValue;
24关于Delphi中指针使用的心得
25关于Delphi中指针使用的心得            for j := 2 to ColumnsField.Count - 1 do
26关于Delphi中指针使用的心得                ListItem.SubItems.Add(DataNode.ChildNodes[ColumnsField[j]].NodeValue);
27关于Delphi中指针使用的心得
28关于Delphi中指针使用的心得        end;
29关于Delphi中指针使用的心得        Result:= True;
30关于Delphi中指针使用的心得    except
31关于Delphi中指针使用的心得        Result:= False;
32关于Delphi中指针使用的心得    end;
33关于Delphi中指针使用的心得end;

     其中有一段代码为New(HideStr);为ItemData分配内存,这才是问题的所在。语法本身是没有任何问题,但是放错了地方,因为我调用这个DLL时是动态调用,执行完后直接FreeLibrary了,当FreeLibrary时,同时也释放了ItemData所对应的内存地址。所以第一次操作ListView时没有任何问题,第二次操作时就错误百出。

     解决的方法有只有一个,就是把分配内存的操作放入主线程,不要放入DLL中。

     总结,对于分配内存的操作还是由主程序(主线程)来分配,这样操作起来方便而且不会出错,当主程序关闭时,会一起把分配的内存释放掉。真是吃一堑长一智啊。 

 

 

关于Delphi中指针使用的心得

上一篇:【WPF学习】第三十二章 执行命令


下一篇:windows虚拟环境指令