delphi和C写的，代码比较简单，见笑了。