gwbasic

[code] unit Hessian2Output; { title: hessian 2.0 序列化 author: Xiao Chun email: cnxiaochun#gmail.com version: draft reference: http://hessian.caucho.com/ } interface uses Classe...

[code="delphi"] function CheckCrc16(const ABuf; ALen: Integer): Boolean; var uwTemp: WORD; i, j: BYTE; P: PByte; begin Result := False; P := PByte(@ABuf); uwTemp := $FFFF; ...