mormot支持https

将ssl证书导入电脑系统，以Windows 10为例：

运行 mmc

证书导入成功后，双击证书，查看证书指纹：

第二项工作：将证书与https绑定：
以管理员身份启动cmd,输入下列命令：
netsh http add sslcert ipport=0.0.0.0:443 certhash=3a0a8fa7cbcab141e102eaab457b1299af8f82cc appid={FDC3C336-D4AF-4EA8-BAA2-15536FDE8799}

第三项工作：修改Delphi源程序：

program HttpApiServer;

{$APPTYPE CONSOLE}

{$I Synopse.inc}

//['{FDC3C336-D4AF-4EA8-BAA2-15536FDE8799}']

//netsh http add sslcert ipport=0.0.0.0:443 certhash=3a0a8fa7cbcab141e102eaab457b1299af8f82cc appid={FDC3C336-D4AF-4EA8-BAA2-15536FDE8799}

//netsh http delete sslcert ipport=0.0.0.0:443

uses

{$I SynDprUses.inc} // use FastMM4 on older Delphi, or set FPC threads

  SysUtils,

  SynCommons,

  SynZip,

  SynCrtSock;

type

  TTestServer = class

  protected

    fPath: TFileName;

    fPort, fRoot: string;

    fServer: THttpApiServer;

    fHttps: Boolean;

    function Process(Ctxt: THttpServerRequest): cardinal;

    function ShowDirectory(Ctxt: THttpServerRequest;

      const FileName: TFileName; FN: RawUTF8): cardinal;

  public

    constructor Create(const Path: TFileName);

    destructor Destroy; override;

  end;

  { TTestServer }

constructor TTestServer.Create(const Path: TFileName);

begin

  fPath := IncludeTrailingPathDelimiter(Path);

  fPort := '443';

  fRoot := '/test';

  fHttps := True;

  fServer := THttpApiServer.Create(false);

  fServer.AddUrl(fRoot, fPort, fHttps, '+', true);

  fServer.RegisterCompress(CompressDeflate); // our server will deflate html :)

  fServer.OnRequest := Process;

  fServer.Clone(31); // will use a thread pool of 32 threads in total

end;

destructor TTestServer.Destroy;

begin

  fServer.RemoveUrl(fRoot, fPort, fHttps, '+');

  fServer.Free;

  inherited;

end;

{$WARN SYMBOL_PLATFORM OFF}

function TTestServer.Process(Ctxt: THttpServerRequest): cardinal;

var

  FileName: TFileName;

  FN: RawUTF8;

begin

  write(Ctxt.Method, ' ', Ctxt.URL);

  if not IdemPChar(pointer(Ctxt.URL), PAnsiChar(UpperCase(fRoot))) then begin

    WriteLn(' End with 404');

    result := 404;

    exit;

  end;

  FN := StringReplaceChars(UrlDecode(copy(Ctxt.URL, Length(fRoot) + 1, maxInt)),

    '/', '\');

  if PosEx('..', FN) > 0 then begin

    WriteLn(' .. End with 404');

    result := 404; // circumvent obvious potential security leak

    exit;

  end;

  while (FN <> '') and (FN[1] = '\') do

    delete(FN, 1, 1);

  while (FN <> '') and (FN[length(FN)] = '\') do

    delete(FN, length(FN), 1);

  FileName := fPath + UTF8ToString(FN);

  writeLn(' => ' + FileName); //c5soft

  if DirectoryExists(FileName) then begin

    Result := ShowDirectory(ctxt, FileName, FN);

  end else begin

    // http.sys will send the specified file from kernel mode

    Ctxt.OutContent := StringToUTF8(FileName);

    Ctxt.OutContentType := HTTP_RESP_STATICFILE;

    result := 200; // THttpApiServer.Execute will return 404 if not found

  end;

end;

var

  Msg: string;

function TTestServer.ShowDirectory(Ctxt: THttpServerRequest;

  const FileName: TFileName; FN: RawUTF8): cardinal;

var

  W: TTextWriter;

  SRName, href: RawUTF8;

  i: integer;

  SR: TSearchRec;

  cRoot: string;

  procedure hrefCompute;

  begin

    SRName := StringToUTF8(SR.Name);

    href := FN + StringReplaceChars(SRName, '\', '/');

  end;

begin

  if fRoot <> '/' then cRoot := fRoot + '/' else cRoot := fRoot;

  // reply directory listing as html

  W := TTextWriter.CreateOwnedStream;

  try

    W.Add('<html><body style="font-family: Arial">' +

      '<h3>%</h3><p><table>', [FN]);

    FN := StringReplaceChars(FN, '\', '/');

    if FN <> '' then

      FN := FN + '/';

    if FindFirst(FileName + '\*.*', faDirectory, SR) = 0 then begin

      repeat

        if (SR.Attr and faDirectory <> 0) and (SR.Name <> '.') then begin

          hrefCompute;

          if SRName = '..' then begin

            i := length(FN);

            while (i > 0) and (FN[i] = '/') do dec(i);

            while (i > 0) and (FN[i] <> '/') do dec(i);

            href := copy(FN, 1, i);

          end;

          W.Add('<tr><td><b><a href="' + cRoot + '%">[%]</a></b></td></tr>', [href,

            SRName]);

        end;

      until FindNext(SR) <> 0;

      FindClose(SR);

    end;

    if FindFirst(FileName + '\*.*', faAnyFile - faDirectory - faHidden, SR) = 0 then begin

      repeat

        hrefCompute;

        if SR.Attr and faDirectory = 0 then

          W.Add('<tr><td><b><a href="' + cRoot +

            '%">%</a></b></td><td>%</td><td>%</td></td></tr>',

            [href, SRName, KB(SR.Size), DateTimeToStr(

{$IFDEF ISDELPHIXE2}SR.TimeStamp{$ELSE}FileDateToDateTime(SR.Time){$ENDIF})]);

      until FindNext(SR) <> 0;

      FindClose(SR);

    end;

    W.AddShort('</table></p><p><i>Powered by mORMot''s <strong>');

    W.AddClassName(Ctxt.Server.ClassType);

    W.AddShort('</strong></i> - ' +

      'see <a href=https://synopse.info>https://synopse.info</a></p></body></html>');

    Ctxt.OutContent := W.Text;

    Ctxt.OutContentType := HTML_CONTENT_TYPE;

    result := 200;

  finally

    W.Free;

  end;

end;

begin

  with TTestServer.Create('D:\Programs\Nginx\wwwroot\') do try

    Msg := 'Server is now running on http';

    if fHttps then Msg := Msg + 's';

    msg := msg + '://localhost';

    if fPort <> '80' then

      Msg := Msg + ':' + fPort;

    Msg := Msg + fRoot + #13#10#13#10'Press [Enter] to quit';

    WriteLn(Msg);

    readln;

  finally

    Free;

  end;

end.

　　

mormot支持https的更多相关文章

  1. node如何让一个端口同时支持https与http

    众所周知node是一个高性能的web服务器,使用它可以很简单的创建一个http或https的服务器. 比如一个很简单的http服务器: var http = require('http'); var ...

  2. 如何让你的网站支持https

    如何让你的网站支持https 当今世界的主流网站基本都是使用https对外界提供服务,甚至有某些公司建议完全使用https, 那么https是什么呢?请参考如下的图解,https是在我们通常说的tcp ...

  3. 让你的网站免费支持 HTTPS 及 Nginx 平滑升级

    为什么要使用 HTTPS ? 首先来说一下 HTTP 与 HTTPS 协议的区别吧,他们的根本区别就是 HTTPS 在 HTTP 协议的基础上加入了 SSL 层,在传输层对网络连接进行加密.简单点说在 ...

  4. 在iOS APP中使用H5显示百度地图时如何支持HTTPS？

    现象: 公司正在开发一个iOSAPP,使用h5显示百度地图,但是发现同样的H5页面,在安卓可以显示出来,在iOS中就显示不出来. 原因分析: 但是现在iOS开发中,苹果已经要求在APP中的所有对外连接 ...

  5. iOS支持Https

    http://oncenote.com/2014/10/21/Security-1-HTTPS/?hmsr=toutiao.io&utm_medium=toutiao.io&utm_s ...

  6. 【转】如何在Windows+VS2005使用最新静态libcurl 7.35.0获取网页数据，支持HTTPS

    地址: http://blog.csdn.net/hujkay作者:Jekkay Hu(34538980@qq.com)关键词:Windows,curl,ssl,  visual c++ 2005, ...

  7. Web API应用支持HTTPS的经验总结

    在我前面介绍的WebAPI文章里面,介绍了WebAPI的架构设计方面的内容,其中提出了现在流行的WebAPI优先的路线,这种也是我们开发多应用(APP.微信.微网站.商城.以及Winform等方面的整 ...

  8. loadrunner支持https协议的操作方法-经验总结

    问题:用户portal支持https协议,用loadrunner录制登陆脚本时发现未录制到用户名和密码 录制到的脚本如下: login() { lr_think_time(10); web_url(& ...

  9. php中curl不支持https的解决办法

    在php程序中使用curl去访问https站点时,报错:Protocol https not supported or disabled in libcurl 该错误信息表示php当时编译时使用的cu ...

随机推荐

  1. 015_sublime插件管理及所有非常有用插件

    一. <1>按照这个进行Package Control的安装 https://packagecontrol.io/installation import urllib.request,os ...

  2. 002_tmux详解

    参考下赖老师的: http://mingxinglai.com/cn/2012/09/tmux/ 一. 二. http://wdxtub.com/2016/03/30/tmux-guide/   (待 ...

  3. java.io.StreamCorruptedException: invalid stream header: EFBFBDEF 问题解决

    错误方式 @Test public void testDeserializeTest() throws IOException, ClassNotFoundException { ByteArrayO ...

  4. Redis五种数据类型-设置key的过期时间

    1.redis命令客户端 [root@localhost bin]# ./redis-cli 127.0.0.1:6379> #是否运行着 127.0.0.1:6379> ping PON ...

  5. 【军哥谈CI框架】之CI中集成百度UEditor

    Hello,各位亲,新的一周来临啦,很高兴这么快又跟大家伙见面!话说上一回,军哥带大家用JQuery写了一个城市级联菜单的例子 ,不知道亲们学会了多少,是否自己可以独立写出来了呢. 军哥很是期待大家学 ...

  6. 使用 JavaScript 编写优化算法 (1)

    之前一直用Python来写优化算法,为了增强 JS 的熟练程度,开始将原有的代码改写成 JS.采用的工具包括 node.js + Grunt + nodeunit + github + npm + t ...

  7. 利用word的VBA，为代码统一表格宽度，底色及行号

    如果文档中的代码表格时,感觉还是很快速有用的. Sub HangHao() ' ' hanghao 宏 ' ' Dim parag As Paragraph Dim nLineNum: nLineNu ...

  8. SprintBoot 1.2.8 入门

    现在SpringBoot官网Quick Start的版本是1.5.3,试了一下,报错说我JDK版本太低,查了一下说是需要JDK8,所以我使用了旧版本1.2.8,实际上在POM中的依赖配置方式一样的. ...

  9. MVC的博客

    一个基于Asp.net MVC的博客类网站开源了!   背景说明: 大学时毕业设计作品,一直闲置在硬盘了,倒想着不如开源出来,也许会对一些人有帮助呢,而且个人觉得这个网站做得还是不错了,毕竟是花了不少 ...

  10. vue后台管理框架

    vue后台管理框架 系列教程<一步步带你做vue后台管理框架>第一课 github地址:vue-framework-wz 线上体验地址:立即体验 在如今的科技公司中有很多前端的需求都是要写 ...