vb.net udpclient 发送大文件循环问题'缓冲区长度
Const BufLen As Integer=800
'包发送间隔
Const Interval As Integer=62
'缓冲区
Dim buf As Byte()=Nothing
'远程(目的)网络端点
Dim remoteep As IPEndPoint=Nothing
'如果你已将s定义为类的成员变量(实例或共享) , 注释掉下面这句
Dim s As UdpClient=Nothing
Dim willread As Integer
Try
buf=New Byte(BufLen-1) {}
s=New UdpClient()
' TextBox1.Text包含远程(目的)主机的IP地址
' TextBox2.Text包含远程(目的)主机的端口号
remoteep=New IPEndPoint(IPAddress.Parse(Trim(TextBox1.Text)),CInt(TextBox2.Text))
' Label2.Text包含要发送的文件的路径
Using fs As New FileStream(Label2.Text,FileMode.Open,FileAccess.Read)
While fs.Positionfs.Length
willread=BufLen
If fs.Length-fs.PositionBufLen Then
willread=CInt(fs.Length-fs.Position)
End If
fs.Read(buf,0,willread)
s.Send(buf,willread,remoteep)
Thread.Sleep(Interval)
End While
【vb.net发送文件 vbnet sender】 End Using
Catch ex As Exception
MsgBox(ex.ToString())
Finally
If s IsNot Nothing Then
s.Close()
End If
End Try
求大神指点 vb.net 怎么发送大文件 我用 UdpClient 的Send只能发送5000字节以下的下载vb.net发送文件,直接通过url读取文件vb.net发送文件,然后Response.OutputStream.Write()数据
下面提供个下载的静态方法vb.net发送文件,是C#的vb.net发送文件,供参考:
/// summary
/// 下载文件
/// /summary
/// param name="fileName"下载的文件名称(包括扩展名)/param
/// param name="filePath"下载文件的绝对路径/param
public static void DownFile(string fileName, string filePath)
{
//打开要下载的文件vb.net发送文件,并把该文件存放在FileStream中
System.IO.FileStream Reader = System.IO.File.OpenRead(filePath);
//文件传送的剩余字节数:初始值为文件的总大小
long Length = Reader.Length;
HttpContext.Current.Response.Buffer = false;
HttpContext.Current.Response.AddHeader("Connection", "Keep-Alive");
HttpContext.Current.Response.ContentType = "application/octet-stream";
HttpContext.Current.Response.Charset = "utf-8";
HttpContext.Current.Response.AddHeader("Content-Disposition", "attachment; filename="System.Web.HttpUtility.UrlEncode(fileName));
HttpContext.Current.Response.AddHeader("Content-Length", Length.ToString());
byte[] Buffer = new Byte[10000];//存放欲发送数据的缓冲区
int ByteToRead; //每次实际读取的字节数
while (Length0)
{
//剩余字节数不为零,继续传送
if (HttpContext.Current.Response.IsClientConnected)
{
//客户端浏览器还打开着,继续传送
ByteToRead = Reader.Read(Buffer, 0, 10000);//往缓冲区读入数据
HttpContext.Current.Response.OutputStream.Write(Buffer, 0, ByteToRead);
//把缓冲区的数据写入客户端浏览器
HttpContext.Current.Response.Flush(); //立即写入客户端
Length -= ByteToRead;//剩余字节数减少}
else
{
//客户端浏览器已经断开,阻止继续循环
Length = -1;
}
}//关闭该文件
Reader.Close();
}
VB.net的作品如果完成要发给别人用的话,要发哪些文件给别人就可以啦只需要发应用程序就行了, 就是后缀名为.exe的.....其他东西都不用发的.
VB.NET通过别人给的wsdl文件,给对方传递文件接口,vb.net发送文件你只要引用他给vb.net发送文件你发vb.net发送文件的这个文件,再实现他给你的接口就行了 。
vb.net tcpip发送文件Using Txtreader As System.IO.TextReader = System.IO.File.OpenText("C:\1.txt")
Dim line As String = Txtreader.ReadLine()
Do Until line Is Nothing
If Trim(line)"" Then
For Each CM In Split(line, ",")
....
Next CM
End If : line = Txtreader.ReadLine()
Loop
End Using
vb.net怎么实现串口传输文件Imports System
Imports System.IO.Ports
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'获取计算机有效串口
Dim ports As String() = SerialPort.GetPortNames() '必须用命名空间 , 用SerialPort,获取计算机的有效串口
Dim port As String
For Each port In ports
portnamebox.Items.Add(port) '向combobox中添加项
Next port
'初始化界面
vb.net发送文件的介绍就聊到这里吧,感谢你花时间阅读本站内容 , 更多关于vbnet sender、vb.net发送文件的信息别忘了在本站进行查找喔 。
推荐阅读
- js点击变色刷新不变,js点击变色刷新不变色
- 战争之人即时战术游戏,战争之人最新版中文版下载
- 为什么电脑不认u盘上的图,u盘电脑上不识别
- java产生5随机数代码的简单介绍
- 固态硬盘怎么安装y450,固态硬盘怎么安装y450驱动
- net分布式事务框架jwt的简单介绍
- 钉钉直播对话筒的距离,钉钉直播话筒有杂音
- python里面插入函数 python怎么加入函数
- go语言int默认几字节,go语言的interface