Need help with code example for FTDI chip

[meti]

delphi ftdi

Hi everybody,

currently I'm working on simple project using FTDI chip MM232R and D2XX driver. Im using Delphi for programming. I can not make work notification event.
Can simeone help me and send a Delphi code sample showing how to install notification event handler, and how to use it?

Thank you in advance

 

[meti]

ftdi delphi

Let's make it more simple. Here is a code, the process stops on WaitForSingleObject, the next line of code neve executes even if the modem status changed.

---

Code C++ - [expand]
1
2
3
4
5
6
7
FT_Event_Handle := CreateEvent(Nil,FALSE,FALSE,'');
Set_USB_Device_Event_Notification(FT_EVENT_MODEM_STATUS or FT_EVENT_RXCHAR);
while(true) do
  begin
    WaitForSingleObject(FT_Event_Handle, INFINITE);
    PortEventHandle;
  end;

---

Where is an error?