ターミナルサーバを介したCreateCompatibleBitmapを成功させるには？ (ID:77808)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

はじめまして、JJと言います。

今、ターミナルサーバを使用したプログラムを作成しています。
VBで作成した画像をビットマップにしてエクセルに出力するプログラムなのですが、CreateCompatibleBitmapを使用して領域を確保しようとすると、エラーになってしまいます。GetLastErrorで取得したエラー内容は以下のとおりです。

エラー番号：８
メッセージ：このコマンドを実行するのに十分な記憶域がありません

この現象は、ターミナルサーバを使用した場合だけおきます。

１．ターミナルサーバを使用していないマシン
    問題なく動作します

２．ターミナルサーバをインストールしたマシン
    上記のエラーが必ず発生します

３．ターミナルサーバに対してクライアントで接続したとき
    エラーが発生します
    ただし、クライアントを起動させるときに800x600の解像度で実行すると、問題なく    動作します
    （ターゲットマシンは1024x768です）

また、２，３の場合でも、CreateCompatibleBitmapのパラメータの横幅、縦幅を小さくすれば、動作します。
しかし、２倍のメモリを積んだマシンをサーバにしても、エラーは発生しました。

以下がプログラムです。

lngWidth = ScaleX(CNST_LAYOUT_WIDTH, vbTwips, vbPixels)
    lngHeight = ScaleY(CNST_LAYOUT_HEIGHT, vbTwips, vbPixels)
    
    lngMemDC = CreateCompatibleDC(GetDC(0))

If lngMemDC = 0 Then
        MsgBox PRINT_MSG_ERR_CREATEDC
        Exit Function
    End If
    
    lngNewBitmap = CreateCompatibleBitmap(GetDC(0), lngWidth, lngHeight)
    'ここでエラーが発生します

If lngNewBitmap = 0 Then
        Call DeleteObject(lngMemDC)
        MsgBox PRINT_MSG_ERR_CREATEBITMAP
        Exit Function
    End If
    
    lngOldBitmap = SelectObject(lngMemDC, lngNewBitmap)

どなたか、よいアドバイスはございませんでしょうか？

←解決時は質問者本人がここをチェックしてください。

戻る