VB.NET用子線程進行大批量數(shù)據(jù)傳輸，UI卡死，請高手指教。代碼如下

試試這個怎么樣，添加在子進程里面，就加在你批量傳輸代碼里的每一個傳輸后面，也就是大批量中的每傳輸一個數(shù)據(jù)就暫停一下，而不是每一個大批量才暫停一下

改則網(wǎng)站制作公司哪家好，找創(chuàng)新互聯(lián)公司！從網(wǎng)頁設(shè)計、網(wǎng)站建設(shè)、微信開發(fā)、APP開發(fā)、成都響應式網(wǎng)站建設(shè)等網(wǎng)站項目制作，到程序開發(fā)，運營維護。創(chuàng)新互聯(lián)公司于2013年成立到現(xiàn)在10年的時間，我們擁有了豐富的建站經(jīng)驗和運維經(jīng)驗，來保證我們的工作的順利進行。專注于網(wǎng)站建設(shè)就選創(chuàng)新互聯(lián)公司。

System.Threading.Thread.Sleep(10) '讓它走慢一點

vb.net如何上傳文件

My.Computer.Network.UploadFile

比如上傳到FTP

My.Computer.Network.UploadFile("d:\1.txt", "“, "FTP賬號", "FTP密碼", True, 100)

新手路過。

求大神指點 vb.net 怎么發(fā)送大文件 我用 UdpClient 的Send只能發(fā)送5000字節(jié)以下的

下載，直接通過url讀取文件，然后Response.OutputStream.Write()數(shù)據(jù)

下面提供個下載的靜態(tài)方法，是C#的，供參考：

///?summary

///?下載文件

///?/summary

///?param?name="fileName"下載的文件名稱（包括擴展名）/param

///?param?name="filePath"下載文件的絕對路徑/param

public?static?void?DownFile(string?fileName,?string?filePath)

{

//打開要下載的文件，并把該文件存放在FileStream中????????????????

System.IO.FileStream?Reader?=?System.IO.File.OpenRead(filePath);

//文件傳送的剩余字節(jié)數(shù)：初始值為文件的總大小????????????????

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];//存放欲發(fā)送數(shù)據(jù)的緩沖區(qū)????????????????

int?ByteToRead;?//每次實際讀取的字節(jié)數(shù)???????????????

while?(Length??0)

{????

//剩余字節(jié)數(shù)不為零，繼續(xù)傳送????????????????????

if?(HttpContext.Current.Response.IsClientConnected)

{????

//客戶端瀏覽器還打開著，繼續(xù)傳送????????????????????????

ByteToRead?=?Reader.Read(Buffer,?0,?10000);???????????????????//往緩沖區(qū)讀入數(shù)據(jù)????????????????????????

HttpContext.Current.Response.OutputStream.Write(Buffer,?0,?ByteToRead);????

//把緩沖區(qū)的數(shù)據(jù)寫入客戶端瀏覽器????????????????????????

HttpContext.Current.Response.Flush();?//立即寫入客戶端????????????????????????

Length?-=?ByteToRead;//剩余字節(jié)數(shù)減少????????????????????????????}

else

{?????????????????????????

//客戶端瀏覽器已經(jīng)斷開，阻止繼續(xù)循環(huán)????????????????????????

Length?=?-1;

}

}????????????????//關(guān)閉該文件???????????????

Reader.Close();

}

vb.net udpclient 發(fā)送大文件循環(huán)問題

'緩沖區(qū)長度

Const BufLen As Integer=800

'包發(fā)送間隔

Const Interval As Integer=62

'緩沖區(qū)

Dim buf As Byte()=Nothing

'遠程（目的）網(wǎng)絡端點

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包含要發(fā)送的文件的路徑

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

End Using

Catch ex As Exception

MsgBox(ex.ToString())

Finally

If s IsNot Nothing Then

s.Close()

End If

End Try

vb.net怎么實現(xiàn)串口傳輸文件

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傳輸大文件,vb 文件傳輸
網(wǎng)站URL：http://chinadenli.net/article33/dsgggps.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站策劃、小程序開發(fā)、外貿(mào)網(wǎng)站建設(shè)、網(wǎng)站建設(shè)、商城網(wǎng)站、虛擬主機

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)