GDI+例外に対応するため、アニメーションgifを投稿する場合の画像表示はbitmap化してから表示するよう変更。投稿画像自体はアニメーションgifのまま送信されます。

git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@717 e39ad16e-3079-482e-bb30-4b4d378143b6

diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index 285b30e..b2f611e 100644 (file)
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -9402,13 +9402,15 @@ RETRY:
                     ImageSelectedPicture.Tag = UploadFileType.Invalid
                     ImagefilePathText.Text = ""
                 Case UploadFileType.Picture
+                    Dim img As Image = Nothing
                     Using fs As New FileStream(ImagefilePathText.Text, FileMode.Open, FileAccess.Read)
-                        ImageSelectedPicture.Image = (New HttpVarious).CheckValidImage( _
-                                    Image.FromStream(fs), _
-                                    ImageSelectedPicture.Width, _
-                                    ImageSelectedPicture.Height)
+                        img = Image.FromStream(fs)
                         fs.Close()
                     End Using
+                    ImageSelectedPicture.Image = (New HttpVarious).CheckValidImage( _
+                                img, _
+                                img.Width, _
+                                img.Height)
                     ImageSelectedPicture.Tag = UploadFileType.Picture
                 Case UploadFileType.MultiMedia
                     ImageSelectedPicture.Image = My.Resources.MultiMediaImage