Эквивалент VB.NET WaitOne() & Set() в Delphi

Question

Может ли кто-нибудь сказать мне, что является эквивалентом этого кода vb в Delphi?

Нужно ли мне использовать:

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

Преимущества Delphi эквивалентно .net AutoResetEventTEvent это.

• Когда вы create это передать False для ManualReset аргумента, который даст вам событие автоматического сброса.
• Чтобы дождаться события, позвоните по телефону WaitFor.
• Для того, чтобы установить мероприятие, позвоните по телефону SetEvent.