Daraja HTTP 框架使用教程-优快云博客

本文链接：https://blog.youkuaiyun.com/gitblog_00043/article/details/139617048

Daraja HTTP 框架使用教程

daraja-framework A lightweight HTTP server framework for Object Pascal (Delphi 2009+/Free Pascal 3.2) based on Indy 项目地址: https://gitcode.com/gh_mirrors/da/daraja-framework

1. 项目介绍

Daraja 是一个基于 Object Pascal（Delphi 2009+/Free Pascal 3.2）的轻量级 HTTP 服务器框架，它基于开源库 Internet Direct (Indy) 的非可视化 HTTP 服务器组件构建。Daraja 提供了核心基础，用于服务各种内容类型的 HTTP 资源，如 HTML 页面、图像、脚本和 Web 服务响应等，通过将资源路径映射到用户代码来实现。用户代码可以创建响应内容，或者让框架服务静态文件。

2. 项目快速启动

2.1 环境准备

在开始之前，确保你已经安装了 Delphi 或 Free Pascal 开发环境，并且已经配置了 Indy 库的路径。

2.2 创建项目

创建一个新的 Object Pascal 项目。
在项目中添加 Daraja 框架的源代码路径。

2.3 编写代码

以下是一个简单的示例代码，展示如何使用 Daraja 框架创建一个基本的 HTTP 服务器。

program SimpleServer;

uses
  SysUtils,
  djServer,
  djWebAppContext,
  djWebComponent,
  djWebComponentHandler;

type
  TIndexPageResource = class(TdjWebComponent)
  protected
    procedure OnGet(Request: TdjRequest; Response: TdjResponse); override;
  end;

procedure TIndexPageResource.OnGet(Request: TdjRequest; Response: TdjResponse);
begin
  Response.ContentText := '<html><body><h1>Hello, Daraja!</h1></body></html>';
end;

var
  Server: TdjServer;
  Context: TdjWebAppContext;
begin
  Server := TdjServer.Create;
  try
    Context := TdjWebAppContext.Create('context1');
    Server.AddContext(Context);
    Context.Add(TIndexPageResource, '/index.html');
    Server.Start;
    WriteLn('Server started on port 8080');
    ReadLn;
  finally
    Server.Free;
  end;
end.