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


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

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


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：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

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


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/1/17 21:11:00 [显示全部帖子]


 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/1/19 22:20:00 [显示全部帖子]


 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：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
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/2/1 17:30:00 [显示全部帖子]

框架引用路径不对：http://www.foxtable.com/mobilehelp/topics/0011.htm

比如引用路径为：
HttpServer.Prefixes.Add("http://*/")
HttpServer.WebPath = "d:\web"  '指定静态文件存储位置
HttpServer.Start()

那么3个框架文件要放到"d:\web\weui"，如：

d:\web\weui\weui.me.js
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/2/4 20:23:00 [显示全部帖子]

 line = sr.ReadLine()
if line  > "" then 
导入的代码
end if
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/2/7 20:14:00 [显示全部帖子]

理解为数组里面有数组即可，用法没有区别：http://www.foxtable.com/mobilehelp/topics/0140.htm

比如帮助的示例4，加多一层括号，也就是多一层循环而已

Dim json As String  = "{'touser':[['zhansan', 'lisi']],'msgtype':'text'}"
Dim jo As JObject = JObject.Parse(json)
Dim ja As JArray = jo("touser")
For i As Integer = 0 To ja.Count - 1
    For j As Integer = 0 To ja(i).Count - 1
        Output.Show(ja(i)(j).ToString)
    Next
Next
Output.Show(jo("msgtype").Tostring)
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/2/18 20:49:00 [显示全部帖子]

        If dr("任务名称") = "30分钟1次" Then
Functions.Remove("abc")
Functions.Add("abc",dr("执行代码"))
Functions.Complie()
Functions.Execute("abc")
        End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/2/21 21:55:00 [显示全部帖子]

代码没有问题。计划任务有效，只是自己指定的条件不符合

If dr("开始时间") < Date.Now.Hour AndAlso Date.Now.Hour < dr("结束时间") Then
 回到顶部
总数 34 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.08398 秒, 5 次数据查询