IMAPI2 в индикаторе прогресса VB 2008 - PullRequest
Новая
       36

IMAPI2 в индикаторе прогресса VB 2008

1 голос
/ 24 сентября 2010

Я начинаю делать программу, которая будет записывать CD / DVD, и все в порядке.Я нашел способ записи с помощью API IMAPI2, но теперь у меня проблема: я не могу получить индикатор выполнения этого записи.Вот код: 

Dim CDD1 As New IMAPI2.MsftDiscMaster2
Dim CDD2 As New IMAPI2.MsftDiscRecorder2

Dim FSI As New IMAPI2FS.MsftFileSystemImage
Dim CDD3 As New IMAPI2.MsftDiscFormat2Data

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim Index = 0
    Dim UniqueID = ""
    Dim Directory
    Dim Path = "C:\lll"
    Dim result
    Dim Stream

    Label1.Text = "----- Started -----."

    UniqueID = CDD1.Item(Index)
    Label1.Text = Label1.Text & vbCrLf & "ID found: " & UniqueID

    CDD2.InitializeDiscRecorder(UniqueID)
    Label1.Text = Label1.Text & vbCrLf & "Recorder selected!"

    Directory = FSI.Root
    Label1.Text = Label1.Text & vbCrLf & "Directory is here: " & Directory.ToString

    CDD3.Recorder = CDD2
    Label1.Text = Label1.Text & vbCrLf & "Recorder 2 selected!"

    CDD3.ClientName = "IMAPI2 TEST"
    Label1.Text = Label1.Text & vbCrLf & "Client Name Selected!"

    FSI.ChooseImageDefaults(CDD2)
    Label1.Text = Label1.Text & vbCrLf & "Default selected!"

    Directory.AddTree(Path, False)
    Label1.Text = Label1.Text & vbCrLf & "Directory added!"

    result = FSI.CreateResultImage()
    Stream = result.ImageStream

    Label1.Text = Label1.Text & vbCrLf & "Writing content to disc..."

    If (CDD3.IsCurrentMediaSupported(CDD2) = True) Then
        If (CDD3.IsRecorderSupported(CDD2) = True) Then

            CDD3.Write(Stream)

        Else
            MsgBox("Not Suported Recorder!")
        End If
    Else
        MsgBox("Not Suported Media!")
    End If

    Label1.Text = Label1.Text & vbCrLf & "----- Finished -----"

End Sub

Когда команда

CDD3.Write (поток)

запущена, программа зависла и не отвечаетдо полной записи данных.

Есть ли способ остановить это, остановить зависание программы и включить индикатор выполнения?

Спасибо.

1 Ответ

1 голос
/ 24 сентября 2010

Вам нужно использовать многопоточность. Таким образом, в вашем обработчике нажатия кнопки вы запускаете новый поток, который выполняет фактическое прожигание, и пока он происходит в отдельном потоке, основной поток может продолжать обновлять графический интерфейс пользователя (включая индикатор выполнения).

См. Thread.Start для простого примера, и если вам нужна дополнительная информация, я бы предложил начать здесь: Управляемая многопоточность

...