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

■No55364 (魔界の仮面弁士) に追記

#region ヘルパーメソッド
static string Dump(string targetFile) {
   byte[] binImg = File.ReadAllBytes(targetFile);
   return BitConverter.ToString(binImg).Replace("-", "");
}
static Image LoadImage(byte[] bin) {
    using (MemoryStream stm = new MemoryStream(bin))
    {
        return Image.FromStream(stm);
    }
}
#endregion

OleDbConnection cn = new OleDbConnection(@"
        Provider=Microsoft.JET.OLEDB.4.0;
        Data Source=C:\db1.mdb;
");
/// <summary>デモ用テーブルの作成</summary>
private void button1_Click(object sender, EventArgs e) {
    cn.Open();
    OleDbCommand cmd = cn.CreateCommand();
    cmd.CommandText = @"
        CREATE TABLE TestTable (
            ID  AUTOINCREMENT(10000, 10)  PRIMARY KEY,
            IMG1 OLEOBJECT NULL,
            IMG2 OLEOBJECT NULL
        );
    ";
    cmd.ExecuteNonQuery();
    cn.Close();
    MessageBox.Show("テーブル作成");
}
/// <summary>SQLにデータを埋め込む</summary>
private void button2_Click(object sender, EventArgs e) {
    cn.Open();
    OleDbCommand cmdINSERT = cn.CreateCommand();
    cmdINSERT.CommandText = @"
        INSERT INTO TestTable (IMG1, IMG2) VALUES (
            0x" + Dump(@"C:\Windows\珈琲カップ.bmp") + @"
           ,0x" + Dump(@"C:\Windows\シャボン.bmp") + @"
        );
    ";
    cmdINSERT.ExecuteNonQuery();
    cn.Close();
    MessageBox.Show("SQLにバイナリを埋め込み");
}
/// <summary>パラメータクエリ</summary>
private void button3_Click(object sender, EventArgs e) {
    cn.Open();
    OleDbCommand cmdINSERT = cn.CreateCommand();
    cmdINSERT.CommandText = @"
        PARAMETERS P1 OLEOBJECT, P2 OLEOBJECT;
        INSERT INTO TestTable (IMG1, IMG2)
        VALUES ( P1, P2 );
    ";
    OleDbParameter P1 = new OleDbParameter("P1", DbType.Object);
    OleDbParameter P2 = new OleDbParameter("P2", DbType.Object);
    cmdINSERT.Parameters.Add(P1);
    cmdINSERT.Parameters.Add(P2);

    P1.Value = File.ReadAllBytes(@"C:\WINDOWS\羽毛.bmp");
    P2.Value = File.ReadAllBytes(@"C:\WINDOWS\大草原の風.bmp");
    cmdINSERT.ExecuteNonQuery();
    cn.Close();
    MessageBox.Show("パラメータクエリでバイナリを渡す");
}
/// <summary>画像読み込み</summary>
private void button4_Click(object sender, EventArgs e) {
    cn.Open();
    OleDbCommand cmdSELECT = cn.CreateCommand();
    cmdSELECT.CommandText = @"
        SELECT TOP 1
            ID, IMG1, IMG2 
        FROM 
            TestTable 
        ORDER BY
            ID DESC
    ";
    OleDbDataReader reader = cmdSELECT.ExecuteReader();
    if (reader.Read()) {
        pictureBox1.Image = LoadImage((byte[])reader.GetValue(1));
        pictureBox2.Image = LoadImage((byte[])reader.GetValue(2));
        MessageBox.Show("ID=" + reader.GetInt32(0));
    }
    cn.Close();
    MessageBox.Show("最後に追加された画像の読み取り");
}

■No55928 (ｖｂの質問 さん) に返信
> vbコントロールのデザインがいやで
デザインは ProgressBar.Style で変更できますが、Visual Style が有効な場合には、
Continuous に設定しても Blocks スタイルになってしまうんですよね…。


> Dim g As Graphics = PictureBox1.CreateGraphics()
基本的に、CreateGraphics は使用すべきではありません。
通常は Paint イベントを利用し、e.Graphics に対して描画処理を記述すべきです。

この場合、「時間のかかる処理」の最中に、任意のタイミングで PictureBox の
Invalidate メソッドもしくは Refresh メソッドを呼ぶようにします。


Invalidate とは、「描画すべきデータが更新されたので、次回の描画タイミングで再描画して欲しい」と
OS に依頼するためのメソッドです。これにより、Paint イベントが誘発されます。

Refresh メソッドは、Invalidate メソッド + Update メソッドの組み合わせと同じ意味です。
これは、強制的に再描画を行う必要がある場合に利用されます。

Update メソッドは、「描画の必要があれば、描画処理を実行する」という物です。
特に再描画が不要な状況では、Update を呼び出しても何も起きませんが、
再描画が必要とされる状況では、Paint イベント(OnPaint メソッド)が呼び出されます。


Private currentValue As Integer

Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As PaintEventArgs) Handles PictureBox1.Paint
    Dim rect As New Rectangle(20, 20, Me.currentValue * 0.001, 10)
    e.Graphics.FillRectangle(Brushes.Green, rect)
End Sub

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
    'Invalidate を使った場合は、ループ処理の速度は低下しない。
    'ただし、描画は強制ではないため、ループ中には実際の描画処理が行われず、
    'End Sub した後に実行される可能性が高い。
    For Me.currentValue = 0 To 100000
        PictureBox1.Invalidate()
    Next
End Sub

Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
    'Refresh を使うと、本来は再描画不要なタイミングであっても強制的に描画させる事ができる。
    'ただしその分、ループ処理性能は著しく低下する事になる。
    For Me.currentValue = 0 To 100000
        PictureBox1.Refresh()
    Next
End Sub

Private Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button3.Click
    '両者を組み合わせた例。基本的には Invalidate を使うようにしておき、
    '時折、強制描画を挟むようにする(回数で制御する他、Timer で Update する手もある)。
    'Update の頻度を変更することでパフォーマンスを調整できるのが利点。
    For Me.currentValue = 0 To 100000
        PictureBox1.Invalidate()

        If Me.currentValue Mod 100 = 0 Then
            PictureBox1.Update()   '100回ごとに強制描画
        End If
    Next
End Sub


> for文を使った進捗のさせ方で結局つまずいてしまいまして
メインスレッドが重い処理を行っている最中は、描画処理が行われなかったり、
画面操作を受け付けなくなる可能性が高くなります。画面位置の変更などといった
UI操作を受け付けるようにしたい場合には、重い処理を非同期的に実装する事を検討してみてください。

たとえば、各処理を細かく分割しておき、Timer の Tick イベントで、少しずつ処理を
進めていくという手法があります。この手法は、時計やアニメーション処理などで利用できます。

一方、長いループ処理を必要とするケースでは、作業用の別スレッドを用意した方が
望ましいかも知れません。2005 以降では、BackgroundWorker を使うと便利でしょう。
あるいは、Webサービス化して Asnyc 系メソッドで実行するという選択肢もあります。


この他、ループ中で適宜 DoEvents を呼び出すという選択肢もあるのですが、
DoEvents の利用は、イベント再入を引き起こす可能性があるため、
意図しない動作となる事がありますので、極力避けた方が無難です。

■No57337 (TAKE さん) に返信
> 文字集合とは↓これでしょうか？
文字集合(キャラクターセット)とは、使用できる文字の集まりです。
大雑把にいえば、使用可能な文字の一覧表だと思っていただければ良いかと。

その上で、それらの文字をどのような符号化方式(エンコード)でバイナリ変換するのか、という話です。

ASP.NET では UTF-8 が使われる事が多いかと思いますが(ケータイ向けサイトは別として)、
その上で、システム上の制限として使えない文字種を定義する必要があるかどうかですね。

・どんな文字を使う必要があるのか。
　(外国人名を現地語で入力させる必要があるか、サロゲートペアは許可するか、外字はどうするかなど)

・それらを何の符号化で保持/出力するのか。
　(DB の文字コードは何か、Shift_JIS データの作成が必要かなど)


実際にはこの他、どのフォントを使うかという話もあるのでしょうけれども、
システムの全体要件が見えないので、それについては触れずにおきます。
そもそもの話は「文字コード不明のテキストファイルを読み込む」手法についての
話題だったはずなので、かなり脱線気味ではありますが。


脱線ついでに文字集合と符号化方式について述べておくと、たとえば Unicode という文字集合の場合、
そのひとつの文字集合に対して UTF-8 や UTF-16 といった異なる符号化方式が存在しています。

文字集合としての Unicode については、Unicode 2.1 とか Unicode 4.0.0 といった
バージョンの違いで扱える文字種が異なります。6.0 以降では、"emoji symbols"
(いわゆる、携帯電話の絵文字記号)も追加されています。

対応する符号化方式については、UTF-8 とか UTF-16 とか UTF-32 など何種類かありますが、
とりあえず「あ」の文字を例にとると、この文字は Unicode では U+3042 に割り当てられており、
その U+3042 を符号化してバイナリ表現に変換した場合、符号化方式によって
　　UTF-7    では 2B,4D,45,49,2D
　　UTF-8    では E3,81,82
　　UTF-16LE では 42,30
　　UTF-16BE では 30,42
のように、異なるバイナリ表現をとるようになっています。

# ちなみに、Windows が Unicode 系 API で採用しているのは UTF-16 であり、
# System.Text.Encoding.Unicode というのは、UTF-16 の符号化を表しています。


UTF-8 の符号化方式でいえば、U+0800〜U+FFFF の範囲の文字が
xxxxyyyy-yyzzzzzz のビットパターン(2進数表現)で表され、それが
1110xxxx,10yyyyyy,10zzzzzz というバイト並びに変換される仕様です。
上記 U+3042 なら、2進表現では 00110000-01000010 になるので、これが
11100011,10000001,10000010 のビットパターン、すなわち E3,81,82 になる、と。


> ＶＢの時代には
> unicodeに変換すれば
実際には、その変換が問題になる事もあったりします。(NEC文字などの問題など)
Win9x系と WinNT 系でも差異がありましたし。まぁ、普段はあまり意識する事は無いと思いますが。

旧VB の文字列は、内部的には UCS-2 相当なのですが、画面やファイルへの入出力処理では
ローカルのOEMコードに自動的に変換されるため、これが問題を引き起こすことがありました。

たとえば、Shift_JIS (というか、コードページ932)の場合、
"≒" の文字は、0x8790 と 0x81e0 の二か所に割り当てられていますが、
Unicode では U+2252 一か所にのみマッピングされています。

そのため、VB6 や VBA においては
　s1 = ChrW(&H2252)
　s2 = Chr(&H81E0)
　s3 = Chr(&H8790)
　s4 = StrConv(ChrB(&H81) & ChrB(&HE0), vbUnicode, &H411)
　s5 = StrConv(ChrB(&H87) & ChrB(&H90), vbUnicode, &H411)
はいずれも、0x2252 という同一バイナリにエンコードされることになります。
ゆえに一度変換してしまうと、厳密には元に戻すことができません。

この事情は、C# においても同じことです。.NET にしても 32bit版 VB にしても、
文字列(String 型変数)は、文字列を UTF-16 のバイナリで管理しているため、
0x8790 な 2 バイトのテキストファイルと
0x81e0 な 2 バイトのテキストファイルを Shift_JIS としてデコードした場合、
その文字はいずれも U+2252 という同じ文字として保持される事になります。


TAKE さんが先程あげられた
> 文字集合とは↓これでしょうか？
で表された U+2116 "Numero Sign" の文字も同様で、この文字は
Shift_JIS では 0xfa59 と 0x8782 の 2 つがあったりします。


> 簡単に文字数判定できましたが
> Ｃ＃は簡単にはいかないようですね。
『文字数判定』なら、System.Globalization.StringInfo クラスの
LengthInTextElements プロパティで行えます。
http://www.atmarkit.co.jp/fdotnet/dotnettips/726countchars/countchars.html
http://msdn.microsoft.com/ja-jp/ff382735

『バイト数判定』なら、System.Text.Encoding クラスの GetByteCount メソッドですね。

『文字幅の測定』なら、No57203 で shu さんが書かれているように MeasureString メソッド等で。

PrintDlgExで確認中で、
とりあえず、32bitOS上でPrintDlgExが動作するところまで
いきましたが、64bitOS上ではどうにもうまくいきません。

以下のようにやっていますが、hResult に 80070057 が
返ってきます。エラー値を調べたのですが引数エラーの
ようです。

◆構造体メンバの型がおかしいのでしょうか？

◆それと、ググったサイトでPrintDlgExの宣言で
　[In(), Out()]と括弧付きで宣言しているのを見つけたのですが
　[In, Out]とどちらがあっているのでしょうか？
  ※そもそも違いがわかりませんorz

◆EXのほうは「PD_PRINTSETUP」がフラグにないのですね。。。
　ボタンを「印刷」→「OK」にしたいところですが、、、
　とりあえずはx64で動作させたいところです。

//プリンタダイアログEX
[DllImport("comdlg32.dll", CharSet = CharSet.Auto)]
private static extern int PrintDlgEx([In, Out] PRINTDLGEX lppd);

//Flags
private const Int32 PD_NOSELECTION = 0x4;           
private const Int32 PD_NOPAGENUMS = 0x8;            
private const Int32 PD_PRINTSETUP = 0x40;           
private const Int32 PD_RETURNDC = 0x100;            
private const Int32 PD_HIDEPRINTTOFILE = 0x100000;  
private const Int32 PD_NONETWORKBUTTON = 0x200000;
private const Int32 PD_NOCURRENTPAGE = 0x800000;    

//戻り値
private const int PD_RESULT_CANCEL = 0;
private const int PD_RESULT_PRINT = 1; 
private const int PD_RESULT_APPLY = 2; 

//PRINTDLGEX CLASS
[StructLayout(LayoutKind.Sequential, CharSet = CharSet.Auto, Pack = 1)]
[ComVisible(false)]
private class PRINTDLGEX
{
    public Int32 lStructSize;
    public IntPtr hwndOwner;
    public IntPtr hDevMode;
    public IntPtr hDevNames;
    public IntPtr hDC = IntPtr.Zero;
    public Int32 Flags = PD_RETURNDC;
    public Int32 Flags2 = 0;
    public Int32 ExclusionFlags = 0;
    public Int32 nPageRanges = 0;
    public Int32 nMaxPageRanges = 0;
    public IntPtr lpPageRanges = IntPtr.Zero;
    public Int32 nMinPage = 0;
    public Int32 nMaxPage = 0;
    public Int32 Copies = 1;
    public IntPtr hInstance = IntPtr.Zero;
    public IntPtr lpPrintTemplateName;
    public IntPtr lpCallback = IntPtr.Zero;
    public Int32 nPropertyPages = 0;
    public IntPtr lphPropertyPages = IntPtr.Zero;
    public Int32 nStartPage = -1;
    public Int32 dwResultAction = 0;
}

void test()
{
        PrintDocument pd = new PrintDocument(); //<--実際はデフォルトプリンタではないです
        IntPtr hDevMode = pd.PrinterSettings.GetHdevmode();
        IntPtr hDevNames = pd.PrinterSettings.GetHdevnames();

        PRINTDLGEX pdlg = new PRINTDLGEX();
        pdlg.lStructSize = Marshal.SizeOf(pdlg);
        pdlg.hwndOwner = owner.Handle;
        pdlg.hDevMode = hDevMode;
        pdlg.hDevNames = hDevNames;
        pdlg.Flags = PD_HIDEPRINTTOFILE | PD_NOSELECTION | PD_NOCURRENTPAGE | PD_NOPAGENUMS | PD_RETURNDC;
        int hResult = PrintDlgEx(pdlg);
        if ((hResult != 0) || (pdlg.dwResultAction == PD_RESULT_CANCEL))
        {
            return DialogResult.Cancel;
        }
}

■No60841 (Yuka さん) に返信
> 多分、インストールされているIEのUser Agentと同じではないかと思うのですが、どうでしょうか？
UserAgent は変更される可能性もありますよ。


> どうすれば知ることができますか？


Private Const URLMON_OPTION_USERAGENT As Integer = &H10000001
Private Const URLMON_OPTION_USERAGENT_REFRESH As Integer = &H10000002

Private Declare Ansi Function UrlMkGetSessionOption Lib "urlmon" _
    (ByVal dwOption As Integer _
    , ByVal pBuffer As StringBuilder _
    , ByVal dwBufferLength As Integer _
    , ByRef pdwBufferLengthOut As Integer _
    , ByVal dwReserved As Integer _
    ) As Integer

Public Function GetUserAgent() As String
    Dim userAgent As New StringBuilder()
    userAgent.Append(" "c, 1024)
    Dim length As Integer = 0
    UrlMkGetSessionOption(URLMON_OPTION_USERAGENT, userAgent, userAgent.Length, length, 0)
    Return userAgent.ToString()
End Function