高性能服务器
文章平均质量分 53
yayongm
这个作者很懒,什么都没留下…
展开
-
在工控机(XPE)上部署WEB服务器!
作为大量使用的工控机,受限于内存和硬件的限制,部署一些WEB服务器是比较麻烦的。为了解决这些问题,Moon Http Server(MHS)提供了一套比较可靠的解决方案,该方案的优点是:1.在Windows XP Embeded SP2以上即可完全部署。2.真正的绿色、单文件部署!加上一个显示HTML的主页面,只需两个文件(mhs.exe和index.pp)。3.占用极少的存储空间,使用不到2M存储空间即可完成完整部署。4.完整的、全功能、动态脚本Http Server。5.扩展的W原创 2020-07-30 16:26:46 · 1091 阅读 · 0 评论 -
MHS(Moon Server Http),基于Pascal脚本的全动态Http服务器2020年最新更新,欢迎挑战、测试!
完整开发的基于Pascal脚本的高性能Web服务器,功能对标Apache/PHP,性能未进行对标测试,但非常强悍,可自行测试。 脚本包含所有演示代码。 已包含完整演示网站、新闻、博客、后台管理等全部功能。 首个全功能Pascal脚本Web服务器2020年再次更新! 更多详细内容请参考History.txt,或者参考官方网站www.moonserver.cn 也希望更多大牛前来交流、拍砖、打脸!!!...原创 2020-07-28 10:30:27 · 479 阅读 · 0 评论 -
小测Windows上的极限QPS
看到别人发布的Linux号称36万的QPS,我就忍不住想知道自己机器的性能,于是也用ab简单做了一个QPS测试。直接上结果吧:测试机器:i5-4460@8G内存。测试服务:HTTP测试方法:ab -n1000000 -c100 -k http://localhost/root返回内容:<html><title>Hello</title><body>2...原创 2018-03-22 09:17:43 · 1007 阅读 · 3 评论 -
深入TEvent类并解决PulseEvent问题
问题来源于:http://www.cnblogs.com/del/archive/2009/02/16/1391192.html其中有一段代码:procedure TForm1.Button5Click(Sender: TObject);begin ShowMessage('TEvent 类没有提供这个功能'); {我试过用 PulseEvent(MyEvent.Handle) 也不行}en...原创 2018-03-22 09:58:54 · 1224 阅读 · 0 评论 -
继续TEvent,破事真不少
在Windows平台上,TEvent的核心是CreateEvent函数,因此咱们就直奔主题吧。本来是想测试一下CreateEvent的内存占用的,以为一个THandle只有4个字节(Win32)的内存占用,应该不会有别的事情发生,于是就简单写了以下代码:procedure TForm1.Button2Click(Sender: TObject);var i, iCount: Integer; ...原创 2018-03-22 10:40:17 · 1909 阅读 · 1 评论 -
Indy Http Server极限测试
测试环境:Win32,i5-4460@3.2,Indy 10.5.7直接在OnCommandGet中返回下面一行字符串:'<html><title>Hello</title>' + FormatDateTime('yyyy-mm-dd hh:nn:ss.zzz', Now) + '</html>';使用ab进行测试:ab -n100000 -c140...原创 2018-04-09 16:39:29 · 1508 阅读 · 4 评论 -
TMemoryStream的性能问题
TMemoryStream作为使用非常多的一个Stream类,日常使用时并没有感觉到慢,当然这是因为代码中使用频度不高的缘故,当使用频度一上去,TMemoryStream的性能简直不忍直视。好了,我们看看原始代码中是怎么写的:function TMemoryStream.Realloc(var NewCapacity: Longint): Pointer;begin if (NewCapac...原创 2018-05-12 11:04:27 · 974 阅读 · 0 评论 -
TBytes的性能
老规矩,无废话,直接上代码:procedure TForm1.Button1Click(Sender: TObject);var i: Integer; dTime: Cardinal; //ABytes: RawByteString; ABytes: TBytes;begin dtime := GetTickCount;; for i := 0 to 1000000...原创 2018-05-31 17:37:20 · 2461 阅读 · 0 评论