相当于Delphi中的VB.NET WaitOne()和Set()

Question

谁能告诉我在Delphi中这个vb代码的等价物是什么？

我需要使用:

ResetMyEvent: THandle; //??

这些VB行从一个小型控制台应用程序复制.没有可视组件.

谢谢.

Module MyModule
  Private WithEvents Obj As MyInterface
  Private WaitForStartLibrary As AutoResetEvent = New AutoResetEvent(False)

Sub Main()
  Obj.StartLibrary(param1, param2,...)

  If WaitForStartLibrary.WaitOne(5000) = False Then//How can I do this w/out timer comp ?
    Throw New Exception("Operation timed out")
  End If
End Sub

//Event
Private Sub StartLibraryCallBack() Handles Obj.StartLibraryCallBack
  WaitForStartLibrary.Set()
End Sub

Answer 1

相当于.net的Delphi AutoResetEvent是TEvent.

• 当你创建它传递False了ManualReset,这将给你一个自动重置事件的说法.
• 要等待活动,请致电WaitFor.
• 要设置活动,请致电SetEvent.