最精簡使用mORMot (一)

最精簡使用mORMot (一)

本文非原創，本文來自博客園，作者：{詠南中間件}

mORMot是免費開源的SDK，它封裝了HTTP.SYS，這是許多人使用它的原因，但mORMot本身已經被封裝的很龐大，它提供許多的單元，這讓人不免眼花繚亂，驚恐而不敢下手試用。

其實，我們完全可以最精簡使用mORMot，比如筆者就 只使用它的HTTP.SYS通訊部分 ，其他部分捨棄不用。

只需要複製mORMot的以下幾個單元文件：

SynCommons.pas，SynCrtSock.pas，SynLZ.pas，SynZip.pas，SynWinSock.pas,

Synopse.inc，SynopseCommit.inc，

trees.obj，deflate.obj。

總共9個文件。

unit Unit1;
 
interface
 
uses
  SynCommons, SynCrtSock, SynZip, Windows, Messages, SysUtils, Variants, Classes,
  Graphics, Controls, Forms, Dialogs;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
    svr: THttpApiServer;
    /// <summary>
    /// 處理客戶端http請求，並返回結果
    /// </summary>
    /// <param name="Ctxt">http 請求</param>
    /// <returns>成功--200；失敗--404</returns>
    function Process(Ctxt: THttpServerRequest): cardinal;
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  svr := THttpApiServer.Create(True); // 創建http通信
  svr.RegisterCompress(CompressGZip); // 壓縮
  svr.Clone(8); // 創建N個工作線程
  svr.AddUrl('', '1122', False, '+', True); // 註冊http URL
  svr.AddUrl('', '2211', True, '+', True); // 註冊https url
  svr.OnRequest := Process; // 處理通信事件
  svr.Start; // 開啓HTTP通信
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  svr.Shutdown;
  svr.Free;
end;
 
function TForm1.Process(Ctxt: THttpServerRequest): cardinal;
var
  method: string;
  fn: RawUTF8;
begin
  Result := 404; // 失敗--404； 成功--200
  Ctxt.OutCustomHeaders := 'Access-Control-Allow-Origin:*'; // 允許跨域訪問
  Ctxt.OutContentType := 'text/plain; charset=GBK';  // 應答字符集和樣式
  method := Ctxt.method;
  if method = 'GET' then
  begin
    FN := SynCommons.StringReplaceChars(UrlDecode(copy(Ctxt.URL, 2, MaxInt)), '/', '\');
  end
  else if method = 'POST' then
  begin
 
  end;
end;
 
end.