IMAPIv2のサンプルコードをVB2008で実行するには？

解決

KO 2009-03-11 05:31:55 No: 145812

MSDN LibraryのIMPAIv2の"Using IMAPI"中にあるサンプルコード
http://msdn.microsoft.com/en-us/library/aa364817(VS.85).aspx

を、Visual Basic 2008に組み込んで実行すると、

dataWriter.recorder = Recorder

の行で、「COMExceptionはハンドルされませんでした。」

というエラーが出て止まってしまいます。

OSはXP Professionai Edition SP3と、
Vista Bussines Editionで実行しましたが、
全く同じ結果でした。

このサンプルコードは、Visual Basic 2008では
使用できないのでしょうか？

------------------------------------------------------------------
サンプルコード(Burning a Disc Image)

' This script burns data files to disc in a single session
' using files from a single directory tree.

' Copyright (C) Microsoft Corp. 2006

Option Explicit

' *** CD/DVD disc file system types
Const FsiFileSystemISO9660 = 1
Const FsiFileSystemJoliet = 2
Const FsiFileSystemUDF102 = 4

WScript.Quit(Main)

Function Main
    Dim Index                ' Index to recording drive.
    Dim Recorder             ' Recorder object
    Dim Path                 ' Directory of files to burn
    Dim Stream               ' Data stream for burning device

    Index = 1                ' Second drive on the system
    Path = "g:\BurnDir"      ' Files to transfer to disc

    ' Create a DiscMaster2 object to connect to optical drives.
    Dim g_DiscMaster
    Set g_DiscMaster = WScript.CreateObject("IMAPI2.MsftDiscMaster2")

    ' Create a DiscRecorder object for the specified burning device.
    Dim uniqueId
    set recorder = WScript.CreateObject("IMAPI2.MsftDiscRecorder2")
    uniqueId = g_DiscMaster.Item(index)
    recorder.InitializeDiscRecorder( uniqueId )

    ' Create an image stream for a specified directory.
    Dim FSI                  ' Disc file system
    Dim Dir                  ' Root directory of the disc file system
    Dim dataWriter

    ' Create a new file system image and retrieve root directory
    Set FSI = CreateObject("IMAPI2FS.MsftFileSystemImage")
    Set Dir = FSI.Root

    'Create the new disc format and set the recorder
    Set dataWriter = CreateObject ("IMAPI2.MsftDiscFormat2Data")
    dataWriter.recorder = Recorder
    dataWriter.ClientName = "IMAPIv2 TEST"

    FSI.ChooseImageDefaults(recorder)

    ' Add the directory and its contents to the file system
    Dir.AddTree Path, false

    ' Create an image from the file system
    Dim result
    Set result = FSI.CreateResultImage()
    Stream = result.ImageStream

    ' Write stream to disc using the specified recorder.
    WScript.Echo "Writing content to disc..."
    dataWriter.write(Stream)

WScript.Echo "----- Finished writing content -----"
Main = 0
End Function

------------------------------------------------------------------

オショウ 2009-03-11 06:13:54 No: 145813

そのサンプルは、VBScriptなので・・・

過去ログ！
http://madia.world.coocan.jp/cgi-bin/VBBBS2/wwwlng.cgi?print+200901/09010038.txt

参考まで・・・

以上。

KO 2009-03-11 07:54:49 No: 145814

オショウ様

レスありがとうございます。

VBSCriptなのは分かっておりますが、
そのVBScriptは、VB2008のコードに書き直して
使用することはできないのでしょうか？

また、過去ログには、VBのコードでのサンプルが
記述された以下のようなページもありますが、

http://social.msdn.microsoft.com/Forums/en-US/windowsopticalplatform/thread/f73e5d11-f7e7-4b7b-9e8a-d2f2237f2ee2/
(VistaでCDを焼くVBのサンプルコード)

どうしても、

Dim DiscMaster As New MsftDiscMaster2

のようなオブジェクトの宣言で、
「型 MsftDiscMaster2が宣言されていません。」
と出てしまいます。

VBでIMAPI2を使用するには、
imapi.dllの参照設定等をする必要があるのでしょうか？

オショウ 2009-03-11 16:18:17 No: 145815

それも魔界の仮面弁士殿があげられているＵＲＬの５件目
に書かれてますが・・・

要は参照設定が抜けている為、IMAPI2の機能が呼べないの
です。

参照設定でCOMタブの方の
Microsoft IMAPI2 Base Functionality
Microsoft IMAPI2 File System Image Creator

を選択して下さい。

以上。

KO 2009-03-11 22:31:58 No: 145816

オショウ様

参照設定を付け加えたところ、
無事動作し、CDへの書き込みが出来ました。

ありがとうございました。

また、今後同じ問題でつまづく人の為に、
ひとつ付け加えると、

http://social.msdn.microsoft.com/Forums/en-US/windowsopticalplatform/thread/f73e5d11-f7e7-4b7b-9e8a-d2f2237f2ee2/

のサンプルコードはIMAPIの定義の部分で、
やはりエラーになってしまうので、一部書き換えが必要です。

例
Dim DiscMaster As New MsftDiscMaster2
↓
Dim DiscMaster As New IMAPI2.MsftDiscMaster2

この書き換えで、問題なく書込みまで
動作確認が出来ました。