亲测可用!delphi实现的结果与java以及qt一致。