Auslesen der Schnittstelle mit SerialNG

[Delphieinsteiger]

Hallo

Ich habe da ein Problem mit dem Aulesen der seriellen Schnittstelle.Und zwar möchte ich mit der Komponente SerialNG die Werte die von einem Tempearaturdatenlogger kommen auslesen und in meiner Delphioberfläche anhand eines Arrays in einen Koordinatensystem bringen.Habe es durch probieren bislang soweit geschafft das ich Daten vom Logger empfange und zwar bin ich so vorgegangen:

SerialNG.Active:=True;
Memo1.Text:=SerialNG.ReadNextClusterAsString;

Jetzt habe ich alle Werte die der Logger aufgenommen hat(Bytes) als String in meiner Memobox.aber wie kriege ich diese Werte umgewandelt?ich würde meinen Arrays ja z.B am liebsten eine 23 für 23° übergeben.

Bin halt noch ein Anfänger auf den Gebiet und kenne mich mit der SerialNG-Komponente nicht aus,und mit Delphi arbeite ich auch erst seit 2 Wochen.Vieleicht kann mir jemand einen Vorschlag machen wie man an die Sache gehen würde.

[Der_Unwissende]

Hi,
erstmal eine Kleinigkeit vorweg, wenn Du Code posten möchtest, dann benutze dafür am Besten die Delphi-Tags, die finden sich über dem Eingabefeld, wo Du den Beitrag eingibst. Einfach einmal auf Delphi-Code clicken, Code einfügen und auf Delphi-Code* Clicken, dann wird der Code einfach schöner dargestellt (nur für's nächste mal, ist ja nichts Schlimmes!)

Zitat von Delphieinsteiger:

Jetzt habe ich alle Werte die der Logger aufgenommen hat(Bytes) als String in meiner Memobox.aber wie kriege ich diese Werte umgewandelt?ich würde meinen Arrays ja z.B am liebsten eine 23 für 23° übergeben.

Wie genau sehen denn die Daten aus die Du bekommst. Ich kenne die SerialNG-Komponente nicht (benutze immer TComPort), aber an sich bekommst Du beim Zugriff auf die serielle Schnittstelle immer etwas wie Bytes, die sehr häufig auch als String interpretiert werden müssen.
Bei der Übertragung gibt es aber verschiedene Möglichkeiten:

• Es werden Daten fester Länge übertragen
• Es wird ein Festes Datum (Anzahl der folgenden Daten) übertragen (
• Es werden Start- und/oder Endzeichen übertragen (Datum endet, sobald bestimmtes Zeichen empfangen wurde)

Letzteres umfässt natürlich auch die möglichen Kombinationen. Das Problem bei der RS-232-Schnittstelle ist eben, dass die Kommunikation asynchron ist, Du bekommst einfach nur mehrere Bytes, ob die zusammengehören oder nicht, ob ein Datum komplett übertragen wurde, das musst Du selbst entscheiden. Vorab also die Warnung, dass Du hier ggf. drauf achten müsstest (kann Dir aber eventuell auch von SerialNG abgenommen werden).

Wenn Du jetzt also ein Datum empfängst, welche Form hat es denn? Hast Du bereits einen String wie '23' oder gar '23°'? Und möchtest Du daraus jetzt ein Integer machen? Dazu kannst findest Du in der Unit SysUtils (in der Uses Klausel angeben) die Funktion StrToInt bzw. auch TryStrToInt. Letztere fängt dabei Fehler ab, wenn Du z.B. versuchst aus '1a0' eine Zahl zu machen. Die Funktion liefert ein Boolschen Wert zurück, ob die Umwandlung geklappt hat.
Für das Beispiel sähe dann die Umwandlung ungefähr so aus:

Delphi-Quellcode:

var temp: Integer;
begin
  // input ist der String, den Du in eine Temperatur umwandeln möchtest
  // Wenn Du das Grad-Zeichen dran hättest, musst Du das vorher entfernen
  // wenn nicht, die folgende Zeile weglassen
  input := copy(input, 1, Pos('°')); // Kopiert aus dem String input alles vom ersten Zeichen bis zum ersten Auftreten von '°'
  
  if not TryStrToInt(input, temp) then
  begin
    // Fehler bei der Umwandlung, irgendwas machen
  end;

  // in Temp steht nun der Zahlenwert der Temperatur
end;

Der umgekehrte Weg ist dann noch leichter, hier scheiden Fehler in der Eingabe aus. Ein Integer ist immer mit einer gültigen Zahl belegt und kann über IntToStr in einen String umgewandelt werden (ebenfalls in der Unit SysUtils deklariert).

Delphi-Quellcode:

var temp: String;
begin
  // input ist der Integer Wert, den Du in einen Temperatur-String umwandeln möchtest
  temp := IntToStr(input);

  // oder wenn Du ein Grad Zeichen dran haben möchtest 
  temp := IntToStr(input) + '°';
end;

Das ist jetzt natürlich nur der Weg, wenn Du ein einzelnen String oder Integer-Wert umwandeln möchtest. Du sagtest ja, dass Du gleich eine ganze Menge davon hast. Was Du also tun musst ist, diesen zu zerlegen. Wie man das am Einfachsten macht hängt aber eben von dem Aufbau ab. Je nachdem ob es ein Trennzeichen gibt oder ein Datum eine feste Länge hat kommen unterschiedliche Wege in Frage, sag einfach erstmal wie die Daten aufgebaut sind.

Gruß Der Unwissende

[Delphieinsteiger]

Danke erstmal für die guten Tipps!

also ich kann ja nochmal beschreiben wie mein derzeitiger Stand ist.
also ich lese die Daten vom Logger aus,da bin ich so vorgegangen.

Delphi-Quellcode:

procedure TForm1.RS232RxClusterEvent(Sender: TObject);
begin
case n of
1..255:    begin
                string1:= string1 + rs232.ReadNextClusterAsString;
                label1.Caption:= inttostr(n);
           end;
256..510:  begin
                string2:= string2 + rs232.ReadNextClusterAsString;
                label2.Caption:= inttostr(n-255);
           end;
511..765:  begin
                string3:= string3 + rs232.ReadNextClusterAsString;
                label3.Caption:= inttostr(n-510);
           end;
766..1020: begin
                string4:= string4 + rs232.ReadNextClusterAsString;
                label4.Caption:= inttostr(n-765);
           end;
1021:      begin
                label5.Caption:= ' Speicher voll ';
                label5.Color:= clred;
           end;
end;
n:=n+1
end;

und lasse sie dann in einer memobox darstellen

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var m: integer;
begin
memo1.Clear;
for m:=1 to 1023 do
        case m of
        1..255:    Memo1.Text:= Memo1.text + string1[m];
        256..510:  Memo1.Text:= Memo1.text + string2[m-255];
        511..765:  Memo1.text:= Memo1.text + string3[m-510];
        766..1020: Memo1.text:= Memo1.text + string4[m-765];
end;
end;

Das dargestellte sieht dann ungefähr so aus (wobei das noch keinen realen Werte sind weil ich den datenlogger noch vernünftig programmieren muss,soll halt nur ein Test sein.Auch noch keine Angaben zu welchen Zeitpunkt Datum etc. die Daten ausgelesen wurden.

‡‡‡‡‡‡‡‡‡ÃØØ°ØØØØØØØØØØØØØØØØØØØØØØØØ°ØØØØØØØØØØØØ ØØØØØØØØØØØØØØØØ°ØØØ°ØØØØØØØØØØØØØØØØ° ØØØ°ØØØØØØØØØØØ°ØØØØØØØØØØØØØØØØØØ°ØØØØØØØØ°ØØØØØØ ØØØØØØØØØ°ØØØØØØØØØØØØØ° ØØØØØØØØØØØØØØØØØØØØØØ°ØØØØØØØØØØØØØØØØØØØØØØØØØØØ ØØØØØØØ° ØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØØÀ€ ðxPPðà ø`( �Xàhx°p ؈ˆð¨pˆð¸XX¸Èèø0hxxxð�€€À ¸à€�ÈèÐ�Ø°Ø ¸ Ph €¸�ð°pX@ðxP hX€p` �¸ X (`H0x؈°P € (@X€Ðà@P8иðÈ àø (@à 0àðØèÐà(PÈ0 ØÈ €Ð¨@xؘ0 (ÈÈðà¨H˜Øð00 �@xˆpXhØ(Pðà¨ÀxàÐøøÐhxè ¸ P@ ¸€p`°ð¸XX0ð Ø訸 h€˜x�€øÐøàxˆpXð(ð@ 0 èØP�0€X� (8 0@ð˜è°° h¨è` `H0 8 ø¨ø˜(@ p`Px8pX�x8À˜p8(xh€˜°ØÈPp¨hx˜ ÐÐp ðh¨ ( È8 à °8H˜Hè°ÈÈ ¨8° 8ø È°øøÐøèØ�€ °xx `H0@x è˜ÀÀ°Px¸¨À°Px`˜X@ØH¨Ð¨p`x0ø`x øàÈ°ÀÀ˜˜`Pð@0p8°ØˆÀøàÈ°Høø 8 ¨ ( ð °ÀX Øè H˜èØ �àøè°(``H0@ ø¨Ð˜Øðà˜ØxÈÈxèHà ` øÀÀ`PhXøÀ°PØè€�x`èøø˜8xh 8x�¸à è¨ðØ8 À` àøè � ðx8øXà ØØÈ àø ð¸àh °À (`è˜è°hX˜` ¸à@È(è¨�@PØ ¸XÀ°Èðà�x°˜Ð Ø è ˆx0 8x@à@ P`HàðÈ°Ø° @0 `xð à (8p0(`èè`(@ÐÀȸ °è¨h((ØØØÈààøèð h °˜¨hˆ ÀÀØðà˜` hà È8

das möchte ich dann aber in einem array bringen der auf meiner Form2 so ähnlich aussieht

Delphi-Quellcode:

TestWerte: ARRAY[1..31] of integer=(20,20,15,15,24,26,28,30,35,45,25,45,34,20,20,20,20,
                                        20,20,27,29,25,20,20,20,28,20,20,27,20,20);

und diese Werte werden dann in ein Koordinatensystem übergeben.also die 20 stellt z.B 20° im KO-system da.

und jetzt weiß ich nicht genau weiter,habe etwas von einer Ord() Funktion gelesen aber weiß nicht wie und wo ich die einbringen könnte.Kenne mich mit Delphi halt noch nicht so gut aus,war schon ziemlich froh das meine Oberfläche mit dem KO-System und so weiter fertig ist.jetzt halt das Problem mit den Werten dort hineinbekommen.ich würde mich freuen wenn man mir Tipps geben könnte.

[edit=Phoenix]Leerzeichen eingefügt, wegen des Layouts... Mfg, Phoenix[/edit]

[shmia]

Ganz offensichtlich sind deine Daten binär.
Hast du ein Doku, in der jedes Byte erklärt wird ?
Beispiel:

Code:

Byte | Bedeutung
   0 | STX (start of text)
 1- 4 | Temperatur in mK
   5 | Einheit 'C'=Celcius, 'F'=Fahrenheit
   6 | EOT (end of text)

Und kannst du hier die Zusammenfasung angeben ?

[Delphieinsteiger]

Leider habe ich keine Doku was das für Werte sind,habe einfach die meßwerte die ich mit einem Temperatursensor (KTY9) erfasse in einen microcontoller gebrannt und die dann in meine Memobox übertragen.Also zum Beispiel ein A ist laut ascii-code aus meinem Tabellenbuch eine 65.Gerade weil ich das nicht weiß würde ich ja gerne die Werte umwandeln.

[shmia]

Zitat von Delphieinsteiger:

Leider habe ich keine Doku was das für Werte sind

Schlecht!
Also solltest du die Daten erst mal in Hexadezimal Darstellung wandeln:

Delphi-Quellcode:

procedure TForm1.RS232RxClusterEvent(Sender: TObject); 
var
   hexstring : string;
begin 
   hexstring := StrToHexString(rs232.ReadNextClusterAsString);  // nach Hex wandeln
   string1:= string1 + hexstring + #13#10; 
   // gleich als eine Zeile in einem Memo anzeigen
   memo1.lines.add(timeToStr(Now)+ ' - ' + hexstring);
end;

StrToHexString ist hier.

[Delphieinsteiger]

Gibt es nicht die Möglichkeit das ich so wie ich es Auslese es sofort dezimal in meiner Memobox darstellen kann?Oder muss man es zuerst in hexadezimal wandeln?

[EDatabaseError]

In dem du jedes Zeichen mit Ord(char) in seinen Dezimalwert umwandelst

[Delphieinsteiger]

Danke

Aber wo kann ich das Ord(char) einbringen?Direkt in meine RS232RXClusterEvent Procedur?
Dann ungefähr so :

1..255: Begin
string1:=string1+rs232.ReadNextClusterAsString
String1:=Ord(char);
end;

[oki]

Hi,
bist du dir sicher, dass du die richtigen Schnittstellenparameter verwendest (Baud, Stoppbit ...)?
Ohne Doku ist es schon sau schwer was ordentliches hin zu bekommen, aber wenn dann auch noch falsche Schnittstellenparameter dazu kommen

Gruß oki