VB 将文件转为Base64并上传到服务器_vb上传文件到服务器_皮卡丘的搬砖日记的博客-程序员秘密

技术标签：编辑器

Sub TestBase64()
   Dim strFolder As String
    Set fs = CreateObject("Scripting.FileSystemObject")
      Extension = fs.GetExtensionName(ThisWorkbook.Name)
      Set afile = fs.GetFile(ThisWorkbook.FullName)
      fname = ThisWorkbook.Name
      strPicPath = ThisWorkbook.path & "\" & fname
      Debug.Print strPicPath
      strFolder = "C:\temp\" & fname
      ThisWorkbook.Save
      afile.Copy strFolder
      
    b64 = Encodefile(strFolder)
    fs.DeleteFile strFolder


    Debug.Print b64
    Dim http
        Set http = CreateObject("Msxml2.XMLHTTP")
        '本地
       ' url = "http://192.168.0.42:8590/save/GetProcess"
        url = "http://127.0.0.1:8834/PPAP"
        http.Open "POST", url, False
        http.setRequestHeader "Content-Type", "application/json"
        http.setRequestHeader "If-Modified-Since", "0"
        http.send (b64)

End Sub

文件转为base64

Public Function Encodefile(strPicPath As String) As String
    Const adTypeBinary = 1          ' Binary file is encoded
 
 
    Dim objXML
    Dim objDocElem
 

    Dim obJstream
 

    Set obJstream = CreateObject("ADODB.Stream")
    obJstream.Type = adTypeBinary
    obJstream.Open
    obJstream.LoadFromFile (strPicPath)
 


    Set objXML = CreateObject("MSXml2.DOMdocument")
    Set objDocElem = objXML.createElement("Base64Data")
    objDocElem.DataType = "bin.base64"
 

    objDocElem.nodeTypedValue = obJstream.Read()
 

    Encodefile = objDocElem.Text
 

    Set objXML = Nothing
    Set objDocElem = Nothing
    Set obJstream = Nothing
 
End Function

本文链接：https://blog.csdn.net/m0_49414114/article/details/125630614

原作者删帖不实内容删帖广告或垃圾文章投诉

智能推荐

OpenSSL基本介绍_openssl作用_江左周郎的博客-程序员秘密

OpenSSL的简介：OpenSSL：开放源代码的软件库包（SSL是Secure Sockets Layer（安全套接层协议）的缩写，可以在Internet上提供秘密性传输）作用：安全通信。应用范围：应用在互联网的网页服务器上影响：Netscape公司在推出第一个Web浏览器的同时，提出了SSL协议标准。已经成为Internet上保密通讯的工业标准。SSL是如...

使用gcc编译运行Hello World_gcc 编译 hellow world_叫大白的博客-程序员秘密

第一步：在桌面创建文件夹 hello,并在hello文件夹中创建helloworld.c文件并编辑。mkdir hellotouch helloworld.cvim helloworld.c第二步：在helloworld.c文件中写入代码#include <stdio.h>int main(){ printf("Hello World!"); return 0}...

永远的优客李林——Just for you _ravehe的博客-程序员秘密

失而复得的优客李林——Just for you 今天的天气很好，阳光略微有些刺眼。很久没逛街的我信步在三里河，像查户口一样巡视每一家还看得过去的店铺。在万方的音像柜，我贴近每一个彩色的小方盒子，那样子很象是鼹鼠。通常我只有在书柜和音像柜前才会如此委琐。对于流行歌曲，我一直很坚定地喜欢某些人的某些作品。如果不是我的偶像，我也许不妨一听，但很难得去收藏。所以我的目标总是非常明确。

最火特效软件手机版怎么制作飞天特效腾云驾雾特效视频？_腾云架雾怎么做视频_特效行者的博客-程序员秘密

最火特效软件手机版怎么制作飞天特效腾云驾雾特效视频？飞天特效、腾云驾雾特效、御剑飞行、隐身特效、穿墙特效等等特效视频我们在抖音、快手热门视频里面是不是经常看到，那么这些特效视频用手机软件怎么制作呢？今天我们就来学习如何用手机软件做出来最火的特效视频，让我们自己也火一把。抖音、快手热门上的特效视频，用手机软件是可以制作的。这个技术在以前是没有的，最近刚兴起。制作特效视频需要的一部手机，这是最基本的...

密钥密钥是一种参数_optimistic i的博客-程序员秘密

华为鸿蒙系统物联网,华为鸿蒙2.0物联网系统，为物联网生的系统_三山卡夫卡的博客-程序员秘密

如果说是否有一个专门用于物联系统，鸿蒙物联网系统就是这样的一个系统。现在已经出到2.0版本了，非常值得期待！一般提起分布式系统，都是在做系统功能的拆分，以减轻单一节点的负担，比如笔者所在的金融业，之前核心系统都要使用 IBM、Orcale 的大型机，但是分布式改造之前使用普通的 PC 服务器就可以了，不过鸿蒙与这些分布式架构不同，它不是在做拆分，而是在做整合。在之前物联网的架构方案，都是纵向的云端...