Android3.1 マーケットでダウンロードが終わらない

LGのL-06C OptimusPADのAndroidマーケットで，ある日ダウンロードができなくなりました。
アプリのアップデートがあるということで開始し，プログレスバーみたいなゲージがずっと動いているのですが一向に終わることなく，結局「ダウンロードできませんでした」となる状態が続いていました。

設定 > アプリケーション > アプリケーションの管理 > すべて

この中にある「マーケット」を選択，「キャッシュを消去」を行なって再起動したけどうまくいかず。
次に「ダウンロード」 というアプリを選択，「キャッシュを消去」を実行。
この時点で直りました。

「ダウンロード」のキャッシュは数百MBたまっていましたが，これが悪かったのか，あるいは不具合でデータがたまっていたのか・・。

後日，Android2.2のT-01C(Regza Phone)でも同様の状況が発生。そして同様の処置で問題解決しました。

お年玉つき年賀葉書の当選番号照合

今年も年賀葉書の当選番号が発表されました。

平成24年用年賀葉書及び寄附金付お年玉付年賀切手当せん番号

そこで，弊社総務部用に照合シートを作成しました。
ただIF文を繰り返すだけの関数ですが，たくさん葉書がある場合は便利です。

年賀葉書当せん番号照合シート_2011.xlsx

WCF+RESTでファイル受信する際にヘッダー情報を分離

ASP.NETでWCFをホストし，POSTメソッドでファイルを受信するのはうまくできたのですが，受信した Stream型(System.IO.Stream)にヘッダー情報が含まれてしまい，そのまま保存するとファイルが壊れてしまうという問題に当たってしまいました。


FiddlerでファイルをPOST送信したときのRequestBody

---------------------------acebdf13572468
Content-Disposition: form-data; name="fieldNameHere"; filename="test.JPG"
Content-Type: image/jpeg

<@INCLUDE *C:\Users\nemo\Pictures\test.JPG*@>
---------------------------acebdf13572468--

.NETのライブラリに便利なものはないかいろいろと調べたけれど見つからず，結局コードを書いて処理しなくてはいけないかと考えましたが，幸い以下のコードが公開されていました。

http://multipartparser.codeplex.com/

VBで使えるように変換・調整して使うと，簡単に解決しました。

変換サイト

VB.NET（修正前）

' Get the start & end indexes of the file contents
Dim startIndex As Integer = contentTypeMatch.Index + contentTypeMatch.Length + vbCr & vbLf & vbCr & vbLf.Length

Dim delimiterBytes As Byte() = encoding.GetBytes(vbCr & vbLf & delimiter)

VB.NET（修正後）

' Get the start & end indexes of the file contents
Dim startIndex As Integer = contentTypeMatch.Index + contentTypeMatch.Length + vbCr.Length + vbLf.Length + vbCr.Length + vbLf.Length

Dim delimiterBytes As Byte() = encoding.GetBytes(vbCr & vbLf & delimiter)

ファイル名の取得もプロパティでできるし，快適です。
開発者に感謝です。

Windows AzureでIPアドレスによるアクセス制限をかける

Windows AzureのWeb RoleでIPアドレスによるアクセス制限をかける必要が生じ，調べてみました。TIPSやブログを読むと，SQL Azureの場合は管理画面で簡単に設定できるのですが，Web Roleの場合はIISをベースに動いているのでインスタンスごとに初期設定を行なわなければいけないということでした。リモートデスクトップで接続してGUIで設定することもできますが，インスタンスを作成する度に最初からやり直しなので，自動で再構成したときのことも考えると実用的ではありません。
設定を自動的に行なう具体的な方法についてはいくつかのやり方があるようですが，自分にとっては以下の手順が簡単に思えたので記録しておくことにします。


状況
許可したIPアドレスからのアクセス以外を制限
127.0.0.1 WebRoleがlocalhostにアクセスする場合に許可
192.168.1.1 からのアクセスを許可

1.StartUp.cmd
WebRoleプロジェクトにテキストファイルとして StartUp.cmd を作成。
プロパティの［出力ディレクトリにコピー］を［常にコピーする］に設定。

以下の内容で保存。

@echo off 
%windir%\System32\ServerManagerCmd.exe -install Web-IP-Security 
%windir%\system32\inetsrv\AppCmd.exe unlock config -section:system.webServer/security/ipSecurity

2.ServiceDefinition.csdef
Windows Azureプロジェクトの ServiceDefinition.csdef に以下の内容を追記。

  <WebRole>
    <Startup>
      <Task commandLine="StartUp.cmd" executionContext="elevated" taskType="simple" />
    </Startup>
  </WebRole>

3.Web.Config
WebRoleプロジェクトの Web.Config に以下の内容を追記。

<system.webServer>
  <!--IPアドレスによるアクセス制限-->
  <security>
    <ipSecurity allowUnlisted="false">
      <clear/>
      <add ipAddress="127.0.0.1" allowed="true"/>
      <add ipAddress="192.168.1.1" allowed="true" />
    </ipSecurity>
  </security>
</system.webServer>

参考
http://news.mynavi.jp/articles/2011/06/07/wings02/index.html
https://support.blacknight.ie/524/how-to-block-an-ip-address.html

WebBrowserコントロールで要素に値を入力

WebBrowserコントロールのフォームに任意の値を自動入力する方法をメモ。
社内で使用する業務用WebアプリをWindowsアプリケーションの中で扱えないかと思い，WebBrowserコントロールを使ってみました。
アカウント認証が必要なので，アカウント情報を自動入力して送信します。

まずはテキストボックスへの入力とボタンクリックのメソッドを用意。

    ''' 

    ''' 指定のURLに接続します。
    ''' 
    ''' URL
    ''' 
    Public Sub SetUrl(ByVal url As String)

        webBrowser1.Navigate(url)

    End Sub

    ''' 

    ''' ウェブページ内のテキストボックスに文字列を入力します。
    ''' 
    ''' 要素ID
    ''' 文字列
    ''' 
    Public Sub SetStringToTextBox(ByVal elementId As String, ByVal value As String)

        Dim all As HtmlElementCollection = webBrowser1.Document.All
        Dim forms As HtmlElementCollection = all.GetElementsByName(elementId)
        If forms.Count > 0 Then
            forms(0).InnerText = value
        End If

    End Sub

    ''' 

    ''' ウェブページ内のボタンをクリックします。
    ''' 
    ''' 要素ID
    ''' 
    Public Sub ClickWebButton(ByVal elementId As String)

        Dim all As HtmlElementCollection = webBrowser1.Document.All
        Dim forms As HtmlElementCollection = all.GetElementsByName(elementId)
        If forms.Count > 0 Then
            forms(0).InvokeMember("click")
        End If

    End Sub

Webページの読み込みが完了した時点で自動入力して送信。

    Private Sub webBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles webBrowser1.DocumentCompleted

        SetStringToTextBox("Account", "myAccount")
        SetStringToTextBox("Password", "myPassword")
        ClickWebButton("Submit")

    End Sub

うまくいったのはいいけど，別ウィンドウを表示する動作で認証が途切れてしまいました。 セッションのことまで考えるとなかなか単純にはいかないようです。 別ウィンドウでのセッション維持が不要なら，使えそうです。

Trusted Drive Manager

ふとスタートアップを見てみると tdmnotify.exe とかいうプログラムが入っていました。あれ？これなんだっけ？と思って検索。以下のサイトにたどりつきました。

Trusted Drive Managerについて (Dell)

EMBASSY Trusted Drive Manager

Wave Systems Corpという会社のHDD用セキュリティシステムみたいです。
そういえばPCはデルだから，最初から入ってたのかなあ・・と思ったものの，今まで気にしてなかったことにちょっと怖くもなりました。

Windowsタブレット予約

前々から欲しいと思っていたWindowsタブレット。確かに操作性，携帯性など，さまざまな面でiPad2は勝っているとは思います。しかし，私の場合は常に持ち歩くデバイスとしてはどうしてもWindowsが必要でした。
現在持ち歩いているのは 工人舎PMシリーズ で，350gと軽量，公称値7時間のバッテリーということでとても重宝しています。とはいえこのスペックではどちらかというと電子辞書のような使い勝手になってしまい，それはそれで助かるけれどPDFや電子書籍を見るのは画面の大きさからしても無理がありました。
画面が小さいという点でいえば同じく持ち歩いているiPod TouchやT-01Cだって同じなわけで，いかに操作性がよいiOSやAndroidでもPDFは辛いわけです。こうなるとやはりタブレットということになり，ちょうどよさそうな機種が出るのを待っている状態でした。


Acerの ICONIA Tab W500 はなかなか良さそうだったけど，Amazonのカート画面で悩んだ末に断念。やはり950gは通勤用ショルダーバッグには重すぎ，ちょっとしたトレーニングになってしまいそうだったのであきらめました。

iPad2と工人舎PMを2台持つことも考えましたが，600g＋350gで結局950gになってしまうので断念。それにiPadを完全に使いこなすにはやはりMacが必要なのではないかと思えるのですが（むしろMacが欲しくなるような気もします），いかにApple製品が魅力的でもシステムの重複は費用も管理コストも増大する可能性が高いので，それはできるだけ避けたいと考えます。

NECの VersaPro タイプVT はスペックも良さそうだし，デザインもシンプルで魅力的。展示会などで触らせてもらった試作機にしても，重さは程々だし，とてもいい感じでした。ただ，9月発売とはいえ5月の発表以降全然情報が更新されないので関心が遠のいてしまいました。Appleみたいに小出しで情報が出てくると関心も維持できるのですが。とてもバランスの良い機種だと思うので，会社でタブレットを使う必要が出てきた場合には改めて評価したいと思います。

そんな中，マウスコンピューターからWindowsタブレット LuvPad WN-101P が発表され，一気に関心がこちらに向いてしまいました。

気に入ったのは以下の点。

• 750gと軽量（初代iPadと同じ程度には）
• タブレット向けのAtom Z670（現在所有の電子手帳扱いのPCよりはいい）
• バッテリー持続時間，公称値で6時間（自分としては運用上の最低ラインをクリア）
• 厚み14mm（今までのWindowsタブレットより薄い）
• UIとしてExTOUCHプリインストール（Windowsタブレットには必要だと思う）
• 「敢えて」1024×600の解像度（1200×800は負荷が高い気がするし，タブレットとしては文字やアイコンが小さくなってしまう）
• SSD（ハードディスクは論外）
• 画面右側にある3つのボタンが使いやすそう

個人的にいまいちな点もあるにはあります。

• SSDの容量が小さい（空き容量14GBほど）
• USBが１つしかない（2つ欲しい）
• 解像度は1024×768のほうがPDFが見やすい（と思う）
• KINGSOFT Officeは不要（MS Office入れるし，なくてもOpenOfficeでいいし）

発売は8月上旬としか発表されていないのでいつ発売かと待っていましたが，量販店のサイトで予約開始になっていたので，さっそく予約しました。
久々に目新しいものを買うのでわくわくします。

※追記

発売日が延長になってしまいました・・。
「LuvPad WN101-P」発売開始日変更のお知らせ 2011.8.9