Private Okręt podwodny Button_Click (ByVal nadawca Jako System.Object, ByVal e Jako System.EventArgs) Obchodzić się Button.Click
Jeżeli OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Wtedy
System.Windows.Forms.Application.DoEvents ()
Button.Enabled = Fałszywy
Ciemnawy CurrentOffSet Długo = (0)
Ciemnawy ChunkSize = CInt (txtSize.Text) * 1024
Ciemnawy objFileInfo Jako Nowy IO.FileInfo (OpenFileDialog1.FileName)
Ciemnawy lngFileLength = objFileInfo.Length
Ciemnawy strFileName = objFileInfo.Name
Ciemnawy StartTime = Teraz
Using objStreamReader = Nowy IO.StreamReader (OpenFileDialog1.FileName)
Using objBinaryReader = Nowy IO.BinaryReader (objStreamReader.BaseStream)
Ciemnawy lngOffSet = 0L
Podczas Gdy lngOffSet < lngFileLength
Jeżeli lngOffSet + ChunkSize > lngFileLength Wtedy
ChunkSize = CInt (lngFileLength - lngOffSet)
Kończyć Jeżeli
Ćmić Odbojnica = objBinaryReader.ReadBytes (ChunkSize)
objService.UploadFile ("UploadedFiles \" & strFileName, Odbojnica, lngOffSet)
lngOffSet += ChunkSize
Kończyć Podczas Gdy
objBinaryReader.Close ()
objStreamReader.Close ()
Kończyć Using
Kończyć Using
Button.Enabled = Prawdziwy
Kończyć Jeżeli
Kończyć Okręt podwodny
|