TSerial - RS232 ansprechen

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

[delphihasen]

Zitat:

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

Einfach If value

Hab ich mal geändert. Es bleibt dabei:
Missing operator or semicolon



Ohne with gehts gar nöscht.


Ich verstehs echt nicht. Ist ja nun wirklich keine schwere Sache EIGENTLICH...Will bloß eine Prozedur von arnold müller benutzen...

[DeddyH]

Evtl. Probleme wegen Namensgleichheit der Methode und der Konstanten?

[ZamKirill]

Servus zusamm und vielen Dank für die Klasse. Die funktioniert bei mir fast und ich würde gerne fragen, woran es liegt und was ich ändern muss, damit es richtig funktioniert.

Code:

  Port := TCOM.Create(nil);
  Port.Baud := 2400;
  Port.Stopbits := TWOSTOPBITS;
  Port.Parity := EVENPARITY;
  Port.Databits := 7;
  Port.Open(1, RTS_DISABLED, DTR_DISABLED);
  Port.Send(PChar(Message), Length(Message)*2);
  Port.Close;
  Port.Free;

Message wird auf AnsiString(#75#54#13#10); festgelegt, was K6CRLF bedeuten sollte. Mein Sniffer, den ich am COM zwecks Tests dran hängen habe, zeigt dabei K[]6[]CR[]LF[]. Was [] ist, sagt er nicht weiter, wobe ich das Nullbyte vermute (wenn ich AnsiString(#00) sende, zeigt der Sniffer genau [] an).
Anscheinend hängt der an jedes übertragene Zeichen irgendwas an, wie kann ich das verhindern?

[Bummi]

Delphi >= 2009 ??
Nimm für seriell AnsiString, AnsiChar, PAnsiChar etc ...