传奇项目调试文档

传奇项目调试文档.txt我的优点是：我很帅；但是我的缺点是：我帅的不明显。什么是幸福？幸福就是猫吃鱼，狗吃肉，奥特曼打小怪兽！令堂可是令尊表姐？我是胖人，不是粗人。调试传奇服务器程序操作步骤：

一：搭建环境

1. 安装delphi6

2. 安装JSocket组件

（说明：JSocket文件夹下包含有七个文件Jacky.cfg，Jacky.dof，Jacky.dpk，Jacky.res，

JNetwork.pas，JSocket.pas，O.JSocket.pas。）

2.1将JSocket文件夹拷贝到delphi的lib文件夹下(作者实例: C:\Program Files\Borland\

Delphi6\Lib)

2.2 运行delphi->Component->Install Component…->弹出Install Component窗口

->Into existing package->点击Unit file name所对应的Browse…按钮

->找到并选择Jsocket.pas（文件作者实例: C:\Program Files\Borland\Delphi6\Lib

\JSocket)->下面的操作都是点击确认或者保存

二：编译传奇服务器程序

依次打开并编译source文件下的各个工程，成功编译并生成可执行文件和其他相应文件。这些文件位于Release文件夹下对应的文件夹中

三：运行服务器端程序

依次运行release文件下的七个可执行程序，M2Server.exe，LogDataServer.exe，DBServer.exe，LoginSrv.exe，RunGate.exe，SelGate.exe，LoginGate.exe。

七个可执行程序同时正常运行。

调试传奇客户端程序操作步骤：

一：搭建环境

1.安装delphix组件

1.1将DelphiX_D6文件夹移动到delphi的lib文件夹下(作者实例: C:\Program Files\Borland\Delphi6\Lib)

1.2 双击DelphiX_D6文件夹里的DelphiX_for6.dpk->弹出一个窗口，点击标题栏中的install按钮->下面的操作都是点击确认或者保存

2. 安装TWMImages组件

2.1 将WIL.pas，wmUtil.pas，MudUtil.pas，HUtil32.pas，EncryptUnit.pas，EDcode.pas，

DWinCtl.pas文件拷贝到delphi的lib文件夹下

2.2运行delphi->Component->Install Component…->弹出Install Component窗口

->Into existing package->点击Unit file name所对应的Browse…按钮

->找到并选择WIL.pas->下面的操作都是点击确认或者保存

二：编译传奇服务器程序

用delphi打开客户端的mir2.dpr工程文件，

编译提示：Could not create output file '..\..\Build\Mir2\JSocket.dcu'

(解决方法：运行delphi->Project->弹出Project Options窗口

->Directories/Conditionals

->点击Output directory所对应的…按钮,选择一个合适的文件夹

(作者实例:D:\company\传奇源代码\Release\Mir2)

->点击Unit output directory所对应的…按钮,选择一个合适的文件夹

(作者实例:D:\company\传奇源代码\Build\Mir2)

->点击OK按钮

)

再次编译，提示：file not found grobal2.dcu

(解决方法：找到grobal2.dcu将其拷贝到客户端程序所在的文件夹下)

类似的问题解决方法同上

成功编译，客户端整个界面是黑的，鼠标是个蓝色的圆旋不停的转

编译只生成一个可执行程序，位于Release\Mir2

（解决方法：

1：将CLMain.pas文件中第262行至657行的代码替换为

CSocket.Address := '121.14.151.154' ;//服务器的ip地址

CSocket.Port :=7000;

//////////////////////////////////////////////////////////////////////////////// ///////

/*第262行至657行的代码:

if g_sMainParam1 = '' then begin

CSocket.Address:=g_sServerAddr;

CSocket.Port:=g_nServerPort;

end else begin

if (g_sMainParam1 <> '') and (g_sMainParam2 = '') then

CSocket.Address := g_sMainParam1;

if (g_sMainParam2 <> '') and (g_sMainParam3 = '') then begin

CSocket.Address := g_sMainParam1;

CSocket.Port := Str_ToInt (g_sMainParam2, 0);