영욱닷컴(http://youngwook.com)

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 ()
    {


    }

    [WebMethod]
    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