最精简使用MORMOT

最精简使用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个文件。

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.

  

posted @ 2019-10-11 10:22 delphi中间件 阅读(...) 评论(...) 编辑 收藏