VBMAN HelloWorld 示例

概述

这是一个使用 VBMAN 库创建基础 Web 服务器的示例,展示了最简单的 HTTP 服务器搭建和路由配置。

项目结构

Helloworld/
  ├── Form1.frm       # 主窗体,包含服务器启动代码
  ├── bHello.cls      # Hello业务类,处理具体的请求
  └── VBMAN_DEMO.vbp  # VB6项目文件

核心代码解析

1. 主窗体(Form1.frm)

Dim HttpServer As New cHttpServer

Private Sub Form_Load()
    With HttpServer
        .Router.Reg "Demo", New bHello    '注册业务类 
        .Router.AutoRoute = True          '开启自动路由
        .Start 800                        '启动服务器,监听800端口
    End With
    Shell "explorer.exe http://127.0.0.1:800/demo/hello"  '自动打开浏览器访问示例
End Sub

2. Hello业务类(bHello.cls)

Public Sub Hello(ctx As cHttpServerContext)
    Dim id As Long: id = ctx.Request.QueryString("id") '获取URL参数id
    ctx.Response.Text "hello vbman @ " & id           '返回响应文本
End Sub

功能说明

1. HTTP服务器配置

   • 使用 VBMAN 库的 cHttpServer 类创建 HTTP 服务器
   • 服务器监听 800 端口
   • 程序启动时自动打开浏览器访问示例页面

2. 路由系统

   • 注册 bHello 类作为 Demo 业务处理器
   • 启用自动路由功能(AutoRoute = True)
   • 路由规则: /demo/hello 映射到 bHello.Hello 方法
   • URL参数示例: /demo/hello?id=123

3. 请求处理

   • 通过 ctx.Request.QueryString 获取URL参数
   • 使用 ctx.Response.Text 返回文本响应

技术要点

1. VBMAN 采用面向对象的方式处理 Web 请求
2. 自动路由功能可基于类名和方法名自动生成 URL 路径
3. 上下文对象(ctx)提供了完整的请求/响应处理能力

运行效果

启动后会自动打开浏览器访问 http://127.0.0.1:800/demo/hello ,页面将显示"hello vbman @ "加上传入的id值。

扩展建议

1. 可以添加更多的业务方法来处理不同的URL请求
2. 可以返回不同类型的响应,如JSON、HTML等
3. 可以添加更多的URL参数处理逻辑