کسی میتونه این خطا را برطرف کنه

[afshinrz]

این کد سی شارپ را به دلفی تبدیل کردم اما خطا میده کسی میتونه راهنمایی کنه ؟

    

private void axCZKEM1_OnAttTransaction(int iEnrollNumber, int iIsInValid, int iAttState, int iVerifyMethod, int iYear, int iMonth, int iDay, int iHour, int iMinute, int iSecond)



  lbRTShow.Items.Add("RTEvent OnAttTrasaction Has been Triggered,Verified OK")

  lbRTShow.Items.Add("...UserID:" + sEnrollNumber)

    

تبدیلش کردم به این کد :

 var

 iEnrollNumber,

 iIsInValid,

 iAttState,

 iVerifyMethod,

 iYear,

 iMonth,

 iDay,

 iHour,

 iMinute,

 iSecond :integer;



 begin

    CZKEM1.OnAttTransaction(iEnrollNumber,iIsInValid,i  AttState,iVerifyMethod,iYear,iMonth,iDay,iHour,iMi  nute,iSecond);

    AddInfo('RTEvent OnAttTrasaction Has been Triggered,Verified OK');

    AddInfo('...UserID:' + IntToStr(sEnrollNumber));



  

اینم تصویر خطا
khata.jpg

[Mask]

الان CZKEM1 چیه؟
چطوری تعریف شده؟

[afshinrz]

یک دستگاه اثر انگشتی هست که فایل dll داره وقتی نصب میکنم از توابع CZKEM1 میتونم توی برنامه استفاده کنم حالا نمیدونم راه و درست رفتم یا جای دیگه توی برنامه باید معرفی بشه یا نه

[afshinrz]

الان CZKEM1 چیه؟
چطوری تعریف شده؟

اینم کد ویژوال بیسیک اگه کمکی میکنه

If axCZKEM1.RegEvent(iMachineNumber, 65535) = True Then

  AddHandler axCZKEM1.OnAttTransaction, AddressOf axCZKEM1_OnAttTransaction

End If

Private Sub axCZKEM1_OnAttTransaction(ByVal iEnrollNumber As Integer, ByVal iIsInValid As Integer, ByVal iAttState As Integer, ByVal iVerifyMethod As Integer, _

                      ByVal iYear As Integer, ByVal iMonth As Integer, ByVal iDay As Integer, ByVal iHour As Integer, ByVal iMinute As Integer, ByVal iSecond As Integer)

  lbRTShow.Items.Add("RTEvent OnAttTrasaction Has been Triggered,Verified OK")

  lbRTShow.Items.Add("...UserID:" & sEnrollNumber)