2020年12月30日 星期三

DELPHI7适用的BytesOf和StringOf - delphi中间件

delphi中间件| 博客园_咏南中间件和开发框架 |12:16:00

DELPHI7适用的BytesOf和StringOf function BytesOf(const Val: AnsiString): TBytes; var Len: Integer; begin Len := Length(Val); SetLength(Result, Len); Move(V

bson(json）序列还原 - delphi中间件

delphi中间件| 博客园_咏南中间件和开发框架 |11:45:00

bson(json）序列还原 unit Unit2; interface uses Grijjy.Bson.Serialization, Grijjy.Bson, Grijjy.Bson.IO, Winapi.Windows, Winapi.Messages, System.SysUtils, Sy