- 博客(41)
- 资源 (13)
- 收藏
- 关注
RSS订阅原创 关于使用PasLibVlc进行媒体播放的简单处理技巧
代码说明：播放组件在查找VedioLan播放库的路径时，先查找用户自定义路径，然后查找安装路径，最后查找当前文件夹。当然，对我来说，直接将自己程序和libvlc.dll，libvlccoore.dll，Plugins文件夹直接打包在一起即可制作一个专属与自己的媒体播放器了，并且这个媒体播放器功能强大且随时可用。另外，当使用VideoLan的2.1版本的库时，整个可执行程序大小不到30M，打包后的大小只有10M，真的是很惊喜的一个超强播放器。穷，没币了，发布个文章讨点儿币吧。
2023-10-21 14:43:18
287
原创 关于Win10上Program File和Program File(X86)没有写权限的问题
解决方法:按Windows+R键，打开“运行”，然后输入“gpedit.msc",就是打开组策略，这个在控制面板中也可以打开。在组策略里找到“计算机配置”-“Windows设置”-“安全设置”-“本地策略”-“安全选项”，在“安全选项”里认真查找“用户帐户控制-以管理员模式批准运行所有管理员”这项，将这项禁用掉。作为一个开发人员，使用Win10时，感觉每次都是在跟弱智的MS斗争，而且是每次都感觉自己被MS摁在地上无情摩擦的那种，算了，不吐槽了。来源：https://answers.micr
2021-09-01 16:18:46
14873
3
原创 SQL Sever奇葩问题踩坑记
折腾了一下SqlServer，踩了一下坑，写个文档，留个记号：因学习需要，安装SQL Server2008R2开发版，但总是不成功，报错信息为：TITLE: SQL Server 2008 R2 安装程序------------------------------出现以下错误:An error occurred during the installation of assembly 'Microsoft.VC80.CRT,version="8.0.50727.42",type="win3.
2021-08-30 16:45:19
832
原创 作为生产力工具，D7的优势在哪里？
严重声明： 本文涉及大量有理吐槽，抹黑，请自行斟酌并妥善处理，对于心理承受能力较差的同学，建议在父母监护下阅读，谢谢。 这个问题其实无解，萝卜白菜，各有所爱，但是作为一款纯粹的生产力工具，或者说，站在生产力工具（疯狂吐槽）的角度看，相对与D的其它版本来说，D7的优势到底是什么？ 首先，我们必须界定几个问题，然后再来讨论为什么D7依然是我心目中的高效生产力工具。我们知道，作为RAD工具，拖拖拉拉就能搞定界面设计，这是开发工具的一大进步，同时也是高生产力工具的标准，如果抛弃这个...
2021-07-23 10:56:44
1026
2
原创 奇葩的编译问题
刚刚遇到的一个奇葩的编译问题，先记录下来，以供参考。 打开D，从帮助中拷贝一段演示代码到窗口中，点击F9编译，瞬间发现整个pascal文件的断点全乱了。遂逐个查找文件是否有重复，文件是否重复，结果是所有文件都没有问题。 经过折腾之后，才想起：那个垃圾帮助文件中有奇葩的不可见字符！！！同理，如果你从网络的网页上复制代码也会遇到代码中存在奇葩的不可见字符，对，就是这个奇葩的不可见字符导致整个代码中的断点全部乱掉且无法正确设置断点和调试！！！ 明白过来之后，遂将文件内容复制到其它编辑...
2021-07-23 09:44:39
123
原创 用Pascal/C/C++来干Web的活？你有没有搞错？
用Pascal/C/C++来干Web的活，现阶段感觉就像开着一个涡喷发动机的拖拉机参加F1方程式赛车一样蛋疼。一台装着涡喷发动机的拖拉机，你得做很多很多工作：1.要么把拖拉机装上翅膀。拖拉机要飞的话，不是说力大飞砖那么简单，你至少得研究一下空气动力学吧?2.要么改造发动机变成轴传动或者机械传动，但是，你看，空气动力发动机的优势就没有了。3.好不容易改造成功了，对不起，你这会飞的拖拉机不符合F1的比赛规则，或者是你这拖拉机速度是挺快，但是操控性太差了，一不小心就越界(AV)了。最后，好不容易，你终于
2021-05-25 09:51:32
153
原创 为伊消得人憔悴，衣带渐宽终不悔(2)
领导要下载一个在线视频，可惜是m3u8格式的，找了好多下载工具，没一个好用的，没办法，只好自己动手丰衣足食了！ 经过整个周末两天一夜的奋战，终于搞明白了下载的基本原理，也通过了初步实验，最终成品尚未出炉，所以只好先将一些踩过的坑给记录下来，以便将来参考。 1.解析m3u8文件。这个太简单了，没啥难度，请自行略过。 2.大部分视频文件都有加密，请一定要解密，解密，解密！！！解密的密码在m3u8文件的开头URI="http://"这个里面。 3.大多情况下的加密都是...
2021-03-14 15:10:01
164
原创 从生产力工具方面吐槽一下吧
废话不说，直入正题，某美国企业的原装笔记本电脑，原版Win10家庭版操作系统，版本2004（OS内部版本19041.685）:首先，一款操作系统，你除了提供基本的CPU调度文件管理等基本功能外，为用户提供各种各样可定制化服务，扩展用户体验，我是能理解的，但是，这有一个前提：那就是，你不能忘了初心。显然，从我个人角度来看，操作系统的初心，首先就是一点：生产力工具，生产力工具，生产力工具！！！！至于其它的游戏、娱乐，这些都属于锦上添花，可有可无的内容，没有游戏，没有娱乐，该干的活还是要干。至于说，游戏和
2021-01-12 11:22:37
170
1
原创 写篇踩坑笔记吧
这个是最近一段时间遇到的各种花样别出的坑，这些坑只针对D7，不知道啥是D7的可以直接关闭窗口了。坑1：D7在Win7及以上版本调试时，只有BuildWithRuntimePackage时才能正确获取Win32MajorVersion，Win32MinorVersion，Win32BuildVersion等值。不带包编译后，运行时不存在该问题。如果存在，可能需要使用管理员运行，即在程序上右键RunWithAdministrator，该问题的具体原因未知。坑2：D7程序启用UAC后，在Wi
2021-01-08 10:56:49
108
1
原创 在Delphi中动态调用事件方法
最近用到了一个稍微高级一点儿的内容，就是在代码中动态调用事件方法，或者说是函数指针，由于Delphi的特殊性，所以，直接上代码吧：procedure TForm1.Button2Click(Sender: TObject);var f, f1: TNotifyEvent; d: NativeUInt; pm, pm1: ^TMethod;begin New(pm); try f := Button1Click; pm.Code := TMethod(f).Co
2020-12-17 13:50:59
1088
原创 关于Toolbar的问题
Toolbar最关键的属性是Transparent，该属性在DoubleBuffered情况下非常容易出现黑色背景的问题，即整个Toolbar的背景全部为黑色，无法辨识。在Windows开启主题（例如XP、Win7等主题）情况下特别严重。 经实践分析，这是由于Toolbar在Transparent属性为True且DoubleBuffered为True的情况下无法绘制Toolbar的默认背景下导致的问题。 解决方案： 明白原理后，解决方案其实非常简单： 方案1、...
2020-12-09 09:51:27
216
原创 FMX保存图片
FMX保存图片，这句话老是记不住，备注到这里吧。Image1.MultiResBitmap.Items[1].Bitmap.SaveToFile('c:\aaa.png');
2020-09-08 11:05:21
327
原创 在工控机（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
1003
原创 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
437
原创 解决Delphi中自带Json处理单元中关键字在序列化和反序列化中的冲突问题
解决Delphi中自带Json处理单元中关键字在序列化和反序列化中的冲突问题。这个是一个非常常见的问题，以前好像搜索到过，但是不知道为什么没有了，所以只能自己重写吧，参看代码：unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, System.Json, System.JSON.Types
2020-06-29 11:58:24
875
原创 结构初始化的小Bug，又是一个坑，无论新手高手都要注意！！！
Bug代码如下：var AParam: TUserRecord;begin AParam.Value = 123;因为AParam是个结构，在Windows平台上没有问题,但到了其它平台直接蓝屏然后挂了...原因很简单，仅仅是因为AParam中的其它参数没有初始化，导致后面的代码在执行过程中出现了问题。这种问题虽然都很弱智，但是找起来却非常非常麻烦...解决方法也很简单：...
2020-03-11 17:15:23
186
原创 Win7 64位内存申请上的一个小坑！！！
今天在Win7 64位上写了这么一段程序：varp:Pointer;iSize:Integer;beginiSize:=1024*2;GetMem(p,C_1M*iSize);简单点儿说，就是申请一块2G的连续内存，结果每次都申请失败，还以为操作系统不支持。折腾半天后才发现，其实是iSize的问题，因为iSize是32位整数，所以当达到2G时...
2020-03-11 11:01:28
238
原创 这个确实遇到过了！
刚看到一个小故事：某公司有个很著名的故事:有一个系统是用来发放固定电话卡号的。发放的时候为了让号码能随机化,需要取系统时间作为种子生成随机数。但这个算法有个问题,如果短时间内被调用多次,取得到的系统时间(可能是毫秒)就是相同的。那么计算生成的前后的卡号就是有规律的。原来的程序员在代码中增加了一行语句seep(1),通过这行语句强制每次调用取得的系统时间是不同的。好了,故事来了。这段代码...
2019-01-08 11:18:41
207
原创 IWML（IntraWeb Markup Language），什么鸡儿玩意儿。。。
看了一下IWML，简单说两句，说错不要打我。首先，这东西是给谁用的？既然是给前端用的，美工需要用你这破玩意儿？前端攻城师对各种JS、HTML、Markdown熟练无比，会用你这破玩意儿？其次，结合描述符来看，这是一个树形、空格分层的对象标识“语言”，还是自己创立的一套“方言”，有没有问题，鬼都不知道。。。更关键的是，看起来还没有Markdown容易理解且容易使用，唯一可以吹牛的是说它可以描...
2018-12-22 10:18:58
693
原创 给所有使用FMX（FireMonkey）进行开发的忠告！
没有废话，直接正文： 在开始之前，首先我假设您有10年、或者20年甚至是30年的Pascal开发经验，由于种种无法解释且又无法摆脱的原因而不得不使用FMX来进行苦逼的开发，所以，我觉得下面是您所必须要了解的：一、放弃，放弃，再放弃！ 这句话我宁愿每天说100万遍，宁愿让它长在您的脑门上，刻在您的脑子里，穿在您的衣服上！所以，请放弃使用FMX的开发，放弃，放弃，再放弃！不要问为...
2018-09-28 13:28:51
15325
13
原创 更改IOS状态栏Statusbar的字体颜色
没有废话，直接正题：1.首先你的工程目录下必须有info.plist.TemplateiOS.xml文件，文件内容如下：<?xml version="1.0" encoding="UTF-8"?><!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/Proper...
2018-09-12 09:56:32
664
原创 罗马不是一天建成的，同理，千里之堤也不是因为一只蚂蚁垮掉的！
今天在群里看到这么一句话:一边用着D, 一边唱衰D这种人说的话，能信？一点感恩的心都没有的人。。如何让人信服？面对这种弱智得毫无逻辑的言论，竟然还有一群人捧臭脚，顿时让人难过得欲哭无泪！下面就详细说说这句话的硬伤：1.作为一个产品，如果消费者使用之后还不能说不好用，这是要回到什么KongBu时代吗？拜托，现在是8102年，还用这种言论来说，你的小心心难道不会痛吗？2.作为一个产品...
2018-07-19 11:39:45
303
原创 一些关于开发工具/开发语言发展脉络的想法
本来这是发在论坛上的几句吐槽，但是还是整理一下存档吧。一.传统开发工具面临的困境我也瞎说几句吧：1.下面这段是橙子Demo的一个代码的Uses段，我相信你绝对看过比这个更恐怖的Uses段。uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, F...
2018-06-28 10:24:10
334
原创 致敬一个渐行渐远的时代！
昨天一个老同事聊天时，随意的说了一句话：你变了。急忙问：哪儿变啦？答：变光滑了，不是那个锋芒必露、依剑江湖、问鼎天下的那个你了。稍作犹豫马上附和道：没办法，老了！老了！ 思考良久，终于还是决定把自己的想法写一下，放15年前，这肯定是未卜先知。现在则是马后炮或者说是“事后诸葛亮”了，管它呢，当成吐槽吧。一、代差的意义 说起代差，脑袋里印象最深刻的是“歼8大战F22”的模拟场景。当...
2018-06-20 12:58:24
491
原创 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
2418
原创 TMemoryStream的性能问题
TMemoryStream作为使用非常多的一个Stream类，日常使用时并没有感觉到慢，当然这是因为代码中使用频度不高的缘故，当使用频度一上去，TMemoryStream的性能简直不忍直视。好了，我们看看原始代码中是怎么写的：function TMemoryStream.Realloc(var NewCapacity: Longint): Pointer;begin if (NewCapac...
2018-05-12 11:04:27
923
原创 原生的没落与脚本的崛起 - 从科幻小说到现实漫谈编程语言
郑重声明：科幻小说有很多内容是经不起认真推敲的，即使是所谓的硬科幻。但是，这种硬伤并不影响我们学习他们从另一个角度来观察、思考我们面临的问题，因此，在这个基础上学习别人先进思想经验同时摈弃糟粕是非常必要的。所以在看本文时一定要牢牢记住这句话以免被带偏。慎重慎重！还是先从科幻小说《三体》开始，三体中非常震撼人心一个武器是二向箔，这是一种直接将三维空间坍缩到二维空间的武器（注意，我们不是来探讨硬伤的，...
2018-05-02 11:43:20
365
原创 C++快速上手笔记
因为要对线程进行测试，所以用BCB写了一段代码，长时间没用，有点儿生疏了。所以，决定把某些常见内容写下来供下次使用时快速上手。首先，这是对于Pascal程序员使用BCB快速入门；其次，这里面的内容也许会增加更多内容；目的仅仅是为了能够快速上手。很抱歉不是给入门小白用的。1.指针转换 TObject* AObj = (TObject *)FList->Items[i];2.创建释放 T...
2018-04-25 12:22:21
611
原创 ARM与Intel芯片性能不严谨比较
从ARM芯片在手机上大量应用起就到处充斥着“ARM相当于I3 CPU”“ARM芯片性能只比Intel芯片落后5年”“ARM芯片如何强悍”等等各种性能言论，给人一种可以随时扔掉X86芯片进入新世界的幻觉。首先，我没有歧视、打压、跪添任何芯片的任何意图；其次，我对这些极其不负责任的混蛋脑残言论简直是恨之入骨！毕竟，作为一个技术人员还被打着技术人员旗号的“伪”技术人员欺骗简直是无法容忍，甚至被误导填坑到...
2018-04-23 10:24:47
5865
3
原创 IE的deflate头
网上搜来的关键几句话：gzip与deflate区别 deflate使用inflateInit()，而gzip使用inflateInit2()进行初始化，比 inflateInit()多一个参数: -MAX_WBITS，表示处理raw deflate数据。因为gzip数据中的zlib压缩数据块没有zlib header的两个字节。使用inflateInit2时要求zlib库忽略zlib...
2018-04-16 10:24:01
355
原创 MySQL和Sqlite3性能测试
测试条件：[email protected]，普通机械硬盘。MySql: 5.0.45-community-nt,32bit, innodb引擎,innodb_flush_log_at_trx_commit=0Sqlite3: Synchronous=Off,LockingMode = ExclusiveTableScript:MySql:CREATE TABLE `test` ( `id` int(10...
2018-04-13 12:30:01
9389
1
原创 Indy Http Server极限测试
测试环境：Win32，[email protected]，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
1453
4
原创 Windows中按钮文字的布局样式
用到CheckBox的按钮居右处理，发现竟然没有文字居右的选项。从面向对象的角度来说，咱要重载掉CreateParams重新创建一个新类，可是这个功能基本上很少用到啊，那么就只能用Windows Api 函数直接修改啦。上代码：function SetWinControlTextAlignment(const AControl: TWinControl; const Alignment: TAli...
2018-03-30 10:00:20
568
原创 性能杀手！老生常谈。。。
写了一个内存管理器，主要用来做缓存，于是就测试一下性能，顺便说说性能杀手都在哪里。预警：老生常谈，大侠可以右上角点关闭了。1。这个内存管理器就是最简单的那种，固定长度的（比如：固定256字节）。没啥技术含量，然后就是加锁给线程调度，因为是固定长度，所以开始就分配一大块内存（2M）进行分片并加入数组实现的队列。性能吗，水平太菜就不要对我要求太高了，基本内容摆在哪儿（数组队列，AtomLock），理论...
2018-03-25 11:48:39
379
原创 继续TEvent，破事真不少
在Windows平台上，TEvent的核心是CreateEvent函数，因此咱们就直奔主题吧。本来是想测试一下CreateEvent的内存占用的，以为一个THandle只有4个字节（Win32）的内存占用，应该不会有别的事情发生，于是就简单写了以下代码：procedure TForm1.Button2Click(Sender: TObject);var i, iCount: Integer; ...
2018-03-22 10:40:17
1830
1
原创 深入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
1166
原创 小测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
972
3
原创 Pascal中TFileStream的Create问题
按照帮助说明，当使用fmCreate参数时，如果文件存在则以只写方式打开，否则创建。在实际使用过程中，Win7上是没有以只写方式打开，而是直接强制创建新文件了。 跟踪源码到SysUtils单元中的FileCreate函数: Result := Integer(CreateFile(PChar(FileName), GENERIC_READ or GENERIC_WRITE, ...
2018-03-16 10:48:56
1867
1
原创 浮点处理器的威力
直接上代码：例子一：procedure TForm1.Button5Click(Sender: TObject);var i: Integer; dTime: Cardinal; v, i1, i2: Cardinal; f, f1, f2: Double;begin dTime := GetTickCount; v := 4101031
2017-12-08 09:08:37
436
原创 64位Hash算法Pascal版本
murmur的hash算法：http://sites.google.com/site/murmurhash/avalanchec代码：unsigned long long MurmurHash64B ( const void * key, int len, unsigned int seed ){ const unsigned int m = 0x5bd1e995;
2017-11-01 11:34:11
1745
简单且弱智的高精度公式计算器0.2
2021-06-24
一款N多年前弱智计算器
2021-06-17
图片批量压缩瘦身工具
2021-02-20
完整开发的基于脚本的高性能Web服务器0.3.2707
2020-07-27
完整开发的基于脚本的高性能Web服务器0.3.2707
2020-07-17
完整开发的基于脚本的高性能Web服务器0.2.2106
2019-05-27
完整开发的基于脚本的高性能Web服务器0.2.1905
2019-05-10
完整开发的基于脚本的高性能Web服务器0.2.1805
2019-05-03
完整开发的基于脚本的高性能Web服务器0.2.1705
2019-04-26
完整开发的基于脚本的高性能Web服务器0.2.1606
2019-04-20
完整开发的基于脚本的高性能Web服务器0.2.0
2019-04-11
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人