graphics - SlimDX GDI ビットマップから Direct2D ビットマップへのスケールは ~ 1.5 - 2 X

Question

https://code.google.com/p/slimdx/issues/detail?id=707のコードを使用して System.Drawing.Bitmap を SlimDX.Direct2D.Bitmap に変換しています。私は以前に同じコードをE X A C T L Yを使用しましたが、完全に機能した場合。今、私がイメージを描くとき

Dim TheBitmap As SlimDX.Direct2D.Bitmap = LoadBitmap(New Bitmap(New MemoryStream(TheBytesThatIGotOffTheNetworkStream)))
SlimDX.Direct2D.WindowRenderTarget.DrawBitmap(TheBitmap)

1.5 ～ 2 倍にスケーリングされたビットマップを取得します。System.Drawing.Bitmap を保存すれば完璧です。私はこれを以前に行ったことがありますが、スケーリングすることはありませんでした。ストリームを削除して、ハードディスクからビットマップをロードしようとさえしました。うまくいきませんでした。ありがとう。

私のコード:

Form1.vb:

Imports SlimDX
Imports System.Text
Imports System.Threading
Imports System.IO
Public Class Form1
    Dim F As Direct2D.Factory
    Dim WRTP As Direct2D.WindowRenderTargetProperties
    Dim WRT As Direct2D.WindowRenderTarget
    Dim TheBitmap As Direct2D.Bitmap
    Function LoadBitmap(drawingBitmap As Bitmap) As Direct2D.Bitmap
        Dim result As Direct2D.Bitmap = Nothing
        Dim drawingBitmapData As BitmapData = drawingBitmap.LockBits(New Rectangle(0, 0, drawingBitmap.Width, drawingBitmap.Height), ImageLockMode.ReadOnly, PixelFormat.Format32bppPArgb)
        Dim dataStreamxx As DataStream = New DataStream(drawingBitmapData.Scan0, drawingBitmapData.Stride * drawingBitmapData.Height, True, False)
        Dim properties As Direct2D.BitmapProperties = New Direct2D.BitmapProperties()
        properties.PixelFormat = New Direct2D.PixelFormat(DXGI.Format.R8G8B8A8_UNorm, Direct2D.AlphaMode.Premultiplied)
        result = New Direct2D.Bitmap(WRT, New Size(drawingBitmap.Width, drawingBitmap.Height), dataStreamxx, drawingBitmapData.Stride, properties)
        drawingBitmap.UnlockBits(drawingBitmapData)
        Return result
    End Function
    Public Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        F = New Direct2D.Factory()
        WRTP = New Direct2D.WindowRenderTargetProperties()
        WRTP.Handle = Me.Handle
        WRTP.PixelSize = Me.PixelSize
        WRT = New Direct2D.WindowRenderTarget(F, WRTP)
    End Sub
    Public Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles MyBase.Paint
        WRT.BeginDraw()
        WRT.Clear()
        If Not IsNothing(TheBitmap) Then
            WRT.DrawBitmap(TheBitmap)
        End If
        WRT.EndDraw()
    End Sub
    Sub Main()
        Dim Command As TCP.Command
        While True
            If TCP.Listener.Pending() Then
                TCP.Clients.Add(TCP.Listener.AcceptTcpClient())
                TCP.Streams.Add(TCP.Clients.Last().GetStream())
            End If
            For a=0 To TCP.Clients.Count-1
                If TCP.Streams(a).DataAvailable Then
                    Command=TCP.ReadCommand(TCP.Streams(a))
                    If Encoding.ASCII.GetString(Command.Command) = "Bitmap"
                        TheBitmap=LoadBitmap(New Bitmap(New MemoryStream(Command.SubCommands(0))) 'Convert it.
                        Me.Invalidate()
                    End If
                End If
            Next
        End While
    End Sub
End Class