DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: hebhanax
今日帖子: 48
在线用户: 14
导航: 论坛 -> 网络通讯 斑竹:liumazi,sephil  
作者:
男 wyd5168 (阿尔克) ★☆☆☆☆ -
普通会员
2021/2/18 22:30:46
标题:
求高手帮忙,下面的java函数用delphi怎么实现,才能让java读取? 浏览:2018
加入我的收藏
楼主: /**
 * 将文件转换成byte数组
 * @param
 * @return
 */
public static byte[] File2byte(File tradeFile){
    byte[] buffer = null;
    try
    {
        FileInputStream fis = new FileInputStream(tradeFile);
        ByteArrayOutputStream bos = new ByteArrayOutputStream();
        byte[] b = new byte[1024];
        int n;
        while ((n = fis.read(b)) != -1)
        {
          bos.write(b, 0, n);
        }
        fis.close();
        bos.close();
        buffer = bos.toByteArray();
    }catch (FileNotFoundException e){
        e.printStackTrace();
    }catch (IOException e){
        e.printStackTrace();
    }
    return buffer;
}
----------------------------------------------
感谢
作者:
男 wyd5168 (阿尔克) ★☆☆☆☆ -
普通会员
2021/2/18 22:40:44
1楼: 求高手,这样的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;
----------------------------------------------
感谢
作者:
男 keymark (嬲) ▲▲▲△△ -
普通会员
2021/2/18 22:47:45
2楼: https://www.runoob.com/java/java-bytearrayoutputstream.html
public void write(byte []b, int off, int len)
 将指定字节数组中从偏移量 off 开始的 len 个字节写入此字节数组输出流。
看着像 每次1024byte off 是0 我猜是插入得意思?覆盖?
把进去的和 buffer 打印下。。。就知道大概意思了。不会java 瞎猜得
----------------------------------------------
[alias]  co = clone --recurse-submodules  up = submodule update --init --recursiveupd = pullinfo = statusrest = reset --hard懒鬼提速https://www.cctry.com/>http://qalculate.github.io/downloads.htmlhttps://www.cctry.com/
作者:
男 sail2000 (小帆工作室) ★☆☆☆☆ -
盒子活跃会员
2021/2/19 9:45:01
3楼: var  B: TBytes;
begin
  B := TFile.ReadAllBytes('D:\iofile.txt');
end
此帖子包含附件:
JPEG 图像
大小:55.1K
----------------------------------------------
delphi 是兴趣,和工作无关,即使它倒闭。又不靠它 delphi 吃饭,怕甚?
作者:
男 bjlg (蓝天) ★☆☆☆☆ -
盒子活跃会员
2021/2/19 15:43:35
4楼: 看看编码。或者你直接看看java段读取到的的数据是什么。然后根据实际情况修改
----------------------------------------------
http://delphi.icm.edu.pl/ftp/http://delphi-z.ru
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行187.5毫秒 RSS