Dim r As Row = Tables("table_3").addnew
If e.postvalues.ContainsKey("username") Then
r("单号") = e.postvalues("username").Tostring()
End If
Dim str1 As String = e.postvalues("image")
For Each v As JToken In JArray.Parse(str1)
'Output.show(v)
v=v.replace("data:image/jpeg;base64,","")
'v=v.replace("data:image/jpeg;base64,","")
Dim bs As Byte() = Convert.FromBase64String(v)
Dim stream As System.IO.Stream = New System.IO.MemoryStream(bs)
Dim bmp As System.Drawing.Bitmap = New System.Drawing.Bitmap(stream)
bmp.save("c:\123.jpg")
Dim proc As new Process
Dim ftp1 As New FtpClient
Dim i As Integer = 0
Dim dr As Row = Tables("Table_3").Current
ftp1.host="172.16.120.41"
ftp1.Account ="admin"
ftp1.password ="qw123"
If ftp1.MakeDir(dr("单号") & "\") Then
Else
End If
If ftp1.Upload("c:\123.jpg") = True Then
'msgbox("成功")
Else
'msgbox("不成功")
End If
If ftp1.FileExists("\" &dr("单号")& "\" & dr("单号") & ".jpg") Then
For i = 1 To 999
If ftp1.FileExists("\" &dr("单号")& "\" & dr("单号")& "("& i &").jpg")=False Then
Exit For
End If
Next
End If
If i > 0 Then
ftp1.Rename(FileSys.GetName("c:\123.jpg"),"\" &dr("单号") & "\" & dr("单号") &"("& i &").jpg")
r("图片") = "\" &dr("单号") & "\" & dr("单号") &"("& i &").jpg"
ftp1.Delete("/" & FileSys.GetName("123.jpg"))
Else
ftp1.Rename(FileSys.GetName("c:\123.jpg"),"\" &dr("单号") & "\" & dr("单号") &".jpg")
r("图片") = "\" &dr("单号")& "\" & dr("单号") & ".jpg"
ftp1.Delete("/" & FileSys.GetName("123.jpg"))
End If
Next
老师我想问一下这个，多张图片，应该怎么写呢
加好友 
发短信
Post By：2021/12/14 11:57:00 [只看该作者]
