Imports System.IO
Import-System
Importe System.Net
Teilweise allgemeine Kategorie MainPage
Übernimmt UserControl
Allgemeine Vorneue ()
InitializeComponent ()
Enden-Unterseeboot
Privates VorUploadFile (ByVal Dateiname als Schnur-, ByValdaten als Strom)
Schwaches ub als neues UriBuilder („http://localhost:3840/receiver.ashx ")
ub. Frage = String.Format („filename= {0}“, Dateiname)
Schwaches c als neues web client
c.OpenWriteCompleted += Funktion (Absender, e) tun
PushData (Daten, e.Result)
e.Result.Close ()
Daten. Schließen ()
Unterseeboot beenden
c.OpenWriteAsync (ub. Uri)
Enden-Unterseeboot
Privates VorPushData (ByVal, das als Strom eingegeben wurde, ByVal gab als Strom) aus
Schwacher Puffer als Byte () = neues Byte (4095) {}
Schwaches bytesRead als ganze Zahl
Während (InlineAssignHelper (bytesRead, Eingang. Gelesen (Puffer, 0, Puffer. Länge))) <> 0
Ausgang. Schreiben (Puffer, 0, bytesRead)
Beenden während
Unterseeboot beenden
Kategorie beenden
|