以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于把压缩包转换成字节数组  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=180964)

--  作者:s111321
--  发布时间:2022/10/20 14:45:00
--  关于把压缩包转换成字节数组

1       9101-文件上传输入文件为TXT文件的ZIP压缩包,TXT文件各数据项以“TAB”制表符隔开,并按照输出文件参数说明序号排序,每行数据占据一行;

2        9101入参代码“in”为字节数组,机构需要将上传的ZIP文件转换为字节数组(有符号)填到“in”中,如下入参示例:

3         9101入参代码“文件名”、“机构编号”按医院上传情况填写;

4)         成功上传后,【9101】会把“文件名”和“文件查询号”返回,his系统需要保存此文件名和文件查询号(file_ q u r y _ no)用于后续文件下载。


{


"infno": "9101",


"msgid": "H44200100048202012141712113480",


"mdtrtarea_admvs":"330101",


"insuplc_admdvs": "330101",


"recer_sys_code": "DAREWAY",


"dev_no": "test-PC",


"dev_safe_info": "",


"cainfo": "",


"signtype": "",


"infver": "V1.0",


"opter_type": "1",


"opter": "TEST",


"opter_name": "test",


"inf_time": "2020-12-14 17:12:11",


"fixmedins_code": "H33010100001",


"fixmedins_name": "测试医院",


"sign_no": "1230232",


"input": {


"fsUploadIn": {


"in": [80,75,3,4,20,0,0,0,8,0,-52,-119,-114,81,71,122,-6,22,44,0,0,0,60,0,0,0,21,0,0,0,72,52,52,50,48,48,49,48,48,48,49,56,45,51,50,48,50,46,116,120,116,61,-119,-79,13,0,32,12,-61,-26,60,83,37,-91,-123,-14,-1,99,100,-62,-109,101,-117,-84,-108,54,44,77,-35,70,85,-14,-29,122,-92,-63,98,54,-61,-30,55,21,18,8,62,80,75,1,2,31,0,20,0,0,0,8,0,-52,-119,-114,81,71,122,-6,22,44,0,0,0,60,0,0,0,21,0,36,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,72,52,52,50,48,48,49,48,48,48,49,56,45,51,50,48,50,46,116,120,116,10,0,32,0,0,0,0,0,1,0,24,0,103,-35,-49,-124,-7,-47,-42,1,-115,-32,-128,68,-10,-50,-42,1,-115,-32,-128,68,-10,-50,-42,1,80,75,5,6,0,0,0,0,1,0,1,0,103,0,0,0,95,0,0,0,0,0],


"filename": "H44200100018-3202.zip",


"fixmedins_code": "H44200100018"


}


}

}



--  作者:s111321
--  发布时间:2022/10/20 14:46:00
--  
之前根据蓝老师的方法,下载的解决了,还有这个上传文件的帮忙看看
--  作者:有点蓝
--  发布时间:2022/10/20 14:55:00
--  
Dim data() As Byte = System.IO.File.ReadAllBytes("c:\\abc.zip")