Dim r As Row = Tables("table_3").addnew
Dim lst As New List(of String)
For Each fl As String In
If e.postvalues.ContainsKey("username") Then
r("单号") = e.postvalues("username").Tostring()
End If
Dim str1 As String = e.postvalues("password1")
For Each v As JToken In JArray.Parse(str1)
'Output.show(v)
v=v.tostring().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")
lst.Add("\" &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")
lst.Add("\" &dr("单号")& "\" & dr("单号") & ".jpg")
'r("图片") = "\" &dr("单号")& "\" & dr("单号") & ".jpg"
ftp1.Delete("/" & FileSys.GetName("123.jpg"))
End If
Next
dr.DataRow.Lines("图片") = lst
Next
e.writestring("111")
加好友 
发短信
Post By：2021/12/14 16:31:00 [只看该作者]
此主题相关图片如下：1639473975(1).jpg