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


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

主题：net2.0下PDF转图片
帅哥哟，离线，有人找我吗？
zoyong
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7735 威望：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,要引用哪个插件
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7735 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2020/1/17 19:19:00 [显示全部帖子]

如何将图片保存到本地

http://app2.showapi.com/isbn/imgs/ef47a276d65b432ea12d1b6e8759ffd8.jpg
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7735 威望：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7735 威望：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7735 威望：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编码，感觉代码无效啊
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7735 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2020/2/1 17:26:00 [显示全部帖子]

框架不起作用


图片点击可在新窗口打开查看此主题相关图片如下：b4dceec38d6db23fd02040a8b4f13ce.jpg
图片点击可在新窗口打开查看


框架不起作用

[此贴子已经被作者于2020/2/1 17:26:38编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7735 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2020/2/4 19:56:00 [显示全部帖子]

Using sr As IO.StreamReader = New IO.StreamReader("c:\temp\openid.txt") '直接从文件路径生成'

Dim count As Integer = 0
Do While line IsNot Nothing '如果不为空.为空说明读取完毕,结束循环
    count += 1
    line = sr.ReadLine() '读取下一行
    Dim dt As DataTable = cmd.ExecuteReader(True)
    Dim dr As DataRow = dt.sqlFind("OpenID = '" & line & "'")
    If dr Is Nothing Then
        Dim dn As DataRow = dt.Addnew()
        dn("OpenID") = line
        dn.Save
    End If
Loop

End Using



最后一行不导入，怎么修改，因为最后一行为空行
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7735 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2020/2/7 19:58:00 [显示全部帖子]

{"request_id": "a1f620dc499e11ea8cc2a3f7c1e595821581075625914415", "code": 0, "msg": "", "data": {"fields": ["ts_code", "trade_date", "open", "high", "low", "close", "pre_close", "change", "pct_chg", "vol", "amount"], "items": [["002411.SZ", "20200206", 14.6700, 15.6900, 14.3300, 15.6900, 14.2600, 1.4300, 10.0281, 1583473.420000, 2427042.981000]], "has_more": false}}



如何将红色代码解析出来，里面有两个[[符号
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7735 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2020/2/18 19:59:00 [显示全部帖子]

有多个计划任务，用表形式管理   "表A"
要执行的代码在dr("执行代码")列，以下红色代码怎么写



Static dt As Date '静态变量,用于保存上次备份的时间
Dim tp As TimeSpan
tp = Date.Now - dt
If tp.TotalHours >= 1 Then '如果距离上次备份已经超过一个小时
    dt = Date.Now
    
    For Each dr As DataRow In DataTables("表A").DataRows
        If dr("任务名称") = "30分钟1次" Then
            运行执行代码 = dr("执行代码")
        End If
    Next

End If
[此贴子已经被作者于2020/2/18 20:00:11编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7735 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2020/2/21 20:12:00 [显示全部帖子]

计划任务无效，大神帮忙看一下

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:1定时执行.foxdb
 回到顶部
总数 35 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 6 次数据查询