net2.0下PDF转图片 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有12110人关注过本帖树形打印复制链接主题：net2.0下PDF转图片

zoyong

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：668 积分：7918 威望：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

加好友

发短信

等级：超级版主帖子：110743 积分：563641 威望：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

加好友

发短信

等级：三尾狐帖子：668 积分：7918 威望：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

加好友

发短信

等级：超级版主帖子：110743 积分：563641 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/1/17 21:11:00 [只看该作者]

参考：http://www.foxtable.com/mobilehelp/topics/0160.htm

zoyong

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：668 积分：7918 威望：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

加好友

发短信

等级：超级版主帖子：110743 积分：563641 威望：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

加好友

发短信

等级：三尾狐帖子：668 积分：7918 威望：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

加好友

发短信

等级：超级版主帖子：110743 积分：563641 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/1/19 22:20:00 [只看该作者]

参考：http://www.foxtable.com/mobilehelp/topics/0140.htm

http://www.foxtable.com/mobilehelp/topics/0252.htm

zoyong

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：668 积分：7918 威望：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

加好友

发短信

等级：超级版主帖子：110743 积分：563641 威望：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 下一页

主题：net2.0下PDF转图片