标签：begin end TForm1 method MORMOT 使用 精简 svr Ctxt
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.
|
标签：begin,end,TForm1,method,MORMOT,使用,精简,svr,Ctxt 来源： https://www.cnblogs.com/h2zZhou/p/11653540.html
本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享； 2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关； 3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关； 4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除； 5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。