最精简使用MORMOT

MORMOT是免费开源的SDK，它封装了HTTP.SYS，这是许多人使用它的原因，让人难以想像的是它居然支持DELPHI6及以上版本。

但MORMOT本身已经被封装的很庞大，它提供许多的单元，这让人不免眼花缭乱，惊恐而不敢下手试用。

其实，我们完全可以最精简使用MORMOT，比如笔者就只使用它的HTTP.SYS通讯部分，其他部分舍弃不用。

只需要复制MORMOT的以下几个单元文件：

SynCommons.pas，SynCrtSock.pas，SynLZ.pas，SynZip.pas，

Synopse.inc，SynopseCommit.inc，

trees.obj，deflate.obj。

总共才8个文件。

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69

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.