这一篇我们把前面所有远程控制、授权、卡密、封禁功能整合进一个Delphi 自带网页服务后台。不用装 PHP、不用搭服务器软件自带一个迷你网页后台打开浏览器就能管理所有用户。一、功能一览网页后台http://127.0.0.1:8080查看所有激活用户列表机器码、激活时间、到期时间一键封禁 / 解封机器码发送全局公告设置强制更新、强制下线实时统计在线人数卡密管理生成、导入、查看完全脱离外部环境一个 EXE 自带后台 服务端非常适合传奇登录器、收费工具、小范围商用软件。二、核心技术Delphi 自带轻量 HTTP 服务TIdHTTPServer数据库SQLite单文件无需安装接口格式JSON给客户端调用网页前端简单 HTML 管理面板三、核心代码启动内置网页服务器delphiuses IdHTTPServer, IdCustomHTTPServer, IdContext, IdSocketHandle, Data.DB, SQLiteTable3, System.JSON; procedure TForm1.FormCreate(Sender: TObject); begin // 启动 HTTP 服务端口 8080 IdHTTPServer1.DefaultPort : 8080; IdHTTPServer1.Active : True; Memo1.Lines.Add(后台已启动http://127.0.0.1:8080); end;四、处理网页请求 客户端接口pbiv.dfpump.cnprocedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo); var Action, PC: string; JSON: TJSONObject; begin Action : ARequestInfo.Params.Values[action]; PC : ARequestInfo.Params.Values[pc]; // // 1. 客户端心跳接口远程控制 // if Action heart then begin JSON : TJSONObject.Create; try // 检查是否封禁 if IsPCBanned(PC) then begin JSON.AddPair(banned, 1); JSON.AddPair(ban_msg, 您已被管理员封禁); end else begin JSON.AddPair(banned, 0); end; // 强制更新 JSON.AddPair(force_update, 0); JSON.AddPair(update_url, ); // 公告 JSON.AddPair(show_notice, 1); JSON.AddPair(notice_content, 服务器今晚22点维护); AResponseInfo.ContentType : application/json; AResponseInfo.ContentText : JSON.ToString; finally JSON.Free; end; end // // 2. 网页后台首页 // else if Action then begin AResponseInfo.ContentType : text/html;charsetutf-8; AResponseInfo.ContentText : GetAdminHTML; end; end;五、网页后台 HTML内嵌在软件里nbu4.dfpump.cnfunction TForm1.GetAdminHTML: string; begin Result : htmlmeta charsetutf-8body h1远程管理后台/h1 a href?actionuserlist用户列表/abr a href?actionbanlist封禁列表/abr a href?actionnotice发送公告/abr a href?actionupdate强制更新设置/abr /body/html; end;你可以继续扩展用户列表页tbwx.dfpump.cn卡密生成页oaqn.dfpump.cn封禁管理页ktor.dfpump.cn六、数据库结构SQLitesqlCREATE TABLE users ( pc TEXT PRIMARY KEY, card TEXT, expire_date TEXT, active_time TEXT, status INTEGER -- 0正常 1封禁 ); CREATE TABLE config ( id INTEGER PRIMARY KEY, notice TEXT, force_update INTEGER, update_url TEXT );七、客户端对接方式客户端心跳直接访问plaintexthttp://127.0.0.1:8080/?actionheartpc机器码后台一改配置所有客户端下一次心跳立即生效。八、这套后台的优势不用宝塔、不用 PHP、不用服务器环境一个 EXE 客户端 服务端 网页后台传奇登录器开服即用收费工具发给客户你自己本地开后台管控不怕被破解、不怕被抓包因为服务端在你手里
Delphi 网页版远程管理后台（可视化控制面板，直接对接客户端）
这一篇我们把前面所有远程控制、授权、卡密、封禁功能整合进一个Delphi 自带网页服务后台。不用装 PHP、不用搭服务器软件自带一个迷你网页后台打开浏览器就能管理所有用户。一、功能一览网页后台http://127.0.0.1:8080查看所有激活用户列表机器码、激活时间、到期时间一键封禁 / 解封机器码发送全局公告设置强制更新、强制下线实时统计在线人数卡密管理生成、导入、查看完全脱离外部环境一个 EXE 自带后台 服务端非常适合传奇登录器、收费工具、小范围商用软件。二、核心技术Delphi 自带轻量 HTTP 服务TIdHTTPServer数据库SQLite单文件无需安装接口格式JSON给客户端调用网页前端简单 HTML 管理面板三、核心代码启动内置网页服务器delphiuses IdHTTPServer, IdCustomHTTPServer, IdContext, IdSocketHandle, Data.DB, SQLiteTable3, System.JSON; procedure TForm1.FormCreate(Sender: TObject); begin // 启动 HTTP 服务端口 8080 IdHTTPServer1.DefaultPort : 8080; IdHTTPServer1.Active : True; Memo1.Lines.Add(后台已启动http://127.0.0.1:8080); end;四、处理网页请求 客户端接口pbiv.dfpump.cnprocedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo); var Action, PC: string; JSON: TJSONObject; begin Action : ARequestInfo.Params.Values[action]; PC : ARequestInfo.Params.Values[pc]; // // 1. 客户端心跳接口远程控制 // if Action heart then begin JSON : TJSONObject.Create; try // 检查是否封禁 if IsPCBanned(PC) then begin JSON.AddPair(banned, 1); JSON.AddPair(ban_msg, 您已被管理员封禁); end else begin JSON.AddPair(banned, 0); end; // 强制更新 JSON.AddPair(force_update, 0); JSON.AddPair(update_url, ); // 公告 JSON.AddPair(show_notice, 1); JSON.AddPair(notice_content, 服务器今晚22点维护); AResponseInfo.ContentType : application/json; AResponseInfo.ContentText : JSON.ToString; finally JSON.Free; end; end // // 2. 网页后台首页 // else if Action then begin AResponseInfo.ContentType : text/html;charsetutf-8; AResponseInfo.ContentText : GetAdminHTML; end; end;五、网页后台 HTML内嵌在软件里nbu4.dfpump.cnfunction TForm1.GetAdminHTML: string; begin Result : htmlmeta charsetutf-8body h1远程管理后台/h1 a href?actionuserlist用户列表/abr a href?actionbanlist封禁列表/abr a href?actionnotice发送公告/abr a href?actionupdate强制更新设置/abr /body/html; end;你可以继续扩展用户列表页tbwx.dfpump.cn卡密生成页oaqn.dfpump.cn封禁管理页ktor.dfpump.cn六、数据库结构SQLitesqlCREATE TABLE users ( pc TEXT PRIMARY KEY, card TEXT, expire_date TEXT, active_time TEXT, status INTEGER -- 0正常 1封禁 ); CREATE TABLE config ( id INTEGER PRIMARY KEY, notice TEXT, force_update INTEGER, update_url TEXT );七、客户端对接方式客户端心跳直接访问plaintexthttp://127.0.0.1:8080/?actionheartpc机器码后台一改配置所有客户端下一次心跳立即生效。八、这套后台的优势不用宝塔、不用 PHP、不用服务器环境一个 EXE 客户端 服务端 网页后台传奇登录器开服即用收费工具发给客户你自己本地开后台管控不怕被破解、不怕被抓包因为服务端在你手里
