Delphi-JSON-生成字节数组提交JAVA

摘要： 最近工作碰到一个JAVA的项目 需要在提交的JSON里面带上文件的字节数组。。。。不知道。。。。。 于是我是就是把文件转换过去 提交了 不行，，，人家告诉我提交字节数组就好了 我这...

最近工作碰到一个JAVA的项目

需要在提交的JSON里面带上文件的字节数组。。。。不知道。。。。。

于是我是就是把文件转换过去 提交了 不行，，，人家告诉我提交字节数组就好了

我这小脑瓜文文的。。。欺负老实人吗。。。 不会玩JAVA吗这不是 由于太笨学不会所以放弃了

改学的其他的 哈 一番百度在 在看需要再base64下的 那不是我不知道吗 那你java的问你 你就这样告诉我好了咯

我年纪大了 这种不熟悉吗 真是的

后来改了改了 行了。。。 特此记忆下 以免自己忘记

(*
   Uses
    XSuperObject,
    Soap.EncdDecd;
   
    一个 zip的压缩文件 到 json 字节数组
    icy
*)
//转换下文件到字节

function ZipUploadFile(const _fileName: string):TBytesStream;
var
  ZipStream:  TMemoryStream;
begin
  Result:= TBytesStream.Create();
  if FileExists(_fileName) then
  begin
    ZipStream:= TMemoryStream.Create;
    with TZipFile.Create do
    try
      Open(ZipStream,zmReadWrite);
      Add(_fileName);
      Close;
    finally
      Free;
      ZipStream.Position:= 0;
      EncodeStream(ZipStream,Result);
      ZipStream.Free;
    end;
  end;
end;

//好转了在弄到  JSON Array 去

procedure FileToJSONArray(const FileName: string; JA: ISuperArray);
var
  I:  Integer;
begin
  if FileExists(FileName) then
  begin
    with ZipUploadFile(FileName) do
    try
      if Size > 0 then
      begin
        for I:= 0 to Length(Bytes)-1 do
          JA.I[I]:=  Bytes[I] ;
      end;
    finally
      Free;
    end;
  end;
end;

好了 用这样就行了 结合你们实例的 改改就好了 如果也不辛和我一样碰到的话