摘要： Pascal DaRaja Framework：轻量高效的Web应用开发框架 概述 DaRaja Framework 是一个用 Pascal（Free Pascal）编写的轻量级、...

Pascal DaRaja Framework：轻量高效的Web应用开发框架

概述

DaRaja Framework 是一个用 Pascal（Free Pascal）编写的轻量级、高性能的 Web 应用框架，专为需要快速构建 RESTful API 和 Web 服务的开发者设计。该项目由 Michael Justin 维护，遵循 Apache License 2.0 开源协议，为 Pascal 开发者提供了现代化的 Web 开发工具。

核心特性

1. 轻量级设计

• 无需复杂的依赖配置

• 核心库精简高效

• 内存占用小，启动快速

2. RESTful 支持

• 完整的 REST 路由机制

• HTTP 方法映射（GET、POST、PUT、DELETE等）

• 路径参数和查询参数处理

3. 模块化架构

• 中间件支持

• 可扩展的组件系统

• 灵活的配置选项

4. 跨平台兼容

• 支持 Windows、Linux、macOS

• 基于 Free Pascal 编译

• 与 Lazarus IDE 完美集成

快速入门示例

基础 HTTP 服务器

program SimpleServer;

{$APPTYPE CONSOLE}

uses
  djWebApp, djServer, djTypes;

type
  TMyWebApp = class(TdjWebApp)
  public
    procedure OnGet(Request: TdjRequest; Response: TdjResponse); override;
  end;

procedure TMyWebApp.OnGet(Request: TdjRequest; Response: TdjResponse);
begin
  Response.ContentText := 'Hello, DaRaja Framework!';
  Response.ContentType := 'text/plain';
  Response.Code := 200;
end;

var
  Server: TdjServer;
  WebApp: TMyWebApp;
begin
  Server := TdjServer.Create;
  try
    WebApp := TMyWebApp.Create;
    Server.AddWebApp(WebApp, '/');
    Server.Start(8080);
    WriteLn('Server running on port 8080...');
    ReadLn;
    Server.Stop;
  finally
    Server.Free;
  end;
end.

RESTful API 示例

program RESTAPIExample;

uses
  SysUtils, djWebApp, djServer, djTypes;

type
  TUserAPI = class(TdjWebApp)
  public
    procedure OnGet(Request: TdjRequest; Response: TdjResponse); override;
    procedure OnPost(Request: TdjRequest; Response: TdjResponse); override;
    procedure OnPut(Request: TdjRequest; Response: TdjResponse); override;
    procedure OnDelete(Request: TdjRequest; Response: TdjResponse); override;
  end;

procedure TUserAPI.OnGet(Request: TdjRequest; Response: TdjResponse);
begin
  // 获取用户列表或单个用户
  if Request.PathInfo = '/users' then
  begin
    Response.ContentText := '["user1", "user2", "user3"]';
    Response.ContentType := 'application/json';
  end
  else if Request.PathInfo.StartsWith('/users/') then
  begin
    // 提取路径参数
    Response.ContentText := Format('{"id": "%s", "name": "John Doe"}', 
      [Copy(Request.PathInfo, 8, Length(Request.PathInfo))]);
    Response.ContentType := 'application/json';
  end;
end;

procedure TUserAPI.OnPost(Request: TdjRequest; Response: TdjResponse);
begin
  // 创建新用户
  Response.ContentText := '{"status": "created", "id": "123"}';
  Response.ContentType := 'application/json';
  Response.Code := 201;
end;

var
  Server: TdjServer;
  UserAPI: TUserAPI;
begin
  Server := TdjServer.Create;
  try
    UserAPI := TUserAPI.Create;
    Server.AddWebApp(UserAPI, '/api');
    Server.Start(3000);
    WriteLn('REST API running on port 3000...');
    ReadLn;
  finally
    Server.Free;
  end;
end.

中间件示例

program MiddlewareExample;

uses
  djWebApp, djServer, djTypes, djMiddleware;

type
  TLoggingMiddleware = class(TdjMiddleware)
  public
    procedure DoHandle(Request: TdjRequest; Response: TdjResponse); override;
  end;

  TMainApp = class(TdjWebApp)
  public
    procedure OnGet(Request: TdjRequest; Response: TdjResponse); override;
  end;

procedure TLoggingMiddleware.DoHandle(Request: TdjRequest; Response: TdjResponse);
begin
  WriteLn(Format('[%s] %s %s', 
    [FormatDateTime('yyyy-mm-dd hh:nn:ss', Now),
     Request.Method,
     Request.PathInfo]));
  inherited;
end;

procedure TMainApp.OnGet(Request: TdjRequest; Response: TdjResponse);
begin
  Response.ContentText := 'Request logged!';
end;

var
  Server: TdjServer;
  App: TMainApp;
  Logger: TLoggingMiddleware;
begin
  Server := TdjServer.Create;
  try
    App := TMainApp.Create;
    Logger := TLoggingMiddleware.Create;
    
    // 添加中间件
    App.AddMiddleware(Logger);
    
    Server.AddWebApp(App, '/');
    Server.Start(8080);
    
    WriteLn('Server with middleware running...');
    ReadLn;
  finally
    Server.Free;
  end;
end.

项目结构

daraja-framework/
├── source/                 # 源代码目录
│   ├── daraja.framework/   # 框架核心
│   ├── daraja.http/        # HTTP 协议实现
│   └── daraja.threadpool/  # 线程池管理
├── examples/              # 示例程序
├── tests/                 # 测试用例
└── docs/                  # 文档

优势与应用场景

适用场景：

1. 嵌入式 Web 服务 - 资源受限环境下的轻量级解决方案

2. RESTful API 开发 - 快速构建 API 后端

3. 微服务架构 - 作为微服务组件

4. 传统 Pascal 项目现代化 - 为现有 Pascal 应用添加 Web 接口

主要优势：

• 性能优异：纯 Pascal 实现，无额外运行时开销

• 易于学习：API 设计简洁直观

• 可扩展性强：支持自定义组件和中间件

• 社区支持：活跃的 Pascal 开发者社区

开始使用

安装要求：

1. Free Pascal Compiler (FPC) 3.0+

2. Lazarus IDE（可选，推荐用于开发）

快速开始：

# 克隆项目
git clone https://github.com/michaelJustin/daraja-framework.git

# 编译示例
cd daraja-framework/examples
fpc simplest.pas

总结

DaRaja Framework 为 Pascal 开发者提供了一个现代化、高效的 Web 开发解决方案。无论是构建简单的 HTTP 服务还是复杂的 RESTful API，DaRaja 都能提供稳定可靠的性能表现。其简洁的 API 设计和模块化架构使得开发者能够快速上手并构建出高质量的 Web 应用。

对于长期使用 Pascal 进行开发的团队或个人，DaRaja Framework 是连接传统 Pascal 应用与现代 Web 技术的理想桥梁，让 Pascal 在 Web 开发领域继续保持其生命力。