TSerial - RS232 ansprechen

[arnold mueller]

Zitat von christian_u:

Es gibt keine Möglichkeit herauszufinden ob etwas an der Schnittstelle hängt, die daten werden dann also einfach ins nirvana gesendet.

Die Handshake Leitungen DTR/DSR nutzt man normalerweise, um herauszufinden, ob die Gegenstelle angeschlossen ist.

Grundlagen gibt es hier:
http://www.sprut.de/electronic/inter...s232/rs232.htm

-
arno

[delphihasen]

Hallo erstmal,

vielen Dank für die Com Unit! Hab allerdings ein Problem:
Ich mochte den Port RTS auf High schalten.

So hab ich mir das vorgestellt

Delphi-Quellcode:

//////////////////////////////////////////////////////////////////////////////////////
procedure TForm1.Button1Click(Sender: TObject);
begin

  with TCom.Create(nil) do
  try
    // com öffnen
    if Open(COM,RTS_DISABLED,DTR_DISABLED) then
    begin
        Memo1.Lines.Add ('Com'+IntToStr(Com)+' ausgewählt!');
        SetRTS(akt);
    end;
  finally
    // com schließen
    Close;
    Free;
end;
///////////////////////////////////////////////////////////////////

Bei der Prozedur SetRTS gibt Delphi mir allerdings die Fehlermeldung "Missing Operator" aus. Die Variable akt(boolean) habe ich zuvor jedoch schon true zugewiesen...

Kann mir jemand helfen???


Vielen Dank für eure Mühen

[DeddyH]

Schmeiß erst einmal das "with" raus. Und dann scheint da noch das "end" zum "finally" zu fehlen.

[delphihasen]

Ohne with gehts gar nicht. Sorry end war noch drin-->habs lediglich nicht mitkopiert...

Denke das Problem liegt an der Prozedur:

Delphi-Quellcode:

procedure TCOM.SetRTS(const Value: boolean);
begin
  if (Value = True) then
    EscapeCommFunction(FHandle, WinTypes.SETRTS)
  else
    EscapeCommFunction(FHandle, WinTypes.CLRRTS);
end;

Um diese auszuführen bzw. RTS zu schalten sollte ich sie doch lediglich so:
SetRTS(true); ausführen können oder nicht?

[DeddyH]

Wie ist es so (ohne with)?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  ACom: TCom;
begin
  ACom := TCom.Create(nil);
  try
    // com öffnen
    if ACom.Open(COM,RTS_DISABLED,DTR_DISABLED) then
      try
        Memo1.Lines.Add ('Com'+IntToStr(Com)+' ausgewählt!');
        ACom.SetRTS(akt);
      finally
        // com schließen
        ACom.Close;
      end;
  finally
    ACom.Free;
  end;
end;

[edit] Steht da wirklich ein Vergleich mit true im Komponentencode? Wirf den lieber raus, da fehleranfällig. [/edit]

[guinnes]

Zitat von delphihasen:

Delphi-Quellcode:

procedure TCOM.SetRTS(const Value: boolean);
begin
  if (Value = True) then
    EscapeCommFunction(FHandle, WinTypes.SETRTS)
  else
    EscapeCommFunction(FHandle, WinTypes.CLRRTS);
end;

http://www.delphi-treff.de/tutorials...faengerfehler/

[himitsu]

Das =True ...
Liegt aber nicht am delphihasen.


Was ist akt ?
Und an RTS_DISABLED kann es nicht liegen?

[delphihasen]

akt ist boolean die ich true gesetzt hab

[mkinzler]

 if (Value = True) then
Niemals auf True Prüfen!

Einfach If value

[DeddyH]

Möchte das jetzt noch jemand erwähnen?