/* ======================================= 读入配置文件 ======================================= */ CR_API void_t qst_load_cfg ( __CR_OT__ sQCOM_conf* cfgs ) { sINIu* ini; ansi_t* str; /* 加载配置文件 */ TRY_FREE(cfgs->font_face); str = file_load_as_strA(QST_PATH_CONFIG WIN_ICONF); if (str == NULL) goto _load_defs; ini = ini_parseU(str); mem_free(str); if (ini == NULL) goto _load_defs; /* 读入配置参数 */ cfgs->color = ini_key_intx32U("qcom::color", 0xFFC0C0C0UL, ini); cfgs->bkcolor = ini_key_intx32U("qcom::bkcolor", 0xFF000000UL, ini); cfgs->font_size = ini_key_intxU("qcom::font_size", 12, ini); cfgs->font_face = ini_key_stringU("qcom::font_face", ini); ini_closeU(ini); return; _load_defs: cfgs->color = 0xFFC0C0C0UL; cfgs->bkcolor = 0xFF000000UL; cfgs->font_size = 12; cfgs->font_face = NULL; }
/* ======================================= 主程序 ======================================= */ int main (int argc, char *argv[]) { CR_NOUSE(argc); CR_NOUSE(argv); /* 建立 CrHack 系统 */ if (!set_app_type(CR_APP_CUI)) return (QST_ERROR); SetConsoleTitleA(WIN_TITLE); sint_t x1, y1; uint_t ww, hh; /* 初始化窗口 */ s_hcui = GetStdHandle(STD_OUTPUT_HANDLE); if (s_hcui == INVALID_HANDLE_VALUE) return (QST_ERROR); s_hwnd = GetConsoleWindow(); if (s_hwnd == NULL) return (QST_ERROR); misc_desk_init(WIN_ICONF, &x1, &y1, &ww, &hh, QSRV_DEF_WIDTH, QSRV_DEF_HEIGHT); misc_cui_setwin(s_hwnd, s_hcui, x1, y1, ww, hh); sINIu* ini; uint_t temp; ansi_t* text; int16u port = QST_DEF_PORT; ansi_t* addr = QST_DEF_ADDR; uint_t count = QST_DEF_CLIENT; /* 读取参数 */ text = file_load_as_strA(QST_CFG_STARTUP); if (text != NULL) { ini = ini_parseU(text); mem_free(text); text = NULL; if (ini != NULL) { text = ini_key_stringU("serv::bind", ini); if (text != NULL) addr = text; temp = ini_key_intxU("serv::port", QST_DEF_PORT, ini); if (temp > 1024 && temp < 32768) port = (int16u)temp; temp = ini_key_intxU("serv::count", QST_DEF_CLIENT, ini); if (temp > 0 && temp <= QST_MAX_CLIENT) count = temp; ini_closeU(ini); } } socket_t serv; sQstWork* work; /* 建立工作单元组 */ work = qst_wrk_create(count); if (work == NULL) return (QST_ERROR); /* 初始化网络 */ if (!socket_init()) return (QST_ERROR); serv = server_tcp_open(addr, port); TRY_FREE(text); if (serv == NULL) return (QST_ERROR); /* 初始化锁 */ mtlock_init(&s_qst_lck_shw); mtlock_init(&s_qst_lck_wrk); int16u logo_color; /* 建立颜色值 */ logo_color = cui_make_attr(0, CR_CUI_TEXT_LIGHT | CR_CUI_TEXT_GREEN | CR_CUI_TEXT_RED | CR_CUI_TEXT_BLUE); s_qst_clr_cin = cui_make_attr(0, CR_CUI_TEXT_LIGHT | CR_CUI_TEXT_GREEN | CR_CUI_TEXT_RED); s_qst_clr_say = cui_make_attr(0, CR_CUI_TEXT_LIGHT | CR_CUI_TEXT_GREEN); s_qst_clr_out = cui_make_attr(0, CR_CUI_TEXT_LIGHT | CR_CUI_TEXT_RED); /* 工作循环 */ cui_set_color(logo_color); printf("######################################\n"); printf("## QUESTLAB BROADCAST SERVER ##\n"); printf("######################################\n"); while (!s_quit) { ansi_t* ptr; bool_t okay; ansi_t* name; socket_t netw; /* 接受一个客户端 */ netw = server_tcp_accept(serv); if (netw == NULL) continue; /* 接收客户端名称 */ socket_set_timeout(netw, -1, QST_TCP_TOUT); name = netw_cmd_recv(netw); if (name == NULL) { socket_close(netw); continue; } /* 客户端名称过滤 */ if (str_lenA(name) > QST_MAX_NAME) { netw_ack_send(netw, FALSE); netw_cli_close(netw); mem_free(name); continue; } ptr = name; okay = TRUE; while (*ptr != NIL) { if (is_cntrlA(*ptr++)) { okay = FALSE; break; } } if (!okay) { netw_ack_send(netw, FALSE); netw_cli_close(netw); mem_free(name); continue; } /* 启动一个工作单元 */ if (!qst_wrk_wakeup(work, name, netw, qst_srv_main)) { netw_cli_close(netw); mem_free(name); continue; } } return (QST_OKAY); }
/* ======================================= WinMain 程序入口 ======================================= */ int WINAPI WinMain ( __CR_IN__ HINSTANCE curt_app, __CR_IN__ HINSTANCE prev_app, __CR_IN__ LPSTR cmd_line, __CR_IN__ int cmd_show ) { uint_t argc; ansi_t** argv; CR_NOUSE(curt_app); CR_NOUSE(prev_app); CR_NOUSE(cmd_show); /* 只允许一个例程 */ ximp_stop_running(); if (misc_is_running(EXE_XNAME)) return (QST_ERROR); /* 建立 CrHack 系统 */ if (!set_app_type(CR_APP_GUI)) return (QST_ERROR); /* 获取命令行参数, 不包括进程文件名 */ argv = misc_get_param(cmd_line, &argc); sINIu* ini; ansi_t* str; bool_t old = TRUE; /* 加载配置文件 */ str = file_load_as_strA(QST_PATH_CONFIG WIN_ICONF); if (str != NULL) { ini = ini_parseU(str); mem_free(str); if (ini != NULL) { old = ini_key_intxU("sdir::old_style", TRUE, ini); ini_closeU(ini); } } /* 参数解析 [起始目录] */ g_root = NULL; if (argc > 0) { /* 验证目录是否存在 */ if (misc_dir_exist(argv[0])) g_root = argv[0]; } /* 未指定目录则使用上次结果 */ if (g_root == NULL) g_root = file_load_as_strA(QST_SELECT_DIR); if (!old) { BROWSEINFOA bi; LPITEMIDLIST pidl; ansi_t path[MAX_PATH]; /* 使用新风格的目录打开窗口 */ CoInitialize(NULL); bi.hwndOwner = NULL; bi.pidlRoot = NULL; bi.pszDisplayName = path; bi.lpszTitle = ""; bi.ulFlags = BIF_RETURNONLYFSDIRS; if (g_root == NULL) bi.lpfn = NULL; else bi.lpfn = BrowseCallbackProc; bi.lParam = 0; bi.iImage = 0; pidl = SHBrowseForFolderA(&bi); if (pidl != NULL && SHGetPathFromIDListA(pidl, path)) ximp_dir_write(path); CoUninitialize(); return (QST_OKAY); } /* 标准 VCL 过程开始 */ try { Application->Initialize(); Application->Title = WIN_TITLE; Application->CreateForm(__classid(TfrmMain), &frmMain); Application->Run(); } catch (Exception &exception) { Application->ShowException(&exception); } catch (...) { try { throw Exception(""); } catch (Exception &exception) { Application->ShowException(&exception); } } return (QST_OKAY); }