我理解你
創新互聯建站-云計算及IDC服務提供商,涵蓋公有云、IDC機房租用、德陽服務器托管、等保安全、私有云建設等企業級互聯網基礎服務,電話聯系:13518219792
我寫過圖片網絡傳輸的和你要求的一樣
為了不把圖片寫到硬盤 又從硬盤讀取
而直接保存圖片內存流 進行網絡傳輸
從網絡讀取的圖片byte數組轉成圖片代碼如下
Dim mStream As New IO.MemoryStream
mStream.Write(b, 0, b.length) '這里b就是你的一維數組了
Dim Img As New Bitmap(mStream)
mStream.Close()
mStream.Dispose()
下面是把圖片保存到一維數組的方法
Dim Stream As New IO.MemoryStream
im.Save(Stream, System.Drawing.Imaging.ImageFormat.Jpeg)
im = Nothing
Stream.Flush()
Dim b As Byte() = Stream.ToArray
Stream.Dispose()
winsock 發送圖片,就是發送文件嘛。
不過UDP協議每次最多只能發送8K,所以你要先讀取文件,建立以個byte()數組 然后第一次發送是從數組的0-8100這個范圍,下次再發送的時候將再從8101開始發送,長度仍未8100就可以了。用一個while 循環來判斷文件有沒有發送完成就行了。對于接收端,在接收的時候也是要用一個循環來寫文件,前提是你必須先把要發送的文件的長度告訴接收端。說的夠詳細了吧!
我正在用呀,沒有任何問題!你的設置可能有問題!
Private Sub Command4_Click()
If Combo1.Text = "" Then
MsgBox "請您輸入轉換格式!!", 48, "提示信息"
Exit Sub
ElseIf Text2.Text = "" Or Text3.Text = "" Then
MsgBox "請選擇轉換前和轉換后的文件路徑!!", 48, "提示信息"
Exit Sub
Else
Me.MousePointer = 11
Command4.Enabled = False
Dim i, j, w, h, w1, h1, k As Integer
w = Picture1.Width
h = Picture1.Height
w1 = w / 15
h1 = h / 15
Picture2.Width = w
Picture2.Height = h
Picture1.Scale (0, 0)-(w1, h1)
Picture2.Scale (0, 0)-(w1, h1)
For i = 1 To w1
For j = 1 To h1
Picture2.PSet (i, j), Picture1.Point(i, j)
Next j
Next i
Picture2.Picture = Picture2.Image
SavePicture Picture2.Image, Text3.Text "." Mid(Combo1.Text, 3, Len(Combo1.Text) - 1)
MsgBox "格式轉換成功完成!!", 64, "提示信息"
Command4.Enabled = True
Me.MousePointer = 0
End If
End Sub
Private Sub Command2_Click()
On Error GoTo x
DHK1.Filter = "所有文件(*.*)|*.*"
DHK1.ShowOpen
Text2.Text = DHK1.FileName
Image1.Picture = LoadPicture(Text2.Text)
Picture1.Picture = Image1.Picture
Exit Sub
x:
MsgBox "無效圖片!", 64, "提示信息"
End Sub
Private Sub Command3_Click()
DHK1.Filter = "所有文件(*.*)|*.*"
DHK1.ShowSave
Text3.Text = DHK1.FileName
End Sub
DHK1是CommonDialog控件
當前題目:vb.net存圖.jpg vb加載圖片路徑
網站鏈接:http://vcdvsql.cn/article44/ddcchee.html
成都網站建設公司_創新互聯,為您提供建站公司、營銷型網站建設、軟件開發、網站營銷、網站內鏈、面包屑導航
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯