C# と VB.NET の質問掲示板

VisualStdio2005　使用言語はVBです。

NotifyIconを使用し、タスクトレイに常駐させるシステムがあります。
30分毎にとあるデータベースの中を見てデータが存在した場合に
お知らせフォームをポップアップさせているのですが、
ポップアップ時にポップアップフォームがアクティブになってしまい
Word等で日本語入力途中の文字が確定されてしまいます。
表示処理の中で「Me.Activate()」の記述があり消してみても駄目でした。

ポップアップフォームを最前面に表示し、アクティブにさせない方法はあるのでしょうか？
ご存知の方いらっしゃいましたらアドバイス宜しくお願い致します。

'現在の記述
Private Sub Form_Load
    Me.Close()
End Sub

Private Sub FormClosing
    Me.Visible = False
    Timer1.Enabled = True    'タイマースタート
End Sub

Private Sub Timer1_Tick
    Dim iRet As Integer

    iRet = DataChk    'データがあるかチェック(0以外はデータ有り)

    'データがあった場合フォームを表示
    If iRet <> 0 Then
        Timer1.Enabled = False    'タイマーストップ

        Me.Visible = True
        Me.Activate()    'ここを消しても駄目でした
    End If
End Sub

文字列にして、INI ファイルに　Key=Value の
Value として登録するために
関数を２つ作りました。

byte[] の状態まではうまく変換できたのですが、
String にすると変換できずにエラーメッセージが出てきたので
byte[] → string か、byte[] → dynamic のどちらかで
何かがおかしいのかと思ったのです。
現状では Value に DataTable型 のデータを指定しています。


private string DynamicToString(dynamic Value)
{
	// dynamic → byte[]
	MemoryStream sstream = new MemoryStream();
	IFormatter formatter = new BinaryFormatter();
	formatter.Serialize(sstream, Value);

	// byte[] → string
	string strvalue = "";
	for (int isnum = 0; isnum < sstream.ToArray().Length; isnum++) strvalue += (char)sstream.ToArray()[isnum];

	return (strvalue);
}

private dynamic StringToDynamic(string Value)
{
	try
	{
		if (Value == "") return (null);

		// string → byte[]
		byte[] valuearray = new byte[Value.Length];
		for (int inum = 0; inum < Value.Length; inum++) valuearray[inum] = (byte)Value[inum];

		// byte[] → dynamic
		MemoryStream dstream = new MemoryStream(valuearray);
		IFormatter formatter = new BinaryFormatter();
		return (formatter.Deserialize(dstream));
	}
	catch(Exception ex)
	{
		MessageBox.Show(ex.Message);
		return (null);
	}
}

■No88724 (ひょっとこ さん) に返信
> どこのサイトで調べたのかは忘れましたが、
> 以下のコードでヘッダーからファイル名を取得することができます。

恐らく下記では無いでしょうか。見覚えはありますか?
http://www.atmarkit.co.jp/fdotnet/dotnettips/618downnoname/downnoname.html

上記には URL$ という名の引数は出てこないので、自前で書き直した記憶が無ければ、
上記を元に二次加工されたソースだったのかも知れませんが。


> Dim req As HttpWebRequest = CType(WebRequest.Create(URL), HttpWebRequest)
今回のように、ヘッダー情報を読み取ることだけを目的としているのであれば、
HTTP GET のままリクエストするのではなく、
　req.Method = System.Net.Http.HttpMethod.Head.Method
　'req.Method = "HEAD"
のように HTTP HEAD メソッドに変更してリクエストするべきかと思います。


> DSC_0063 - コピー北國新聞社社長賞.JPG
> このファイル名はHTMLファイル内には記述していないので
> 恐らく、ファイルヘッダーから取得したのだと思います。

参照されているのは、ファイルヘッダーではなく、HTTP 応答ヘッダーですね。

http://cms1.ishikawa-c.ed.jp/~shough/NC2/htdocs/?action=common_download_main&upload_id=4537
の画像では Exif 情報も削除されているため、ファイルヘッダーからは取得できないはず。


該当の URL にアクセスすると、Web サーバーから下記の応答が返されることを確認しました。(一部抜粋)

HTTP/1.1 200 OK
Date: Sat, 22 Sep 2018 01:46:42 GMT
Server: Apache/2.2.15 (CentOS)
Content-disposition: inline; filename="DSC_0063 - コピー北國新聞社社長賞.JPG"
Content-Length: 85599
Connection: close
Content-Type: image/jpeg


この時、filename= の後続のカナ漢字部分が UTF-8 エンコーディングになっていたので、
これが文字化けの原因ですね。

そしてこれは、Web サーバー側の処理に問題があるように思います。

HTTP ヘッダでの利用が許可されているのは、現時点では ISO-8859-1 のみですので、
UTF-8 でエンコードされた文字列が返されるのは、本来は NG のはずです。

2011年6月に RFC 6266 で定められるまでは、ファイル名に使われる非 ASCII 文字を
Content-Disposition: にどのように組み込むかが明確に定義されておらず、
各ブラウザーで解釈が異なっていたのですけれど、それは昔の話。

現在では、日本語ファイル名なら RFC 6266 / RFC 5987 に従って、filename= ではなく filename*= を用いた
Content-disposition: inline; filename*=utf-8'ja-jp'DSC_0063%20-%20%E3%82%B3%E3%83%94%E3%83%BC%E5%8C%97%E5%9C%8B%E6%96%B0%E8%81%9E%E7%A4%BE%E7%A4%BE%E9%95%B7%E8%B3%9E.JPG
などの応答を Web サーバーが返却するのが正しい手順であろうかと思います。
(ブラウザーによっては、"%20" の部分が " " にデコードされずに残る事もあるようですが)


もしも仮に、上記のヘッダーで返却されていたのだとしたら、受信した文字列を
下記の Uri.UnescapeDataString などでデコードすることで、正しく取得できるようになる見込みです。
https://dobon.net/vb/dotnet/internet/urlencode.html

ただしサーバーの実装が正しかったとしても、filename*= で utf-8 以外が指定されていた場合は、
HttpUtility.UrlDecodeToBytes(String, Encoding) してから
Encoding.Unicode.GetString( Byte() ) で復元する必要がありますし、
そもそも No88724 の正規表現のままでは不足なので、いずれにしてももう少し手直しは必要です。



閑話休題。

話をまとめると、文字化けの原因は、サーバー側がファイル名 UTF-8 で返しているからであり、
それを取得するための機能は、WebRequest クラスには存在しないという結論になります。

WebRequest クラスには、ContentEncoding ならありますが、
HeaderEncoding プロパティはありませんので…。


代替手段を考えてみたのですが、今のところは、サーバーと会話する処理を
自前で書くぐらいしか思い当たりませんでした。

以下は、リダイレクトやエラー処理、SSL 対応、プロキシ指定等は考慮せず、
あくまでも今回の URL に限定させた最低限の手抜き実装ですが、一応参考までに。


'Imports System
'Imports System.IO
'Imports System.Net
'Imports System.Net.Sockets
'Imports System.Text
'Imports System.Text.RegularExpressions

Function AcquireFileNameFromUTF8Header(url As String) As String
    Dim headers As String()

    Dim u As New Uri(url)
    Using client As New TcpClient()
        client.Connect(u.Host, u.Port)
        Using stm As NetworkStream = client.GetStream()
            Dim wrt As New StreamWriter(stm)
            wrt.WriteLine("HEAD " & u.ToString() & " HTTP/1.1")
            wrt.WriteLine("Host: " & u.Host)
            wrt.WriteLine("Connection: close")
            wrt.WriteLine("")
            wrt.WriteLine("")
            wrt.WriteLine("")
            wrt.Flush()

            'UTF-8 で喋るサイトのために、無理矢理 UTF-8 でデコードしています。
            Dim rdr As New StreamReader(stm, Encoding.UTF8)
            headers = rdr.ReadToEnd().Split(New String() {vbCrLf}, StringSplitOptions.RemoveEmptyEntries)
        End Using
    End Using

    Dim cd = headers.FirstOrDefault(Function(h) h.ToLowerInvariant().StartsWith("content-disposition:"))
    If Not String.IsNullOrWhiteSpace(cd) Then
        'ここの正規表現は、元の正規表現のままで、特に弄っていません。
        Dim re As New Regex( _
                  "filename\s*=\s*           " & _
                  "(?:                       " & _
                  "  ""(?<filename>[^""]*)"" " & _
                  "  |                       " & _
                  "  (?<filename>[^;]*)      " & _
                  ")                         " _
                  , RegexOptions.IgnoreCase _
              Or RegexOptions.IgnorePatternWhitespace)

        Dim m As Match = re.Match(cd)
        If m.Success Then
            Return m.Groups("filename").Value
        End If
    End If
    Return String.Empty
End Function