Foxtable(狐表)用户栏目专家坐堂 → net2.0下PDF转图片


  共有10510人关注过本帖树形打印复制链接

主题:net2.0下PDF转图片

帅哥哟,离线,有人找我吗?
zoyong
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:647 积分:7675 威望:0 精华:0 注册:2015/8/24 9:02:00
net2.0下PDF转图片  发帖心情 Post By:2020/1/11 11:30:00 [只看该作者]

    Dim pdfFile = O2S.Components.PDFRender4NET.PDFFile.Open("c:\AAA.pdf") '红色为文件路径
    Dim pageImage As Image = pdfFile.GetPageImage(i,100) '第一个参数1为页数,从0开始,1表示第二页;第二个参数为图片清晰度,数值越大越清晰,同时保存的图片文件也就越大
    pageImage.Save("C:\test\" & i & ".jpg")
    pageImage.Dispose() '释放内存资源
    pdfFile.Dispose() '释放内存资源

以上代码在.net4.0下有效,现在想用.net2.0,要引用哪个插件

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/11 11:56:00 [只看该作者]

一样可以用:http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=77213&skin=0

 回到顶部
帅哥哟,离线,有人找我吗?
zoyong
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:647 积分:7675 威望:0 精华:0 注册:2015/8/24 9:02:00
  发帖心情 Post By:2020/1/17 19:19:00 [只看该作者]

如何将图片保存到本地

http://app2.showapi.com/isbn/imgs/ef47a276d65b432ea12d1b6e8759ffd8.jpg




 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/17 21:11:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
zoyong
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:647 积分:7675 威望:0 精华:0 注册:2015/8/24 9:02:00
  发帖心情 Post By:2020/1/19 16:37:00 [只看该作者]

以下代码,怎样生成http API链接



{
  "api_name": "daily",
  "token": "e8d4a7f39ebad2a5122eadb7d42e6be273d0ce7c5f5ab67d09c37463",
  "ts_code": "000017.SZ",
  "start_date": "20200116",
  "end_date": "20200116"
}


官网说明   https://tushare.pro/document/1?doc_id=130
以上JSON代码,想获取数据,说明书太简单使终看不明白

curl -X POST -d '{"api_name": "stock_basic", "token": "xxxxxxxx", "params": {"list_stauts":"L"}, "fields": "ts_code,name,area,industry,list_date"}' http://api.waditu.com

[此贴子已经被作者于2020/1/19 16:37:51编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/19 17:28:00 [只看该作者]

Dim hc As New HttpClient("http://api.waditu.com")
hc.ContentType = "application/json"
hc.Content = "上面的json字符串数据"
Dim ret As String = hc.GetData()
MessageBox.Show(ret)
[此贴子已经被作者于2020/1/19 17:28:11编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
zoyong
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:647 积分:7675 威望:0 精华:0 注册:2015/8/24 9:02:00
  发帖心情 Post By:2020/1/19 20:56:00 [只看该作者]

有2个符合,求老师帮忙解析一下

{
"request_id": "02388de63ab6827890865",
"code": 0,
"msg": "",
"data": {
"fields": ["trade_date", "open", "high", "low", "close", "pre_close", "change", "pct_chg", "vol", "amount"],
"items": [
["20200117", 53.3800, 53.3900, 50.5500, 50.5900, 53.6300, -3.0400, -5.6685, 72987.100000, 377825.417000],
["20200117", 197.0000, 210.0000, 190.7000, 202.5500, 197.5100, 5.0400, 2.5518, 10915.330000, 219310.223000],
["20200116", 19.5100, 20.1500, 19.3400, 19.7400, 19.6100, 0.1300, 0.6629, 509236.080000, 1004863.124000],
["20200116", 2.9200, 2.9600, 2.8700, 2.8700, 2.9200, -0.0500, -1.7123, 229655.810000, 66872.327000],
["20200116", 3.5100, 3.5200, 3.4600, 3.4800, 3.5000, -0.0200, -0.5714, 27396.840000, 9530.033000]
],
"has_more": true
}
}







[此贴子已经被作者于2020/1/19 21:06:57编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/19 22:20:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
zoyong
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:647 积分:7675 威望:0 精华:0 注册:2015/8/24 9:02:00
  发帖心情 Post By:2020/1/27 19:23:00 [只看该作者]

Dim ms As New System.IO.MemoryStream
getImage("c:\1.jpg").Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
Dim BPicture As Byte() = New Byte(ms.Length - 1){}
BPicture = ms.GetBuffer()
msgbox(Convert.ToBase64String(BPicture))


将图片转换成Base64编码,感觉代码无效啊

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/28 10:40:00 [只看该作者]

不需要那么麻烦,

Dim data() As Byte = System.IO.File.ReadAllBytes("c:\1.jpg") '把图像文件字节流加载进来,
dim b64 as string = Convert.ToBase64String(data) '转换为Base64格式
msgbox(b64 )

如果要加上图片格式前缀

Dim data() As Byte = System.IO.File.ReadAllBytes("c:\1.jpg") '把图像文件字节流加载进来,
dim b64 as string = "data:image/jpeg;base64," & Convert.ToBase64String(data) '转换为Base64格式
msgbox(b64 )

jpeg根据图片扩展名可以为png、gif

 回到顶部
总数 67 1 2 3 4 5 6 7 下一页