Private VorButton_Click (ByVal Absender als System.Object, ByVal e als System.EventArgs) behandelt Button.Click
Wenn OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK dann
System.Windows.Forms.Application.DoEvents ()
Button.Enabled = falsch
Schwaches CurrentOffSet als lang = 0
Schwaches ChunkSize = CInt (txtSize.Text) * 1024
Schwaches objFileInfo als neues IO.FileInfo (OpenFileDialog1.FileName)
Schwaches lngFileLength = objFileInfo.Length
Schwaches strFileName = objFileInfo.Name
Schwaches StartTime = jetzt
Using objStreamReader = neues IO.StreamReader (OpenFileDialog1.FileName)
Using objBinaryReader = neues IO.BinaryReader (objStreamReader.BaseStream)
Schwaches lngOffSet = 0L
Während lngOffSet < lngFileLength
Wenn lngOffSet + ChunkSize > lngFileLength dann
ChunkSize = CInt (lngFileLength - lngOffSet)
Beenden wenn
Puffer = objBinaryReader.ReadBytes (ChunkSize) verdunkeln
objService.UploadFile („UploadedFiles \“ u. strFileName, Puffer, lngOffSet)
lngOffSet += ChunkSize
Beenden während
objBinaryReader.Close ()
objStreamReader.Close ()
Using beenden
Using beenden
Button.Enabled = richten aus
Beenden wenn
Unterseeboot beenden
|