使用道具 举报
原帖由 161xx 于 2008-3-23 20:18 发表 为什么我们进不去~~
procedure TLoadingInterface_Form.GetRemoteDatabase(Sender: TObject); begin if (SettingString_ServerDatabaseURL) <> PChar('') then begin try UpdateStatusText(LangString_Text00001 + '...'); GlobalString_XmlDatabase := UTF8Decode(GetDatabse_IdHTTP.Get(SettingString_ServerDatabaseURL)); //下载数据库到内存 if GlobalString_XmlDatabase = '' then //检测 begin GetDatabse_IdHTTP.Free; //释放内存 begin ShowMessage(LangString_Text00002 + #13#10#13#10 + LangString_Text00000); //提示非法数据库 GlobalBoolean_ApplicationTerminated := True; Application.Terminate; //结束程序 exit; end; end; except GetDatabse_IdHTTP.Free; begin If Application.MessageBox(PChar(LangString_Text00003 + #13#10 + #13#10 + LangString_Text00058 + #13#10 + #13#10 + LangString_Text00059), PChar(LangString_Text00003), MB_YESNO+MB_ICONQUESTION) = Id_Yes then //如果没法子连接上,就让用户选择是否继续 begin GlobalBoolean_Databaseunable := True; Self.Hide; Self.AlphaBlend := True; Self.AlphaBlendValue := 1; RunGameWithoutdatabaseInterface(nil); //打开游戏加载界面 exit; end else begin Application.Terminate; exit; end; end; end; GetDatabse_IdHTTP.Free; GlobalBoolean_Databaseunable := False; begin LoadModData(nil); //如果正常则加载Mod数据 Self.Hide; end; end else begin ShowMessage(LangString_Text00004 + #13#10 + #13#10 + LangString_Text00000); GlobalBoolean_ApplicationTerminated := True; Application.Terminate; exit; end; end;
原帖由 随风漂流 于 2008-3-23 20:48 发表 我OK了,能进了.
原帖由 jh132627 于 2008-3-23 20:50 发表 怎么进的?
本版积分规则 发表回复 回帖并转播 回帖后跳转到最后一页
查看 »
Archiver|手机版|小黑屋|DeepTimes.NET 太空游戏站
GMT+8, 2025-7-20 18:25 , Processed in 0.064170 second(s), 5 queries , Redis On.
Powered by Discuz! X3.5
© 2001-2024 Discuz! Team.