MORMOT是免費開源的SDK，它封裝了HTTP.SYS，這是許多人使用它的緣由，讓人難以想像的是它竟然支持DELPHI6及以上版本。跨域
但MORMOT自己已經被封裝的很龐大，它提供許多的單元，這讓人難免眼花繚亂，驚恐而不敢下手試用。post
其實，咱們徹底能夠最精簡使用MORMOT，好比筆者就只使用它的HTTP.SYS通信部分，其餘部分捨棄不用。url
只須要複製MORMOT的如下幾個單元文件：spa
SynCommons.pas，SynCrtSock.pas，SynLZ.pas，SynZip.pas，線程
Synopse.inc，SynopseCommit.inc，code
trees.obj，deflate.obj。orm
總共才8個文件。blog
|
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.
|