DELPHI版传奇引擎学习菜鸟篇(applem2)-06

admin

DELPHI版传奇引擎学习菜鸟篇(applem2)-06
引擎源代码的学习暂时放下了几天,因为需要掌握一些进程处理方面的消息,之前在GAMECENTER中的启动服务过程好好琢磨了一下,将服务启动过程单独拿出来,原先是用主界面的过程判断处理启动,好长的代码,终于提炼出来了一个通用启动过程,停止服务的过程和这个是类似的.

1. {运行外部程序的函数}
   
2. function RunProgram(var ProgramInfo: TProgram; sHandle: string; dwWaitTime: LongWord): LongWord;
   
3. var
   
4.   StartupInfo: TStartupInfo;
   
5.   sCommandLine: string;
   
6.   sCurDirectory: string;
   
7. begin
   
8.   Result := 0;
   
9.   FillChar(StartupInfo, SizeOf(TStartupInfo), #0);
   
10.   GetStartupInfo(StartupInfo);
    
11.   sCommandLine := format('%s%s %s %d %d', [ProgramInfo.sDirectory, ProgramInfo.sProgramFile, sHandle, ProgramInfo.nMainFormX, ProgramInfo.nMainFormY]);
    
12. 
    
13.   sCurDirectory := ProgramInfo.sDirectory;
    
14.   if not CreateProcess(nil, //lpApplicationName,
    
15.     PChar(sCommandLine), //lpCommandLine,
    
16.     nil, //lpProcessAttributes,
    
17.     nil, //lpThreadAttributes,
    
18.     true, //bInheritHandles,
    
19.     0, //dwCreationFlags,
    
20.     nil, //lpEnvironment,
    
21.     PChar(sCurDirectory), //lpCurrentDirectory,
    
22.     StartupInfo, //lpStartupInfo,
    
23.     ProgramInfo.ProcessInfo) then
    
24.   begin //lpProcessInformation
    
25.     Result := GetLastError();
    
26.   end;
    
27.   Sleep(dwWaitTime);
    
28.   //WaitForInputIdle(ProgramInfo.ProcessInfo.hProcess,INFINITE);
    
29. end;
    
30. {通用启动过程,RunGate的可以再写一个,重载一下就行了}
    
31. procedure StartGameTimer(var {之前把这个漏掉了}Server: TProgram; sHandle: string);
    
32. var
    
33.   nRetCode: Integer;
    
34. begin
    
35.   if Server.boGetStart then
    
36.   begin
    
37.     case Server.btStartStatus of
    
38.       0:
    
39.         begin
    
40.           //CloseHandle(DBServer.ProcessHandle);
    
41.           {运行DBServer,返回0表示运行成功}
    
42.           nRetCode := RunProgram(Server, sHandle, 0);
    
43.           if nRetCode = 0 then
    
44.           begin
    
45.             {运行成功将运行标志写为1(正在启动)}
    
46.             Server.btStartStatus := 1;
    
47.             {返回DBServer窗口句柄(显示DBServer)}
    
48.             Server.ProcessHandle := OpenProcess(PROCESS_ALL_ACCESS, False, Server.ProcessInfo.dwProcessId);
    
49.             //frmMain.mainoutmessage(inttostr(server.ProcessHandle));
    
50.           end
    
51.           else
    
52.           begin
    
53.           {否则显示错误信息,调用的是GetlastError}
    
54.             ShowMessage(IntToStr(nRetCode));
    
55.           end;
    
56.           Exit;
    
57.         end;
    
58.       1:
    
59.         begin //如果状态为1 则还没启动完成
    
60.           //        Server.btStartStatus:=2;
    
61.           Exit;
    
62.         end;
    
63.     end;
    
64.   end;
    
65. end;

复制代码

因为基础不扎实,光是这一个处理过程就让我折腾了将近一个礼拜,最后才想起来断点调试,跟踪变量发现继承主进程启动的子进程句柄与检测到的句柄不一样,终于发现了是漏掉了var声明,应该用传引用调用,也许DELPHI里边也该这么叫吧,使用的是变量被改变以后的值,不过还可以,总算知道自己学习过程中有什么不足了,基础还是重要的,之前学基础没怎么注意这个,用到了才发现原来很简单的东西被我想的无比复杂,为此我转移注意力学习了几天INI文件读写,自己写了setion和value遍历函数,结果看到VCL里边有现成的东西,但是没白费事件,至少知道了INI的基本结构和处理方法,虽然自己写的有点啰嗦,但是总归是自己实现的,自己UP一下,接下来的学习应该进入消息处理阶段了,DBServer先放一放,要回头把GAMECENTER的东西彻底搞明白了再继续,我发现就这么一个引擎控制包含着那么多的知识点,需要我去巩固一下,再次为自己加油.

关注过程,不知不觉就发现了结果原来如此...