画像や動画をドラッグ＆ドロップした際のサービス自動切り替え判定条件でファイルサイズも考慮するように修正

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

diff --git a/Tween/Resources/ChangeLog.txt b/Tween/Resources/ChangeLog.txt
index 1a345ea..77ba9a7 100644 (file)
--- a/Tween/Resources/ChangeLog.txt
+++ b/Tween/Resources/ChangeLog.txt
@@ -25,7 +25,7 @@
  * プロフィール画面を閉じた際にTweenのフォームがアクティブにならないことがある現象に対処
  * プロフィール更新を行った際に取得済みのAPI情報が破壊されるバグを修正
  * TwitVideoへの動画アップロードに対応
- * ファイルをドラッグ＆ドロップした際の判定を強化し動画の場合は対応サービスに自動切り替えするようにした
+ * ファイルをドラッグ＆ドロップした際の判定を強化しファイルサイズオーバーの画像または動画の場合は対応サービスに自動切り替えするようにした
  * 詳細表示でCtrl+Insertキーでもコピーができるようにした
  * 画像投稿モードで使用する画像リソースを差し替えた また、動画をドラッグした場合は専用の画像を表示するようにした(thx @pureminami)
  * 読み上げソフトで問題が出ないように調整を行った

diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index 7a15fd5..6cf0e5e 100644 (file)
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -7420,12 +7420,14 @@ RETRY:
             Dim ext As String = fl.Extension
             Dim picsvc As New PictureService(tw)
 
-            If picsvc.IsValidExtension(ext, ImageService) Then
+            If picsvc.IsValidExtension(ext, ImageService) AndAlso _
+                    picsvc.GetMaxFileSize(ext, ImageService) >= fl.Length Then
                 e.Effect = DragDropEffects.Copy
                 Exit Sub
             End If
             For Each svc As String In ImageServiceCombo.Items
-                If picsvc.IsValidExtension(ext, svc) Then
+                If picsvc.IsValidExtension(ext, svc) AndAlso _
+                        picsvc.GetMaxFileSize(ext, svc) >= fl.Length Then
                     ImageServiceCombo.SelectedItem = svc
                     e.Effect = DragDropEffects.Copy
                     Exit Sub