最精簡使用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.