传奇项目调试文档

传奇项目调试文档.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);
end;
if (g_sMainParam3 <> '') then begin
if CompareText (g_sMainParam1, '/KWG') = 0 then begin
{
CSocket.Address := kornetworldaddress; //'; CSocket.Port := 9000;
BoOneClick := TRUE;
OneClickMode := toKornetWorld;
with KornetWorld do begin
CPIPcode := MainParam2;
SVCcode := MainParam3;
LoginID := MainParam4;
CheckSum := MainParam5; //'dkskxhdkslxlkdkdsaaaasa';
end;
}
end else begin
CSocket.Address := g_sMainParam2;
CSocket.Port := Str_ToInt (g_sMainParam3, 0);
BoOneClick := TRUE;
end;
end;
end;
*/
//////////////////////////////////////////////////////////////////////////////// /////////////////////////
2:将编译文件输出路径指向热血传奇客户端可执行程序的文件夹
）。