开发游戏也有一段时间了,发现使用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)写的一篇名为《关于“如何检测指针是否是对象”的深入探讨》的文章。详细内存参见《指针》和《对象》部分