delphi创建HTTPServer服务接收json中文乱码
做服务端，很多人已经淘汰用delphi了，确实，各种中文乱码的问题，也有人劝过我用JavaScript，很简单，连源码都给我了，但是还没时间研究，眼前有个项目，必须提供一个服务供第三方调用，请求方式POST，请求格式JSON，当解析请求的json时发现中文乱码。解决方法如下：
上代码：
procedure TZZJForm.VodHttpServerCommandGe ...
delphi 微服务
delphi微服务架构
微服务架构
微服务架构区别于传统的单体软件架构，是一种为了适应当前互联网后台服务的三高需求：高并发、高性能、高可用，而产生的软件架构。
与微服务相对的另一个概念是传统的单体式应用程序(Monolithic application)，单体式应用内部包含了所有需要的服务。而且和个服务功能模块有很强的耦合性，也就 ...
Delphi 10.3.3解决Android 11闪退
这是盒子上的朋友的解决方案，转贴过来的，感谢分享的朋友，另外，这一问题，Delphi 10.4.1是解决了的。
Android 11 Beta版本，Delphi 10.3.3编辑的App出现闪退。
文件在Delphi10.3.3版本修改而来。替换文件后，修复Android 11启动闪退问题。替换以下目录文件“System.o”，区分32和64位版本。如果包含 ...
system.hash.pas
system.hash.pas
delphi xe8开始提供system.hash.pas。
xe10.4.1版本，提供有几个记录：
THash = record
THashBobJenkins = record
THashMD5 = record
THashSHA1 = record
THashSHA2 = record
uses System.Hash;
function md5_hmac(const val, key: string): string;
begin
var md5: THashMD5 := THashMD5.Create;
R ...
Delphi Char、Pchar 、String 相互转换
Delphi Char、Pchar 、String 相互转换
1、String 与 PChar 转换1.1 String转化成PChar 2种方式
var
s:string;
p,p1Char;
begin
s:='Hi Delphi7';
p:=PChar(s); //
ShowMessage(p);
p1:=StrAlloc(Length(s)+1);
StrPCopy(p1,s);
ShowMessage(p1);
StrDispose(p1);
end;
1.2 PChar转String ...
Delphi USBCamera DirectShow 预览录像截图
参照：https://www.haolizi.net/example/view_37332.html
实例介绍
【实例简介】用DirectShow 的方式，视频输入设备枚举、视频支持格式枚举、视频预览、视频录像、视频截图。Delphi 源代码
【实例截图】
【核心代码】
unit untUSBCamera;
interface
uses
Windows, Messages ...
[Delphi] Delphi版本号对照
VER300 Delphi Seattle / C++Builder Seattle 23 230 (Delphi:Win32/Win64/OSX/iOS32/iOS64/Android) (C++Builder:Win32/Win64/OSX/iOS32/iOS64/Android) VER290 Delphi XE8 / C++Builde ...
Delphi 字符串拆分/分割[1] - TStringList
Delphi 字符串拆分/分割[1] - TStringList
1、TStringList 默认以 ','拆分字符
onst
constr :String = 'aaa,bbb,ccc,ddd';
var
strs :TStrings;
i :Integer;
begin
strs := TStringList.Create;
strs.CommaText := constr;
for i := 0 to Strs.Count-1 do
ShowMessage(Strs); //aaa bbb ...
Delphi RadioGroup 组件基本用法
1. RadioGroup的主要属性
(1) Columns:属性
属性 Columns:用于设置单选按钮组中按钮的列数。范围1~16默认值为1。
设置方法很简单，充分提现了Delphi的强大功能和方便，只要设置RadioGroup组件的Columns列属性为1就是竖向显示，为2就是横向显示。也就是说你的Items有几个就设置 ...
delphi zeromq开源库
delphi zeromq开源库
https://github.com/grijjy/DelphiZeroMQ
使用 ZeroMQ 推出您自己的轻量级、可扩展后端ZeroMQ是一种高速分布式消息传递库，用于使用 pub-sub、push-pull 和 router-dealer 等智能模式构建可扩展的通信应用程序。在本文中，我们将展示一个 Delphi 版本的ZeroMQ Majordomo 协议规范，它是一个轻量级的分 ...
Delphi函数大全
delphi常用函数大全（转）
Abort函数引起放弃的意外处理Abs函数绝对值函数AddExitProc函数将一过程添加到运行时库的结束过程表中Addr函数返回指定对象的地址AdjustLineBreaks函数将给定字符串的行分隔符调整为CR/LF序列Align属性使控件位于窗口某部分Alignment属性控件标签的文字位置AllocMem函数在堆栈上分配给定大小的块A ...
delphi yaml
delphi yaml
https://github.com/lim417dev/Neslib.Yaml
https://github.com/neslib/Neslib
Neslib.Yaml - A YAML library for Delphi
Neslib.Yaml is a library for parsing and emitting YAML and constructing YAML documents and streams.
Neslib.Yaml is build on top of the LibYaml library and works on: ...
delphi dxDBGrid使用集锦
一、如何设定可以多列自动排序? 只能使用分组:如按a1,a2,a3,a4排序 先按a1分组,再a2,再a3 然后设置a4的排列(升/降) 二、如何设定左边几列，不能滚动? 建立Band0,Band1 Band0的Fixed=tfLeft Band1的Fixed=tfnone 设置要锁定的字段的BandIndex=0,其它为1 三、如何访问，显示字段的对象，控 ...
Delphi出现“Unsatisfied forward or external declaration”错误分析
今天在操作与“汉字转拼音”有关的程序编写时，总是提示“Unsatisfied forward or external declaration”错误，最终发现是如下原因造成的：
type TForm1 = class(TForm) ... function GetPYIndexChar(hzchar:string):char; //函数声明
private ...
Delphi7升级到Delphi 2010、Delphi XE、Delphi XE2总结
这两天把一个使用Delphi2007成功升级到了Delphi2010。升级途中很艰辛，总结了 以下经验与大家分享。另外，D7使用的第三方组件，由于官方没有发布For Delphi2010的更新，修改的第三 方组件列表见文章尾部。1，PChar因为Delphi不支持无类型指针的算术运算，很多程序员使用 PChar来代替Pointer，即使指针指向目标并不是PAnsiCh ...
Delphi 中的 AnsiString,、Utf8String、WideString
Delphi 中的 AnsiString,、Utf8String、WideString
1、AnsiString
这是Pascal缺省的字符串类型，它由AnsiChar 字符组成，其长度没有限制，同时与null结束的字符串相兼容，它的内存和ANSI编码格式的TXT文件的内存一样，AnsiString可能是全部都是ASCII字符，也可能包含中文字符。 如果是在繁体 ...
Delphi Variant 通用类型[2] 常用函数/过程
Delphi Variant 通用类型[2] 常用函数/过程
Variant：
拥有多数据类型；
可通过VarType函数 获取存储的数据类型；
可给相同的Variant分配不同的数据类型，只要Variant包含数字值就可以执行算法；
variant数组是variant型的数组，不必包含同类型的数据；
引用单元：Variants
1、常用函数/过程：
VarArrayOf //创 ...
Delphi System单元 Utf8ToAnsi、AnsiToUtf8、Utf8Decode、Utf8Encode、Utf8ToUnicode、UnicodeToUtf8 转换
Delphi System单元 Utf8ToAnsi、AnsiToUtf8、Utf8Decode、Utf8Encode、Utf8ToUnicode、UnicodeToUtf8 转换
单元：System
原型：
function UnicodeToUtf8(Dest: PChar; MaxDestBytes: Cardinal; Source: PWideChar; SourceChars: Cardinal): Cardinal;
var
i, count: Cardinal;
c: Cardinal;
begin
Result := 0;
if ...
Delphi Distillerv1.85绿色版说明
参考：https://www.cr173.com/soft/5227.html
- Delphi 5 tweaks:- Don't create .~bpl files.- Don't create .cfg files.- Use Tahoma font by default.- Don't show splash screen.- Customize editor colors.
- Delphi 6 tweaks:- Don't create .~bpl files.- Don't create .ddp files.- Don't create .cfg files.- Use ...
Delphi 控制摄像头操作
DELPHI控制摄像头操作可以使用TVideoCap控件，或直接使用MS的AVICAP32.DLL就可轻松的实现对摄像头编程。
首先常量定义和函数定义：
implementationconst WM_CAP_START = WM_USER;const WM_CAP_STOP = WM_CAP_START + 68;const WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10;const WM_CAP_DRIVER_DISCONNECT = WM_CAP_START + ...
