由于比来公司太忙，好久没有更新我的BLOG了。本来想着写写关于HOOK驱动的文章，可是最后想想好久已经没有做驱动的对象了，怕写出来有错误，于是作罢。开发游戏也有一段时间了，发明使用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;
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:[email protected];
m_FunList.Add(t_Pointer);
GiveModuleFun(m_FunList);
End;
End;
此中DllSendData就是我们想传入给DLL的函数。
这个时候在DLL中使用SendDataFun就和一般的函数一样了。