From: kiri_feather Date: Tue, 17 Aug 2010 04:42:11 +0000 (+0000) Subject: GDI+例外に対応するため、アニメーションgifを投稿する場合の画像表示はbitmap化してから表示するよう変更。投稿画像自体はアニメーションgifのまま送信されます。 X-Git-Tag: Tween_v0.9.5.1-beta~82 X-Git-Url: http://git.osdn.net/view?a=commitdiff_plain;h=ab441c60e8bfe411a4d326d961f21b5a79d60d8a;p=opentween%2Fopen-tween.git 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 285b30eb..b2f611ef 100644 --- 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