求高手,这样的JSON发送后java读取文件错误。 function GetSendByte: TJSONArray; var ZipStream: TMemoryStream; I: Integer; buf: ShortInt; begin Result := TJSONArray.Create; ZipStream := TMemoryStream.Create; try ZipStream.LoadFromFile('d:\test.zip'); for I := 0 to ZipStream.Size - 1 do begin ZipStream.Read(buf, SizeOf(buf)); Result.Add(buf); end; finally ZipStream.Free; end; end;
----------------------------------------------
感谢