远程监控视频的传输优化VB.NET
2009-04-13 11:35
405 查看
Private sckConnect As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
Private RemoteIp As IPEndPoint
Private thd As Thread
Private blnExt As Boolean = True
Private _Quality As Int16 = 50
Public WriteOnly Property Quality() As Int16 '这个函数表示服务器要求的图片质量
Set(ByVal value As Int16)
_Quality = value
End Set
End Property
Private Sub run()
Dim byt() As Byte
Dim stream As MemoryStream
Dim bmp As Bitmap
While blnExt
Try
bmp = getGrcToBmp() '这是获取图片
stream = New MemoryStream
Compress(bmp, stream, _Quality) '这里对图片进行压缩函数
byt = stream.ToArray
sckConnect.Send(byt, byt.Length, SocketFlags.None)
byt.Initialize()
stream = Nothing
Thread.Sleep(30) '30毫秒,也就是1秒中传送33次图片
Catch ex As Exception
Call Ext()
End Try
End While
End Sub
Public Sub Send(ByVal ip As String, ByVal port As Integer) '服务器的IP和Port
Try
RemoteIp = New IPEndPoint(IPAddress.Parse(ip), port)
sckConnect.SendTimeOut = 100
sckConnect.Connect(RemoteIp)
If sckConnect.Connected Then
thd = New Thread(AddressOf run)
thd.Start()
End If
Catch ex As Exception
MsgBox(ex.Message)
Exit Sub
End Try
End Sub
Public Sub Ext()
Try
blnExt = False
thd = Nothing
sckConnect.Disconnect(True)
sckConnect.Close()
Catch ex As Exception
End Try
End Sub
Private RemoteIp As IPEndPoint
Private thd As Thread
Private blnExt As Boolean = True
Private _Quality As Int16 = 50
Public WriteOnly Property Quality() As Int16 '这个函数表示服务器要求的图片质量
Set(ByVal value As Int16)
_Quality = value
End Set
End Property
Private Sub run()
Dim byt() As Byte
Dim stream As MemoryStream
Dim bmp As Bitmap
While blnExt
Try
bmp = getGrcToBmp() '这是获取图片
stream = New MemoryStream
Compress(bmp, stream, _Quality) '这里对图片进行压缩函数
byt = stream.ToArray
sckConnect.Send(byt, byt.Length, SocketFlags.None)
byt.Initialize()
stream = Nothing
Thread.Sleep(30) '30毫秒,也就是1秒中传送33次图片
Catch ex As Exception
Call Ext()
End Try
End While
End Sub
Public Sub Send(ByVal ip As String, ByVal port As Integer) '服务器的IP和Port
Try
RemoteIp = New IPEndPoint(IPAddress.Parse(ip), port)
sckConnect.SendTimeOut = 100
sckConnect.Connect(RemoteIp)
If sckConnect.Connected Then
thd = New Thread(AddressOf run)
thd.Start()
End If
Catch ex As Exception
MsgBox(ex.Message)
Exit Sub
End Try
End Sub
Public Sub Ext()
Try
blnExt = False
thd = Nothing
sckConnect.Disconnect(True)
sckConnect.Close()
Catch ex As Exception
End Try
End Sub
相关文章推荐
- NET 2.0远程传输数据集的优化方法
- GStreamer资料整理(包括摄像头采集,视频保存,远程监控,流媒体RTP传输)
- NET 2.0远程传输数据集的优化方法
- net 2.0远程传输数据集的优化方法
- .net 2.0远程传输数据集的优化方法(续)
- NET 2.0远程传输数据集的优化方法
- GStreamer资料整理(包括摄像头采集,视频保存,远程监控,流媒体RTP传输)
- GStreamer资料整理(包括摄像头采集,视频保存,远程监控,流媒体RTP传输)
- 摄像头远程监控的Vb.net实现方法(转)
- VB.NET实现远程视频监视
- NET 2.0远程传输数据集的优化方法
- 基于v4l2 ffmpeg x264的视频远程监控(附上编译好的库文件)
- VB.NET视频总结
- GStreamer资料(摄像头采集,视频保存,远程监控)DVR
- 【VB.NET】视频总结
- LoadRunner监控远程机器Windows资源,提示“net use failed” 解决办法
- 在vb.net中运用多线程实现远程数据收集
- [VB.NET]vb.net如何捕捉摄相头的视频
- VB.Net视频总结
- .NET 2.0远程传输数据集的优化方法