DD145登录器源码Delphi冷雨夜lyy源代码

夜游神

lyy登录器源码DD145版,编译通过可使用,二次开发可利用性高,小白勿下,干货收藏

1. constructor TExistFile.Create();
   
2. begin
   
3.   FreeOnTerminate := True;              // 自动删除
   
4.   inherited Create(False);              // 直接运行
   
5. end;
   
6. 
   
7. procedure TExistFile.Execute;
   
8. begin
   
9.   try
   
10.     if not DirectoryExists(FullPath + 'Update\') then ForceDirectories(FullPath + 'Update\');
    
11.     if not DirectoryExists(FullPath + 'Config\') then ForceDirectories(FullPath + 'Config\');
    
12.     //检测并生成WINRAR解压缩组件
    
13.     if not FileExists(FullPath + 'LyyConfig\UnzLib.dll') then ExtractRes('exefile', UnRARDLLRes, PChar(FullPath + 'Config\UnzLib.dll'));
    
14.     ExtractRes('exefile', 'Data_RES1', PChar(FullPath + 'Weapon.ord'));
    
15.     ExtractRes('exefile', 'Data_RES2', PChar(FullPath + 'BgmList.wwl'));
    
16.     ExtractRes('exefile', 'Data_RES3', PChar(FullPath + 'CmList.dat'));
    
17.     ExtractRes('exefile', 'Data_RES4', PChar(FullPath + 'Magic.exp'));
    
18.     ExtractRes('exefile', 'Data_RES5', PChar(FullPath + 'Map.Mif'));
    
19.     ExtractRes('exefile', 'Data_RES6', PChar(FullPath + 'MExplain.exp'));
    
20.     ExtractRes('exefile', 'Data_RES7', PChar(FullPath + 'MInfo.dat'));
    
21.     ExtractRes('exefile', 'Data_RES8', PChar(FullPath + 'SoundList.wwl'));
    
22.    
    
23.     DelFile(mir3path);                  //删除mir3.exe
    
24. 
    
25.     //if not DirectoryExists(DLLPath) then ForceDirectories(DLLPath);
    
26.   //  if not FileExists(DLLPath + 'mir3.dll') then ExtractRes('exefile', DbtDllRes, PChar(DLLPath + 'mir3.dll'));
    
27. 
    
28.     DelFile(FullPath + 'MyMir3.dll');
    
29.     ExtractRes('exefile', 'Mir3_RESO', PChar(FullPath + 'MyMir3.dll'));
    
30.     DelFile(FullPath + 'KingMir3.dll');
    
31.     ExtractRes('exefile', 'Mir3_RESP', PChar(FullPath + 'KingMir3.dll'));
    
32. //    DelFile(FullPath + 'LyyMir3.dll');
    
33. //    ExtractRes('exefile', 'Mir3_RESQ', PChar(FullPath + 'LyyMir3.dll'));
    
34.     DelFile(FullPath + 'ClentEx.dll');
    
35.     ExtractRes('exefile', 'Mir3_RESH', PChar(FullPath + 'ClentEx.dll'));
    
36. 
    
37.     //删除多余文件，加速游戏
    
38.     DelFile(FullPath + 'Data\CreateChr.dat');
    
39.     DelFile(FullPath + 'Data\StartGame.dat');
    
40.     DelFile(FullPath + 'Data\wemade.dat');
    
41.   except
    
42.   end;
    
43. end;
    
44. 
    
45. constructor TUpIP.Create(const DownUrl: string);
    
46. begin
    
47.   Str := DownUrl;
    
48.   FreeOnTerminate := True;              // 自动删除
    
49.   inherited Create(False);              // 直接运行
    
50. end;
    
51. 
    
52. procedure TUpIP.ReStartLogin;
    
53. begin
    
54.   Form1.suiMessageDialog1.Caption := '需要重启登录器';
    
55.   Form1.suiMessageDialog1.Text := '登录器配置文件升级成功，必须重新启动登录器后才生效，不重启可能无法正常游戏，是否现在就重新启动登录器！？';
    
56.   if Form1.suiMessageDialog1.ShowModal = mrok then
    
57.   begin
    
58.     _bReStartLogin := True;
    
59.     Form1.Close;
    
60.   end;
    
61. end;
    
62. 
    
63. procedure TUpIP.ShowLoginUPForm;
    
64. begin
    
65.   Form1.TrayIcon1.MinimizeApp;
    
66.   Form1.Timer1.Enabled := True;
    
67. end;
    
68. 
    
69. procedure TUpIP.ShowForm;
    
70. begin
    
71.   if _bEnableCue then
    
72.   begin
    
73.     Form1.suiMessageDialog1.Caption := '自动更新';
    
74.     Form1.suiMessageDialog1.Text := '检测到你的客户端有文件需要更新，是否现在更新（不更新可能影响正常游戏）！？';
    
75.     if Form1.suiMessageDialog1.ShowModal = mrok then
    
76.     begin
    
77.       Form_Update.ShowModal;
    
78.     end;
    
79.   end
    
80.   else
    
81.   begin
    
82.     Form_Update.ShowModal;
    
83.   end;
    
84. end;
    
85. 
    
86. function TUpIP.Get(URL: string): boolean; //获得更新信息
    
87. var
    
88.   sDownUrl          : string;
    
89.   IdHTTP            : TIDHttp;
    
90.   FileStr           : TStringList;
    
91.   ChkStr            : string;
    
92. begin
    
93.   try
    
94.     sDownUrl := URL;
    
95.     //if copy(sDownUrl, Length(sDownUrl), 1) <> '/' then sDownUrl := sDownUrl + '/';
    
96.     FileStr := TStringList.Create;
    
97.     IdHTTP := TIDHttp.Create(nil);
    
98.     try
    
99.       Result := False;
    
100.       IdHTTP.HandleRedirects := True;   //必须支持重定向否则可能出错
     
101.       IdHTTP.ReadTimeout := 30000;      //超过这个时间则不再访问
     
102.       FileStr.Add(IdHTTP.Get(sDownUrl));
     
103.       //判断是否正确的格式
     
104.       ChkStr := FileStr.Strings[0];
     
105.       if Q_PosStr(';;;;;LYY Mir3Login Update File;;;;;', ChkStr) > 0 then
     
106.       begin
     
107.         DelFile(sUpInfoini);
     
108.         FileStr.SaveToFile(sUpInfoini); //保存本地升级信息文件
     
109.         Result := True;
     
110.       end
     
111.       else
     
112.       begin
     
113.         Result := False;
     
114.       end;
     
115.     finally
     
116.       FreeAndNil(IdHTTP);
     
117.       FreeAndNil(FileStr);
     
118.     end;
     
119.   except
     
120.     Result := False;
     
121.   end;
     
122. end;
     
123. 
     
124. function TUpIP.CheckFixFile: boolean;
     
125. var
     
126.   NFile             : string;
     
127.   PUDL              : PTUpdateList;
     
128.   SelfPath          : string;
     
129.   SelFileTime       : TDateTime;
     
130. begin
     
131.   SelfPath := FullPath;
     
132.   SelfPath := Copy(SelfPath, 1, Length(SelfPath) - 1);
     
133.   while (True) do
     
134.   begin
     
135.     if UPList.Count = 0 then break;
     
136.     PUDL := UPList.Items[0];
     
137.     NFile := SelfPath + PUDL^.FilePath + PUDL^.ToFile;
     
138.     if not FileExists(NFile) then       //文件不存在
     
139.     begin
     
140.       //MessageBox(0, PChar(NFile), '文件不存在', MB_OK + MB_ICONSTOP);
     
141.       Result := True;
     
142.       Exit;
     
143.     end;
     
144.     SelFileTime := GetFileDateTime(NFile, fttLastWrite);
     
145.     if SecondsBetween(SelFileTime, PUDL^.FileDateTime) > 30 then
     
146.     begin
     
147.       //MessageBox(0, PChar(NFile), '文件日期不正确', MB_OK + MB_ICONSTOP);
     
148.       Result := True;
     
149.       Exit;
     
150.     end;
     
151.     Dispose(PTUpdateList(UPList.Items[0]));
     
152.     UPList.Delete(0);
     
153.   end;
     
154.   Result := False;
     
155. end;
     
156. 
     
157. function TUpIP.CheckUpdateInfo: boolean;
     
158. var
     
159.   Ini               : TFastIniFile;
     
160. begin
     
161.   try
     
162.     Ini := TFastIniFile.Create(sUpInfoini);
     
163.     try
     
164.       try
     
165.         _bCheckLong := Ini.ReadBoolean('UpdateInfo', 'CheckLong', False);
     
166.         _sLongURL := Ini.ReadString('UpdateInfo', 'LongURL', '');
     
167.         _sLongCode := Ini.ReadString('UpdateInfo', 'LongCode', '');
     
168.         _bCheckIni := Ini.ReadBoolean('UpdateInfo', 'CheckIni', False);
     
169.         _sIniURL := Ini.ReadString('UpdateInfo', 'IniURL', '');
     
170.         _sIniCode := Ini.ReadString('UpdateInfo', 'IniCode', '');
     
171.         _bCheckFix := Ini.ReadBoolean('UpdateInfo', 'CheckFix', False);
     
172.         _sDefUrl := Ini.ReadString('UpdateInfo', 'DefURL', '');
     
173.         _bEnableCue := Ini.ReadBoolean('UpdateInfo', 'EnableCue', False);
     
174.         _sDllURL := Ini.ReadString('UpdateInfo', 'DLLURL', '');
     
175.         _sDllCode := Ini.ReadString('UpdateInfo', 'DLLCode', '');
     
176.         if _bCheckLong then _bCheckLong := (_sLongURL <> '') and (_sLongCode <> '');
     
177.         if _bCheckIni then _bCheckIni := (_sIniURL <> '') and (_sIniCode <> '');
     
178.         if _bCheckFix then _bCheckFix := _sDefUrl <> '';
     
179.         Result := _bCheckLong or _bCheckIni or _bCheckFix;
     
180.       except
     
181.         Result := False;
     
182.       end;
     
183.     finally
     
184.       FreeAndNil(Ini);
     
185.     end;
     
186.   except
     
187.     Result := False;
     
188.   end;
     
189. end;
     
190. 
     
191. function TUpIP.AddList: boolean;
     
192. var
     
193.   Ini               : TFastIniFile;
     
194.   SectionStringList : TStringList;
     
195.   i                 : Integer;
     
196.   SectionName       : string;
     
197.   PUDL              : PTUpdateList;
     
198.   sFromFile, sFilePath, sFileDateTime: string;
     
199.   FileDateTime      : TDateTime;
     
200. begin
     
201.   try
     
202.     Ini := TFastIniFile.Create(sUpInfoini);
     
203.     SectionStringList := TStringList.Create;
     
204.     try
     
205.       try
     
206.         Ini.ReadSections(SectionStringList);
     
207.         for i := 0 to SectionStringList.Count - 1 do
     
208.         begin
     
209.           SectionName := SectionStringList.Strings<i>;
     
210.           if Q_UpperCase(SectionName) <> Q_UpperCase('UpdateInfo') then
     
211.           begin
     
212.             try
     
213.               sFromFile := Ini.ReadString(SectionName, 'FromFile', '');
     
214.               sFilePath := Ini.ReadString(SectionName, 'FilePath', '');
     
215.               sFileDateTime := Ini.ReadString(SectionName, 'FileDateTime', '');
     
216.               if (sFromFile <> '') and (sFilePath <> '') and (sFileDateTime <> '') then
     
217.               begin
     
218.                 FileDateTime := StrToDateTime(sFileDateTime);
     
219.                 New(PUDL);
     
220.                 PUDL^.FromFile := sFromFile;
     
221.                 PUDL^.ToFile := SectionName;
     
222.                 PUDL^.FilePath := sFilePath;
     
223.                 PUDL^.FileDateTime := FileDateTime;
     
224.                 UPList.Add(PUDL);
     
225.               end;
     
226.             except
     
227.               continue;
     
228.             end;
     
229.           end;
     
230.         end;
     
231.         //MessageBox(0, PChar(IntToStr(UPList.Count)), '', MB_OK + MB_ICONSTOP);
     
232.         Result := UPList.Count > 0;
     
233.       except
     
234.         Result := False;
     
235.       end;
     
236.     finally
     
237.       FreeAndNil(Ini);
     
238.       FreeAndNil(SectionStringList);
     
239.     end;
     
240.   except
     
241.     Result := False;
     
242.   end;
     
243. end;
     
244. 
     
245. procedure TUpIP.GetIniCrcError;
     
246. begin
     
247.   //MessShow(3, '由于更新中的登录器配置文件校验失败，登录器配置无法更新到最新状态，你可以继续游戏，但是可能不正常，请联系管理员解决！');
     
248.   Form1.suiMSNPopForm1.Title := '登录器配置文件更新失败';
     
249.   Form1.suiMSNPopForm1.MessageText := '登录器配置文件更新时校验失败,登录器配置无法更新到最新状态,这可能会影响你正常游戏,请联系管理员解决.';
     
250.   Form1.suiMSNPopForm1.Popup;
     
251. end;
     
252. 
     
253. function TUpIP.GetIni: boolean;         //下载
     
254. var
     
255.   IdHTTP            : TIDHttp;
     
256.   TempFile          : string;
     
257.   Error32           : WORD;
     
258.   TempCrc           : DWORD;
     
259.   TStream           : TMemoryStream;
     
260. begin
     
261.   try
     
262.     TempFile := FullPath + 'update\' + ExtractFileName(sUpIPini);
     
263.     DelFile(TempFile);
     
264.     TStream := TMemoryStream.Create;
     
265.     IdHTTP := TIDHttp.Create(nil);
     
266.     try
     
267.       IdHTTP.HandleRedirects := True;   //必须支持重定向否则可能出错
     
268.       IdHTTP.ReadTimeout := 30000;      //超过这个时间则不再访问
     
269.       IdHTTP.Get(_sIniURL, TStream);
     
270.       TStream.SaveToFile(TempFile);
     
271.     finally
     
272.       FreeAndNil(IdHTTP);
     
273.       FreeAndNil(TStream);
     
274.     end;
     
275.     //检测CRC
     
276.     Hex3Kol(TempFile, TempCrc, Error32);
     
277.     if (Error32 <> 0) or (Q_IntToStr(TempCrc) <> _sIniCode) then //校验失败
     
278.     begin
     
279.       Synchronize(GetIniCrcError);
     
280.       Result := False;
     
281.     end
     
282.     else
     
283.     begin
     
284.       DelFile(sUpIPini);                //删除目标文件
     
285.       CopyFile(PChar(TempFile), PChar(sUpIPini), False); //复制文件到目标
     
286.       DelFile(TempFile);                //删除update目录中的临时文件
     
287.       Result := True;
     
288.     end;
     
289.   except
     
290.     Result := False;
     
291.   end;
     
292. end;
     
293. 
     
294. procedure TUpIP.Execute;
     
295. begin
     
296.   if Get(Str) then
     
297.   begin
     
298.     //检测三选项以及读取选项内容
     
299.     if FileExists(sUpInfoini) and CheckUpdateInfo then
     
300.     begin
     
301.       //是否更新配置文件
     
302.       if _bCheckIni and (IniCrc <> 0) and (_sIniCode <> Q_IntToStr(IniCrc)) then
     
303.       begin
     
304.         if GetIni then                  //更新成功，提示重启登录器
     
305.         begin
     
306.           Synchronize(ReStartLogin);
     
307.           Exit;
     
308.         end;
     
309.       end;</i>

复制代码

游客，如果您要查看本帖隐藏内容请回复

MooCa

瞧瞧什么价格