dotNETportal.cz

Tento kód funguje - RW vymaže, ale eventy se nezachytávají. Ví někdo proč? Případně i jak na to, aby pracovali?

Module Module1

Dim DiscMaster As IMAPI2.MsftDiscMaster2 = New IMAPI2.MsftDiscMaster2
Dim DiscRecorder2 As IMAPI2.MsftDiscRecorder2 = New IMAPI2.MsftDiscRecorder2

Dim WithEvents DiscFormat2Erase As New IMAPI2.MsftDiscFormat2Erase

Sub Main()

DiscRecorder2.InitializeDiscRecorder(DiscMaster.Item(0))
DiscFormat2Erase.Recorder = DiscRecorder2

If DiscFormat2Erase.IsRecorderSupported(DiscRecorder2) = True Then
If DiscFormat2Erase.IsCurrentMediaSupported(DiscRecorder2) = True Then

DiscFormat2Erase.FullErase = False
Console.WriteLine("Rychlé vymazání média ...")
DiscFormat2Erase.ClientName = "App.ProductName"

DiscRecorder2.AcquireExclusiveAccess(False, "App.ProductName")
DiscFormat2Erase.EraseMedia()
DiscRecorder2.ReleaseExclusiveAccess()

Console.WriteLine("Medium vymazáno.")

MsgBox("The media has been erased.", vbInformation)
Else
MsgBox("Disk nemůže být vymazán.", vbInformation)
End If
Else
MsgBox("Disk není přepisovatelný.", vbInformation)
End If
End Sub

Private Sub DiscFormat2Erase_Update(ByVal [object] As Object, ByVal elapsedSeconds As Integer, ByVal estimatedTotalSeconds As Integer) Handles DiscFormat2Erase.Update
Console.WriteLine("Event:", elapsedSeconds, estimatedTotalSeconds)
End Sub

End Module

Označujte prosím přístě kód značkou kódu. Doplnil jsem je teď ručně.

Děkuji, ale uvítal bych spýše odpověď na otázku.

To je nám jasné, ale evidentně odpověď nikdo nezná. Já bych to třeba i vyzkoušel, ale nemůžu najít zrovna žádné RWčko.

Můj tip je, že metoda EraseMedia je blokující, a tudíž je celé hlavní vlákno zablokované, čímž pádem nereaguje na události. Ale tu knihovnu neznám, takže nemůžu poradit.

To chápu, ale v první řadě musíme udržet v diskuzích pořádek.