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

[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)