IOCTL von C nach Delphi portieren

[NetSonic]

Ok, hier nachfolgend der originale c-aufruf

Code:

DWORD   nReturn;
WDTPARAM   cParam;

typedef struct tagWDTPARAM {
   unsigned char   timeout;
   unsigned char   data_b;
} WDTPARAM, *PWDTPARAM;

void CDigitalIODlg::Onwrite() 
{   CHAR pbufio[256];
    UCHAR data_b;
   // TODO: Add your control notification handler code here
    m_edit1.GetWindowText(pbufio, sizeof(pbufio));   
   // MessageBox(pbufio,MB_OK);
    sscanf(pbufio, "%2x", &data_b); ;
   cParam.data_b = data_b;
   DeviceIoControl(((CDigitalIOApp*)AfxGetApp())->m_hDIO, IOCTL_SYS_DIO_WRITE,
   &cParam, sizeof(WDTPARAM), NULL, 0, &nReturn, NULL);
//   printf("Digital IO Write Successfully. \n");

//
}

Ich danke Dir schon mal für die Mühe, die Du Dir machst mir zu Helfen...