Relais am Com-Port [Lösung aus C in Delphi nutzerbar?]

[sentinal]

Hallo,

ich habe mir auf meinem Linux mal vor einiger Zeit eine Möglichkeit zusammengebaut um am COM-Port direkt die Spannung auf einigen Pinnen zu bestimmen. Diese Lösung war in C und ich habe sie unten hingeschrieben. Die Frage ist nun, kann man dies auch in Delphi unter Windows so direkt ansteuern?

Code:

int main(int argc, char *argv[])
{
   int fd = 0, currstat = 0;

    if((fd = open(argv[1], O_RDWR | O_NDELAY)) < 0) {
      printf("Fehler: Device \"%s\" kann nicht geöffnet werden.\n", argv[1]);
      return 2;
    } 
    currstat |= TIOCM_RTS; // RTS an
    ioctl(fd, TIOCMSET, &currstat);
    usleep(500000);
    currstat &= ~TIOCM_RTS; // RTS aus
    ioctl(fd, TIOCMSET, &currstat);
    close(fd);
    return 0;
}

sentinal