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

icy 06-18 79 抢沙发

默认

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

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

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

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

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

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

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

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

Pascal

(*
   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;