File Upload功能

private void OnUpload(object sender, EventArgs e)
{
// Rehide the status canvas with each request. 
StatusCanvas.Visibility = Visibility.Hidden;
// Prompt the user to select an image file. 
OpenFileDialog ofd = new OpenFileDialog();
ofd.EnableMultipleSelection = false;
ofd.Filter = "Image files (*.jpg;*.png)|*.jpg;*.png";
ofd.Title = "Select an image to upload";
if (ofd.ShowDialog() == DialogResult.OK)
{
// Read the contents of the file. 
string fileName = ofd.SelectedFile.Name;
Stream f = ofd.SelectedFile.OpenRead();
byte[] fileBytes = new byte[f.Length];
int byteCount = f.Read(fileBytes, 0, (int)f.Length);
string fileContents = Convert.ToBase64String(fileBytes);
// Post the file contents to the web service. 
UploadImage(fileName, fileContents);
// Print the status of the upload. 
ResponseMessage.Foreground = new SolidColorBrush(Color.FromRgb(0, 0, 255));
StatusCanvas.Visibility = Visibility.Visible;
//Display the uploaded image. 
UploadedImage.Source = new Uri("GetImage.aspx?fileName=" + fileName, UriKind.Relative);
}
} 

Private Sub OnUpload(ByVal o As Object, ByVal e As EventArgs)
' Rehide the status canvas with each request. 
StatusCanvas.Visibility = Visibility.Hidden
' Prompt the user to select an image file. 
Dim ofd As New OpenFileDialog()
ofd.EnableMultipleSelection = False
ofd.Filter = "Image files (*.jpg;*.png)|*.jpg;*.png"
ofd.Title = "Select an image to upload"
If ofd.ShowDialog() = DialogResult.OK Then
' Read the contents of the file. 
Dim fileName As String = ofd.SelectedFile.Name
Dim f As Stream = ofd.SelectedFile.OpenRead()
Dim fileBytes(f.Length) As Byte
Dim byteCount As Integer = f.Read(fileBytes, 0, CInt(f.Length))
Dim fileContents As String = Convert.ToBase64String(fileBytes)
' Post the file contents to the web service. 
UploadImage(fileName, fileContents)
' Print the status of the upload. 
ResponseMessage.Foreground = New SolidColorBrush(Color.FromRgb(0, 0, 255))
StatusCanvas.Visibility = Visibility.Visible
'Display the uploaded image. 
UploadedImage.Source = _
New Uri("GetImage.aspx?fileName=" & fileName, UriKind.Relative)
End If
End Sub

public void Page_Loaded(object o, EventArgs e)
{
// Required to initialize variables 
InitializeComponent();
StatusCanvas.Visibility = Visibility.Hidden;
UploadButton.MouseLeftButtonDown += OnUpload;
}

Public Sub Page_Loaded(ByVal o As Object, ByVal e As EventArgs)
' Required to initialize variables 
InitializeComponent()
StatusCanvas.Visibility = Visibility.Hidden
AddHandler UploadButton.MouseLeftButtonDown, AddressOf OnUpload
End Sub

using System;
using System.Web;
using System.Web.Services;
using System.Web.Services.Protocols;
using System.Web.Caching;
using System.IO;
[WebService(Namespace = "http://tempuri.org/")]
public class SampleUploadServiceCS : System.Web.Services.WebService
{
public SampleUploadServiceCS ()
{
}

public void UploadImage(string fileName, string fileContents)
{
string imagePath = fileName;
HttpContext.Current.Cache.Add(fileName, fileContents,
null, DateTime.Now.AddSeconds(30), TimeSpan.Zero,
CacheItemPriority.High, null);
}
}

Imports System
Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.Web.Caching
Imports System.IO
<WebService(Namespace:="http:'tempuri.org/")> _
Public Class SampleUploadServiceVB
Inherits WebService
Public Sub New()
End Sub
<WebMethod()> _
Public Sub UploadImage(ByVal fileName As String, ByVal fileContents As String)
Dim imagePath As String = fileName
HttpContext.Current.Cache.Add(fileName, fileContents, _
Nothing, DateTime.Now.AddSeconds(30), TimeSpan.Zero, _
CacheItemPriority.High, Nothing)
End Sub
End Class

<%@ Page Language="VB" AutoEventWireup="true" CodeFile="GetImage.aspx.vb" Inherits="GetImage" %>

using System;
using System.Data;
using System.Configuration;
using System.Collections;
using System.Web;
using System.Web.Security;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
using System.Web.UI.HtmlControls;
using System.IO;
using System.Text;
public partial class GetImage : System.Web.UI.Page
{
protected void Page_Load(object sender, EventArgs e)
{
string fileName = Request.QueryString["fileName"];
string[] tmp = fileName.Split('.');
string extension = tmp[tmp.Length-1];
switch (extension)
{
case "jpg":
Response.ContentType = "image/jpeg";
break;
case "png":
Response.ContentType = "image/png";
break;
default:
Response.ContentType = "image/jpg";
break;
}
string fileContents = (string)Cache[fileName];
Response.BinaryWrite(Convert.FromBase64String(fileContents));
}
}

Imports System
Imports System.Data
Imports System.Configuration
Imports System.Collections
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.HtmlControls
Imports System.IO
Imports System.Text
Partial Public Class GetImage
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
Dim fileName As String = Request.QueryString("fileName")
Dim tmp As String() = fileName.Split(".")
Dim extension As String = tmp(tmp.Length - 1)
Select Case extension
Case "jpg"
Response.ContentType = "image/jpeg"
Case "png"
Response.ContentType = "image/png"
Case Else
Response.ContentType = "image/jpg"
End Select
Dim fileContents As String = Cache(fileName)
Response.BinaryWrite(Convert.FromBase64String(fileContents))
End Sub
End Class

<Canvas x:Name="parentCanvas"
xmlns="http://schemas.microsoft.com/client/2007"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
Loaded="Page_Loaded"
x:Class="ImageUploadCS.Page;assembly=ClientBin/ImageUploadCS.dll"
Width="800"
Height="600"
Background="White"
>
<Canvas x:Name="ButtonCanvas" Background="Navy">
<TextBlock x:Name="UploadButton" FontFamily="Verdana"
Width="400" Height="30" Text="Click Here to upload an image." />
</Canvas>
<Canvas x:Name="StatusCanvas" Background="Green">
<TextBlock x:Name="ResponseMessage" FontFamily="Verdana"
Foreground="Green" Canvas.Top="30"
Width="400" Height="30" Text="Image Uploaded." />
</Canvas>
<Image x:Name="UploadedImage" Canvas.Top="60" />
</Canvas>

<Canvas x:Name="parentCanvas"
xmlns="http://schemas.microsoft.com/client/2007"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
Loaded="Page_Loaded"
x:Class="ImageUploadVB.Page;assembly=ClientBin/ImageUploadVB.dll"
Width="800"
Height="600"
Background="White"
>
<Canvas x:Name="ButtonCanvas" Background="Navy">
<TextBlock x:Name="UploadButton" FontFamily="Verdana"
Width="400" Height="30" Text="Click Here to upload an image." />
</Canvas>
<Canvas x:Name="StatusCanvas" Background="Green">
<TextBlock x:Name="ResponseMessage" FontFamily="Verdana"
Foreground="Green" Canvas.Top="30"
Width="400" Height="30" Text="Image Uploaded." />
</Canvas>
<Image x:Name="UploadedImage" Canvas.Top="60" />
</Canvas>

using System;
using System.Linq;
using System.Xml;
using System.Windows;
using System.Windows.Controls;
using System.Windows.Documents;
using System.Windows.Ink;
using System.Windows.Input;
using System.Windows.Media;
using System.Windows.Media.Animation;
using System.Windows.Shapes;
using System.Text;
using System.IO;
using System.Windows.Browser;
using System.Windows.Browser.Net;
using System.Net;
namespace ImageUploadCS
{
public partial class Page : Canvas
{
public void Page_Loaded(object o, EventArgs e)
{
// Required to initialize variables 
InitializeComponent();
StatusCanvas.Visibility = Visibility.Hidden;
UploadButton.MouseLeftButtonDown += OnUpload;
}
private void UploadImage(string fileName, string fileContents)
{
// Create an HTTP request with the path to the web service
// to post the image file to. 
Uri uploadService = new Uri("Service.asmx/UploadImage", UriKind.Relative);
BrowserHttpWebRequest _request = new BrowserHttpWebRequest(uploadService);
_request.Method = "POST";
_request.ContentType = "application/x-www-form-urlencoded";
// Add the file contents to the body of the HTTP request. 
string formBody = "fileName=" + HttpUtility.UrlEncode(fileName) + "&" +
"fileContents=" + HttpUtility.UrlEncode(fileContents);
UTF8Encoding encoding = new UTF8Encoding();
byte[] formBytes = encoding.GetBytes(formBody);
Stream body = _request.GetRequestStream();
body.Write(formBytes, 0, formBytes.Length);
// Send the HTTP request. 
HttpWebResponse response = (HttpWebResponse)_request.GetResponse();
body.Close();
}
private void OnUpload(object sender, EventArgs e)
{
// Rehide the status canvas with each request. 
StatusCanvas.Visibility = Visibility.Hidden;
// Prompt the user to select an image file. 
OpenFileDialog ofd = new OpenFileDialog();
ofd.EnableMultipleSelection = false;
ofd.Filter = "Image files (*.jpg;*.png)|*.jpg;*.png";
ofd.Title = "Select an image to upload";
if (ofd.ShowDialog() == DialogResult.OK)
{
// Read the contents of the file. 
string fileName = ofd.SelectedFile.Name;
Stream f = ofd.SelectedFile.OpenRead();
byte[] fileBytes = new byte[f.Length];
int byteCount = f.Read(fileBytes, 0, (int)f.Length);
string fileContents = Convert.ToBase64String(fileBytes);
// Post the file contents to the web service. 
UploadImage(fileName, fileContents);
// Print the status of the upload. 
ResponseMessage.Foreground = new SolidColorBrush(Color.FromRgb(0, 0, 255));
StatusCanvas.Visibility = Visibility.Visible;
//Display the uploaded image. 
UploadedImage.Source = new Uri("GetImage.aspx?fileName=" + fileName, UriKind.Relative);
}
}
}
}

Imports System
Imports System.Linq
Imports System.Xml
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Documents
Imports System.Windows.Ink
Imports System.Windows.Input
Imports System.Windows.Media
Imports System.Windows.Media.Animation
Imports System.Windows.Shapes
Imports System.Text
Imports System.IO
Imports System.Windows.Browser
Imports System.Windows.Browser.Net
Imports System.Net
Partial Public Class Page
Inherits Canvas
Public Sub Page_Loaded(ByVal o As Object, ByVal e As EventArgs)
' Required to initialize variables 
InitializeComponent()
StatusCanvas.Visibility = Visibility.Hidden
AddHandler UploadButton.MouseLeftButtonDown, AddressOf OnUpload
End Sub
Private Sub UploadImage(ByVal fileName As String, ByVal fileContents As String)
' Create an HTTP request with the path to the web service 
' to post the image file to. 
Dim uploadService As New Uri("Service.asmx/UploadImage", UriKind.Relative)
Dim _request As New BrowserHttpWebRequest(uploadService)
_request.Method = "POST"
_request.ContentType = "application/x-www-form-urlencoded"
' Add the file contents to the body of the HTTP request. 
Dim formBody As String = "fileName=" & HttpUtility.UrlEncode(fileName) & "&" & _
"fileContents=" & HttpUtility.UrlEncode(fileContents)
Dim encoding As New UTF8Encoding()
Dim formBytes As Byte() = Encoding.GetBytes(formBody)
Dim body As Stream = _request.GetRequestStream()
body.Write(formBytes, 0, formBytes.Length)
' Send the HTTP request. 
Dim response As HttpWebResponse = CType(_request.GetResponse(), HttpWebResponse)
body.Close()
End Sub
Private Sub OnUpload(ByVal o As Object, ByVal e As EventArgs)
' Rehide the status canvas with each request. 
StatusCanvas.Visibility = Visibility.Hidden
' Prompt the user to select an image file. 
Dim ofd As New OpenFileDialog()
ofd.EnableMultipleSelection = False
ofd.Filter = "Image files (*.jpg;*.png)|*.jpg;*.png"
ofd.Title = "Select an image to upload"
If ofd.ShowDialog() = DialogResult.OK Then
' Read the contents of the file. 
Dim fileName As String = ofd.SelectedFile.Name
Dim f As Stream = ofd.SelectedFile.OpenRead()
Dim fileBytes(f.Length) As Byte
Dim byteCount As Integer = f.Read(fileBytes, 0, CInt(f.Length))
Dim fileContents As String = Convert.ToBase64String(fileBytes)
' Post the file contents to the web service. 
UploadImage(fileName, fileContents)
' Print the status of the upload. 
ResponseMessage.Foreground = New SolidColorBrush(Color.FromRgb(0, 0, 255))
StatusCanvas.Visibility = Visibility.Visible
'Display the uploaded image. 
UploadedImage.Source = _
New Uri("GetImage.aspx?fileName=" & fileName, UriKind.Relative)
End If
End Sub
End Class