建站
咨詢
售后
建站咨詢
新聞中心
請(qǐng)問(wèn)VB.net下如何使用winsock udp協(xié)議發(fā)送圖片 和接收?qǐng)D片并存為jpg格式
winsock 發(fā)送圖片，就是發(fā)送文件嘛。
創(chuàng)新互聯(lián)致力于成都網(wǎng)站制作、成都做網(wǎng)站,成都網(wǎng)站設(shè)計(jì),集團(tuán)網(wǎng)站建設(shè)等服務(wù)標(biāo)準(zhǔn)化，推過(guò)標(biāo)準(zhǔn)化降低中小企業(yè)的建站的成本，并持續(xù)提升建站的定制化服務(wù)水平進(jìn)行質(zhì)量交付，讓企業(yè)網(wǎng)站從市場(chǎng)競(jìng)爭(zhēng)中脫穎而出。 選擇創(chuàng)新互聯(lián)，就選擇了安全、穩(wěn)定、美觀的網(wǎng)站建設(shè)服務(wù)！
不過(guò)UDP協(xié)議每次最多只能發(fā)送8K，所以你要先讀取文件，建立以個(gè)byte（）數(shù)組 然后第一次發(fā)送是從數(shù)組的0-8100這個(gè)范圍，下次再發(fā)送的時(shí)候?qū)⒃購(gòu)?101開(kāi)始發(fā)送，長(zhǎng)度仍未8100就可以了。用一個(gè)while 循環(huán)來(lái)判斷文件有沒(méi)有發(fā)送完成就行了。對(duì)于接收端，在接收的時(shí)候也是要用一個(gè)循環(huán)來(lái)寫(xiě)文件，前提是你必須先把要發(fā)送的文件的長(zhǎng)度告訴接收端。說(shuō)的夠詳細(xì)了吧！
請(qǐng)問(wèn)VB.net中如何保存BMP/jpg圖像
我理解你
我寫(xiě)過(guò)圖片網(wǎng)絡(luò)傳輸?shù)暮湍阋蟮囊粯?/p>
為了不把圖片寫(xiě)到硬盤(pán) 又從硬盤(pán)讀取
而直接保存圖片內(nèi)存流 進(jìn)行網(wǎng)絡(luò)傳輸
從網(wǎng)絡(luò)讀取的圖片byte數(shù)組轉(zhuǎn)成圖片代碼如下
Dim mStream As New IO.MemoryStream
mStream.Write(b, 0, b.length) '這里b就是你的一維數(shù)組了
Dim Img As New Bitmap(mStream)
mStream.Close()
mStream.Dispose()
下面是把圖片保存到一維數(shù)組的方法
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()
VB將圖片保存為jpg格式
我正在用呀，沒(méi)有任何問(wèn)題！你的設(shè)置可能有問(wèn)題！
Private Sub Command4_Click()
If Combo1.Text = "" Then
MsgBox "請(qǐng)您輸入轉(zhuǎn)換格式!!", 48, "提示信息"
Exit Sub
ElseIf Text2.Text = "" Or Text3.Text = "" Then
MsgBox "請(qǐng)選擇轉(zhuǎn)換前和轉(zhuǎn)換后的文件路徑!!", 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 "格式轉(zhuǎn)換成功完成!!", 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 "無(wú)效圖片！", 64, "提示信息"
End Sub
Private Sub Command3_Click()
DHK1.Filter = "所有文件(*.*)|*.*"
DHK1.ShowSave
Text3.Text = DHK1.FileName
End Sub
DHK1是CommonDialog控件
當(dāng)前題目：vb.net生成jpg net vb
文章出自：http://fisionsoft.com.cn/article/doocddp.html
