brookframework

方小清 發表於 2022-2-22 19:04:00

brookframework
首先必须了解一下Sagui 是一个跨平台的 C 库，有助于开发 Web 服务器或框架。它的核心是使用 GNU libmicrohttpd、uthash、PCRE2、ZLib 和 GnuTLS 开发的，这就是它在嵌入式系统上运行如此快速、紧凑和有用的原因。
Sagui 编译好的库下载：https://github.com/risoflora/libsagui/releases
提供有FOR WINDOWS和FOR LINUX的库下载。
Sagui特性：
<ul dir="auto">
<li>Requests processing through:
<ul dir="auto">
<li>Event-driven - single-thread + polling.</li>
<li>Threaded - one thread per request.</li>
<li>Polling - pre-allocated threads.</li>
<li>Isolated request - request processed outside main thread.</li>
</ul>
</li>
<li>High-performance path routing that supports:
<ul dir="auto">
<li>Regular expressions using PCRE2 syntax.</li>
<li>Just-in-time optimization (JIT).</li>
<li>Binary search in path entry-points.</li>
</ul>
</li>
<li>HTTP compression:
<ul dir="auto">
<li>Deflate for static contents and streams compression.</li>
<li>Gzip for files compression.</li>
</ul>
</li>
<li>HTTPS support:
<ul dir="auto">
<li>TLS 1.3 through GnuTLS library.</li>
</ul>
</li>
<li>Dual stack:
<ul dir="auto">
<li>Single socket for IPv4 and IPv6 support.</li>
</ul>
</li>
<li>Basic authentication:
<ul dir="auto">
<li>For standard login using user name/password.</li>
</ul>
</li>
<li>Upload/download streaming by:
<ul dir="auto">
<li>Payload - for raw data transferring as JSON, XML and other.</li>
<li>File - for large data transferring as videos, images, binaries and so on.</li>
</ul>
</li>
<li>Mathematical expression evaluator:
<ul dir="auto">
<li>Arithmetic, bitwise and logical operators.</li>
<li>Variables allocation at build and/or run time.</li>
<li>Macro support to define functions at run time.</li>
<li>Extendable with custom functions.</li>
<li>Error handling with error kind and position.</li>
</ul>
</li>
<li>Dynamic strings:
<ul dir="auto">
<li>Makes it easy strings operations in C.</li>
</ul>
</li>
<li>String map:
<ul dir="auto">
<li>Fast key-value mapping.</li>
</ul>
</li>
<li>And more:
<ul dir="auto">
<li>Fields, parameters, cookies, headers under hash table structure.</li>
<li>Several callbacks for total library customization.</li>
</ul>
</li>
</ul>
BrookFramework 是一个跨平台的微框架，支持 Delphi 或 Lazarus  构建跨平台的开发框架。它的核心是使用 Sagui 库开发的，这就是它在嵌入式系统上运行如此快速、紧凑和有用的原因。
BrookFramework开源地址：https://github.com/risoflora/brookframework
Successfully tested on:
<ul dir="auto">
<li>Windows</li>
<li>Linux</li>
<li>Raspbian/Android</li>
</ul>
compiled using:
<ul dir="auto">
<li>Delphi XE family (Rio)</li>
<li>Lazarus / Free Pascal (Lazarus 2.0+ / FPC 3.2+)</li>
</ul>
服务端：
<div class="cnblogs_code">
<pre>uses
BrookHTTPRequest,
BrookHTTPResponse,
BrookHTTPServer,
Persistence;

type
THTTPServer = class(TBrookHTTPServer)
protected
procedure DoRequest(ASender: TObject; ARequest: TBrookHTTPRequest;
 AResponse: TBrookHTTPResponse); override;
end;

procedure THTTPServer.DoRequest(ASender: TObject; ARequest: TBrookHTTPRequest;
AResponse: TBrookHTTPResponse);
begin
if ARequest.Payload.Length > 0 then
SavePersons(ARequest.Payload.Content)
else
AResponse.SendStream(ListPersons, 200);
end;

begin
with THTTPServer.Create(nil) do
try
Port := 8080;
Open;
if not Active then
 Exit;
WriteLn('Server running at http://localhost:', Port);
ReadLn;
finally
Free;
end;</pre>
</div>
 
<div class="cnblogs_code">
<pre>(* _ _
*| |___ __ ___ ___ | | __
*| '_ \| '__/ _ \ / _ \| |/ /
*| |_) | | | (_) | (_) | <
*|_.__/|_|\___/ \___/|_|\_\
*
* Microframework which helps to develop web Pascal applications.
*
* Copyright (c) 2012-2021 Silvio Clecio <silvioprog@gmail.com>
*
* Brook framework is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License as published by the Free Software Foundation; either
* version 2.1 of the License, or (at your option) any later version.
*
* Brook framework is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.See the GNU
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with Brook framework; if not, write to the Free Software
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA02110-1301USA
*)

unit Persistence;

interface

uses
System.SysUtils,
System.Classes,
FireDAC.DApt,
FireDAC.Stan.Def,
FireDAC.Stan.Intf,
FireDAC.Stan.Async,
FireDAC.Phys.SQLite,
FireDAC.Comp.Client,
FireDAC.Stan.StorageBin;

function ListPersons: TStream;
procedure SavePersons(const ABytes: TBytes);

implementation

const
SQL_SELECT_PERSONS = 'SELECT * FROM persons';
SQL_INSERT_PERSONS = 'INSERT INTO persons (name) VALUES (:name)';

var
DBConnection: TFDConnection;

procedure CreateAndConfigureDBConnection;
begin
DBConnection := TFDConnection.Create(nil);
DBConnection.DriverName := 'SQLite';
DBConnection.Params.Database := '../../../DB/DataBase.sqlite3';
end;

procedure DestroyDBConnection;
begin
FreeAndNil(DBConnection);
end;

function CreateQuery(const ASelectSQL: string;
const AInsertSQL: string = ''): TFDQuery;
var
VUpdate: TFDUpdateSQL;
begin
Result := TFDQuery.Create(nil);
if not AInsertSQL.IsEmpty then
begin
VUpdate := TFDUpdateSQL.Create(Result);
VUpdate.Connection := DBConnection;
VUpdate.InsertSQL.Text := AInsertSQL;
Result.UpdateObject := VUpdate;
end;
Result.Connection := DBConnection;
Result.CachedUpdates := True;
Result.SQL.Text := ASelectSQL;
end;

function ListPersons: TStream;
var
VQuery: TFDQuery;
begin
Result := TBytesStream.Create;
VQuery := CreateQuery(SQL_SELECT_PERSONS);
try
VQuery.Open;
VQuery.SaveToStream(Result, sfBinary);
Result.Seek(0, TSeekOrigin.soBeginning);
finally
VQuery.Destroy;
end;
end;

procedure SavePersons(const ABytes: TBytes);
var
VQuery: TFDQuery;
VData: TBytesStream;
begin
VQuery := CreateQuery(SQL_SELECT_PERSONS, SQL_INSERT_PERSONS);
VData := TBytesStream.Create(ABytes);
try
VQuery.LoadFromStream(VData, sfBinary);
VQuery.ApplyUpdates;
DBConnection.Commit;
finally
VQuery.Destroy;
VData.Free;
end;
end;

initialization
CreateAndConfigureDBConnection;

finalization
DestroyDBConnection;

end.</pre>
</div>
 客户端：
<div class="cnblogs_code">
<pre>(* _ _
*| |___ __ ___ ___ | | __
*| '_ \| '__/ _ \ / _ \| |/ /
*| |_) | | | (_) | (_) | <
*|_.__/|_|\___/ \___/|_|\_\
*
* Microframework which helps to develop web Pascal applications.
*
* Copyright (c) 2012-2021 Silvio Clecio <silvioprog@gmail.com>
*
* Brook framework is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License as published by the Free Software Foundation; either
* version 2.1 of the License, or (at your option) any later version.
*
* Brook framework is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.See the GNU
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with Brook framework; if not, write to the Free Software
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA02110-1301USA
*)

unit Client;

interface

uses
System.SysUtils,
System.Classes,
Data.DB,
System.Net.HTTPClient,
FireDAC.Stan.Intf,
FireDAC.Comp.Client,
FireDAC.Stan.StorageBin;

function NewGuid: string;
function ListPersons(const AURL: string): TDataSet;
procedure SavePersons(const AURL: string; ADataSet: TDataSet);
function CreatePersonsDataSet: TDataSet;

implementation

function NewGuid: string;
begin
Result := TGuid.NewGuid.ToString;
end;

function CreateDataSet: TFDMemTable;
begin
Result := TFDMemTable.Create(nil);
Result.CachedUpdates := True;
end;

function ListPersons(const AURL: string): TDataSet;
var
VClient: THTTPClient;
begin
Result := CreateDataSet;
VClient := THTTPClient.Create;
try
TFDMemTable(Result).LoadFromStream(VClient.Get(AURL).ContentStream, sfBinary);
finally
VClient.Free;
end;
end;

procedure SavePersons(const AURL: string; ADataSet: TDataSet);
var
VClient: THTTPClient;
VData: TStream;
begin
if ADataSet.State in dsEditModes then
ADataSet.Post;
try
VData := TBytesStream.Create;
VClient := THTTPClient.Create;
try
 TFDMemTable(ADataSet).SaveToStream(VData, sfBinary);
 VData.Seek(0, TSeekOrigin.soBeginning);
 VClient.Post(AURL, VData);
finally
 VClient.Free;
 VData.Free;
end;
finally
FreeAndNil(ADataSet);
end;
end;

function CreatePersonsDataSet: TDataSet;
begin
Result := CreateDataSet;
Result.FieldDefs.Add('name', ftString, 100);
TFDMemTable(Result).CreateDataSet;
end;

end.</pre>
</div>
 

</div>
<div id="MySignature" role="contentinfo">
本文来自博客园，作者：{咏南中间件}，转载请注明原文链接：https://www.cnblogs.com/hnxxcxg/p/15924526.html 
来源：https://www.cnblogs.com/hnxxcxg/p/15924526.html

頁: [1]

琼殿技术论坛's Archiver

brookframework