以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  net2.0下PDF转图片  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=145187)
--  作者：zoyong
--  发布时间：2020/1/11 11:30:00
--  net2.0下PDF转图片
    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,要引用哪个插件
--  作者：有点蓝
--  发布时间：2020/1/11 11:56:00
--  
一样可以用：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=77213&skin=0
--  作者：zoyong
--  发布时间：2020/1/17 19:19:00
--  
如何将图片保存到本地

http://app2.showapi.com/isbn/imgs/ef47a276d65b432ea12d1b6e8759ffd8.jpg
--  作者：有点蓝
--  发布时间：2020/1/17 21:11:00
--  
参考：http://www.foxtable.com/mobilehelp/topics/0160.htm
--  作者：zoyong
--  发布时间：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编辑过]
--  作者：有点蓝
--  发布时间：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
--  发布时间：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编辑过]
--  作者：有点蓝
--  发布时间：2020/1/19 22:20:00
--  
参考：http://www.foxtable.com/mobilehelp/topics/0140.htm
--  作者：zoyong
--  发布时间：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编码，感觉代码无效啊
--  作者：有点蓝
--  发布时间：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