DELPHI指针使用的心得

开发游戏也有一段时间了，发现使用DELPHI来开发网络游戏不了解DELPHI下指针的使用是完全不行的。所以今天我简单总结以下我使用DELPHI指针的心得。希望对大家有所帮助。
    记得在大学学习C语言的时候在谭浩强编写的书中，关于指针一章的开始就说“指针是C语言的精华”，可见指针对于C语言的重要性。其实在Pascal语言中指针也占据着重要的位置。
 
1：指针的赋值。
type
RTestInfo = record
Age：Integer;
end;
PtestInfo = ^ RtestInfo;
var
Test1,Test2：PtestInfo;
Begin
     New(Test1);
     New(Test2);
     Test1^.Age:=12;
     Test2:=Test1;
     Application.MessageBox(Pchar(IntToStr(Test2^.Age)),’测试’,MB_OK);
     Test1^.Age:=13;
Application.MessageBox(Pchar(IntToStr(Test2^.Age)),’测试’,MB_OK);
DisPose(Test1);
DisPose(Test2);
End;
上面的代码中使用了Test2:=Test1;进行指针的赋值，也就是说进行赋值以后两个变量指向的相同的地址，所以当Test1的Age发送变化以后Test2的Age也随之发生了变化。反过来也是一样。那如果我们要将Test1中的内容放在Test2中并且当Test1中的内容发生变化的时候Test2的内容不会发生变化有如何来做呢？其实很简单，使用Test2^：=Test1^；就可以了，这个时候变量Test1和变量Test2指向的是两个不同的地址，当一方的内容发生变化的时候另外一方不会受到影响。
 
2：数组和指针的转换。
曾使用过API函数来编写网络通信的都知道，网络传输过程中传输的都是char类型的数组。而我们经常需要将自己定义的一个结构通过网络传输出去，并且当对方接收到这个数据以后又能将其转换为相应的结构来处理。以前我是使用添加标记位来解决这个问题。其实使用数组和指针转换是很简单的。
type
         RtestInfo = record
                   Age：Integer;
         End;
Var
         Test: RtestInfo;
         Data：array[0..1024] of Char;
Begin
         Test.Age:=13;
         Fillchar(Data,SizeOf(Data),#0);
         StrMove(Data,@ Test,sizeof(Test));
         //数据发送
End;
在上面的例子中首先我们将我们定义数组Data清空，然后使用函数StrMove将结构Test的内容复制到Data中去。这个时候就可以将数据发送出去。当对方接受到数据以后，可以用以下的代码进行还原。
type
         RtestInfo = record
                   Age：Integer; [Page]
         End;
Var
         Test: RtestInfo;
Begin
         StrMove(@Test,Data,sizeof(Test));
         //处理数据
End;
这个时候就可以对发送过来的数据进行相应的处理了。
 
3：函数指针的使用。
在分模块开发的过程中，DLL占据着重要的位置。在我开发游戏的服务端也是使用DLL的方式。在开发的时候遇见这样的一个问题，例如我在一个EXE中编写了一个功能非常复杂的函数，在DLL中我想使用到它，如何做呢？其实使用函数的指针就可以很方便的实现。
我们知道DLL的运行空间是和调用它的EXE在一起的。也就是说在这个空间中的资源理论上DLL是都可以使用。所以只要将exe中的函数指针传给DLL，那么DLL就可以使用这个函数了。
例如在DLL中有函数ModuleSendData作用是让EXE中传入函数的指针链表，这个链表中的函数都是DLL中可能用到的。
 
SendDataFun: procedure(Casetype: Byte; UserSocket: RUserSocket; Data: array of char; DataLen: Integer);
 
function ModuleSendData(FunPList: TList): Boolean; stdcall; export;
begin
  SendDataFun := FunPList.Items[0];
end;
 
在EXE中的代码是：
Linstance:=LoadLibrary(Pchar(Temp));
     if Linstance>0 then
     begin
        //将发送数据的指针传入DLL插件中
        @GiveModuleFun:=GetProcAddress(Linstance,’ModuleSendData’);
        if @GiveModuleFun<>NIl then
        begin
          m_FunList:=TList.Create;
            //发送数据
            t_Pointer:=@DllSendData;
            m_FunList.Add(t_Pointer);

  GiveModuleFun(m_FunList);
                   End;
         End;
其中DllSendData就是我们想传入给DLL的函数。
 
这个时候在DLL中使用SendDataFun就和一般的函数一样了。
这里注意的一点是Exe中的函数DllSendData我定义的是一个全局函数。原因是这样取得函数的指针的时候比较简单

 

/

 

Delphi自动管理的内存

Delphi中原子变量，如Integer、Boolean、Record、枚举等都是在作用域内编译器自动申请内存，出了作用域自动释放；另外，字符串、Variant、动态数组、接口也是由Delphi自动管理。

这些变量都是在栈中存储的，除了接口。另外，Variant是程序员用函数手工创建的，例如VarArrayCreate；动态数组也是程序员用函数手工创建的，例如SetLength，但这两种情况都不需要程序员自己释放。

另外，还有一种变量需要注意，是使用Threadvar声明的变量，它的作用域是一个线程。这主要用在编写线程函数时，每一个线程使用一个线程局部存储。

 

程序员手工管理的内存

指针和对象是需要程序员手工申请和释放的内存。

指针包括PChar、Pointer（无类型指针）、记录指针、变量指针（指向原子变量）、函数指针（例如回调函数，分为全局函数和对象方法）。使用New函数来申请内存，使用Dispose来释放指针。另外，GetMem、ReallocMem和FreeMem也是一系列申请、释放内存的函数，可以通过GetMemoryManager和SetMemoryManager函数来读取和设置Delphi的三个内存管理函数。

对象包括TObject和IUnknown两颗继承树继承下来的子类对象。必须使用构造方法来构造对象。用构造方法（一般是Create，也可以不是，Delphi的编译器只认constructor的关键字）创建的对象，如果你没有指定拥有者，那么必须自己手动释放，即便是指定了拥有者也需要看实际需要在特定的时刻释放。释放一般使用Free方法（IUnknown则不需要手工释放），更好的方法是使用FreeAndNil（在Sysutils.pas单元），它既释放占用的内存，同时释放指针本身。

这些变量都是在堆中存储的。另外一个需要注意的问题是，TList中的指针都需要程序员自己释放。

 

注：

1、  回调函数不属于内存管理的技术范畴，详细内容参见《指针》部分。

2、  对象的详细内容参见《对象模型》部分。

3、  一个指针被多个地方使用，而其中一个地方释放了，其他地方再使用就会发生异常，这是一个使用指针应该注意的问题。详细内存参见《指针》部分。

4、  传递指针有两个很明显的优势：节省内存、提高速度。详细内存参见《指针》和《设计技巧》部分。

5、  如何判断对象和指针是一个技术性很强的主题，csdn上有一些讲这个主题的帖子，还可以参见Aimingoo（aim@263.net）写的一篇名为《关于“如何检测指针是否是对象”的深入探讨》的文章。详细内存参见《指针》和《对象》部分