1. 通过%NetRequest类获得图片

2. 通过下面方法得到图片的Base64流

ClassMethod Img2Base64(imgDataStream) As %Stream.GlobalCharacter{
       Set sgc = ##class(%Stream.GlobalCharacter).%New()
    set byteList = imgDataStream.Read(12288)
    while(byteList'=""){ 
         set baseStr = ##class(%SYSTEM.Encryption).Base64Encode(byteList)do sgc.Write(baseStr)
       set byteList = ""         
       set byteList = img.Read(12288)
    }     
    do imgDataStream.%Close() 
    set imgDataStream=""  
    quit sgc}