相当于VB.NET WaitOne（）＆amp;在Delphi中设置（）

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 AutoResetEvent的Delphi是TEvent。

• 当create为False参数传递ManualReset时，会为您提供自动重置事件。
• 要等待活动，请致电WaitFor。
• 要设置活动，请致电SetEvent。