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

[flomei]

Kommt auf die Windows-Version an.
Win9x und ME sind kein Problem, bei allem darüber brauchst du nen Treiber o.ä.

MFG Florian

[sentinal]

Hallo,

es geht um Server 2003...

Kann man den Port nicht einfach öffnen so wie bei Linux?

sentinal

[Robert Marquardt]

Es laesst sich machen. Schlimmstenfalls braucht man einen Treiber.
Am besten ist es in der Modding-Szene zu suchen.
Dort moechte man mit wenig Geld die unmoeglichsten Gimmicks ansteuern.
Konsequenterweise gibt es dort Software fuer serielle und parallele Schnittstellen.
http://www.modding-faq.de ist z. B. eine Adresse von der man starten kann.

[x000x]

Moin moin,

dein C -code sollte in delphi so aussehen...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Comport : String;
    FHandle : THandle;
begin
   ComPort := '\\.\COM1'; // Für Com1
   FHandle := THandle( CreateFile(PChar(ComPort), GENERIC_READ or GENERIC_WRITE,
                       0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL or FILE_FLAG_OVERLAPPED, 0));
   if FHandle = INVALID_HANDLE_VALUE then
      Exit;
   try
      // RTS An
      if Not EscapeCommFunction(FHandle, SETRTS) then
         // Error ?!
         Exit;
      Sleep(500);
      // RTS Aus
      if Not EscapeCommFunction(FHandle, CLRRTS) then
         // Error ?!
         Exit;
   finally
      FileClose(FHandle);
   end;
end;

PS: Denke mal es funktioniert so, schlagt mich aber nicht wenn ich falsch liege
(Habe nicht wirklich nen Plan von der Materie)

[100nF]

hi,

hab auch mal sowas gebaut. den code habe ich von hier.

benutze winXP und es hat funktioniert. ich denke es solte auch auf Server 2003 laufen...

gruss
urbanbruhin

[sentinal]

Hallo,

also der Code von x000x klappt super.

Nun muss ich mich nurnoch mit ISDN-Karten und Diensten rumschlagen.

Mal sehen ob man von Delphi irgendwie auf die ISDN-Karte zugreifen kann, aber das gehört dann ja nicht mehr in dieses Thema.


Besten Dank!!

sentinal