将图像从服务器传输到本地文件夹 Windows 应用商店应用

Question

这是我的情况：

• 我有一个可以访问服务器上文件的 Windows 服务

• 有权访问所述服务的 Windows 应用商店应用

• Windows 应用商店应用无权访问bitmap对象（仅bitmapimage

）

• 该服务可以访问bitmap但不能访问bitmapimage

• 该服务只能访问file.io

• Windows 应用商店应用只能访问Windows.Storage

我很难找到将所有图像从服务传递到 Windows 应用商店应用的方法，因为我找不到两者之间的共同点。

我尝试传输bitmap并将其转换为bitmapimage但后来我找不到将BitmapImage保存到特定文件夹的方法。

有什么想法可以让我走上正确的轨道，找到一个共同的物体来转移吗？

Answer 1

非常感谢ChicagoMike让我走上正轨。这是我是如何做到的

从服务转移到客户端的对象：

Imports System.IO
    Public Class PictureSender
        Public Property PictureBytes As Byte()
        Public Property PictureName As String
    End Class

调用其控制器的客户端上的代码（linq 和 For 循环在我的情况下很有用，因为我在各自的文件夹中有多种类型的图像）：

    Private Async Sub btnGetPictures_Click(sender As Object, e As RoutedEventArgs)
        ' Get the list of all categories of picture to go through all folders from local saves.
        Dim lstFolders As List(Of String) = (From p In Await ImageController.GetImageDetails Select p.Categorie).Distinct.ToList()
        For i = 0 To lstFolders.Count - 1
            PicturesController.GetPicturesServer(lstFolders(i))
        Next
    End Sub

客户端控制器中的代码：

    Public Async Sub GetPicturesServer(_folderName As String)
        Dim service As New ServiceReference1.Service1Client(ServiceReference1.Service1Client.EndpointConfiguration.BasicHttpBinding_IService1)
        Dim rcv = Await service.SelectAllPicturesAsync(_folderName)
        ' Get the folder
        Dim folder = ApplicationData.Current.LocalFolder
        folder = Await folder.CreateFolderAsync("Images", CreationCollisionOption.OpenIfExists)
        Await folder.CreateFolderAsync(_folderName, CreationCollisionOption.ReplaceExisting)
        folder = Await folder.GetFolderAsync(_folderName)
        ' Run through all pictures and save them
        For i = 0 To rcv.Count - 1
            Dim myfile As StorageFile = CType(Await folder.CreateFileAsync(rcv(i).PictureName, CreationCollisionOption.ReplaceExisting), StorageFile)
            Await Windows.Storage.FileIO.WriteBufferAsync(myfile, rcv(i).PictureBytes.AsBuffer())
        Next

服务代码：

    Function Execute(TypeOfPictures As String) As List(Of PictureSender)
        Dim PicturesinDirectory As List(Of String) = Directory.GetFiles("\SERVERDataImage" + TypeOfPictures + "", "*.jpg*").ToList()
        Dim lstPicturesToSend As List(Of PictureSender) = New List(Of PictureSender)
        For i = 0 To PicturesinDirectory.Count - 1
            Dim ByteArray As Byte() = File.ReadAllBytes(PicturesinDirectory(i))
            ' Affect the PictureSender object
            Dim PictureSenderObject As PictureSender = New PictureSender
            PictureSenderObject.PictureBytes = ByteArray
            PictureSenderObject.PictureName = PicturesinDirectory(i).Substring(PicturesinDirectory(i).LastIndexOf("") + 1)
            lstPicturesToSend.Add(PictureSenderObject)
        Next
        Return lstPicturesToSend
    End Function

这段代码几乎从服务中发回一个Byte()和一个图片名称，然后由客户端使用。客户端使用buffer写入文件并重新创建图片