Ich bleib im Case hängen

[Daniel B]

Zitat von jbg:

Ändert sich der Wert von ComPort1.InputCount? Wenn ja, was ich annehme, dann solltest du das ganze in eine while-Schleife umwandeln, da bei einer for-Schleife der Ziel-Wert nur einmal ausgewertet wird. Also bei einer Änderung von InputCount iteriert die for-Schleife immernoch bis zum alten Wert, der beim Eintritt in die Schleife von InputCount zurückgeliefert wurde.

Jain, in dem Fall bekomme ich immer zwei Bytes. Und InputCount gibt mir die Anzahl der Bytes im Puffer der Seriellen Schnittstelle. Dadurch lese ich entweder alles was drin ist, oder halt immer zwei Bytes, weil nach meiner Anforderung nur noch zwei zurückkommen. Im prinzip könnte ich es auch fest auf 2 schreiben.

Zitat:

Hast du auch das sCom[2] auskommentiert, oder zumindest auch 2 Zeichen eingelesen?

Ja, bringt aber nichts.

Grüsse, Daniel

[janjan]

benutz doch die Async Kompos, die sind für alles was mit der seriellen Schnittstelle zu tun hat absolut zu empfehlen:
http://sourceforge.net/projects/tpapro/

Da sind zwei Komponenten dabei die dir weiterhelfen sollten, ApdComPort und ApdDataPacket. Das eine ist für die Initialisierung des Com-Ports verantwortlich, das andere lauscht nach bestimmten Paketen.
In deinem Fall bräuchtest du einmal den Comport und zwei Pakete. Bei dem einen Paket stellst du als Anfangsbuchstabe #0 ein und eine Länge von 2 Zeichen, das andere hat den Anfangsbuchstaben #1 und die Länge zwei. Nachdem du den Comport initialisiert hast, lauschen die beiden Paketkompos nach den eingestellten Paketen.
Angenommen es kommt ein #0 und noch ein Zeichen, dann wird ein Event ausgelöst:

Delphi-Quellcode:

procedure TForm1.ApdDataPacket1StringPacket(Sender: TObject; Data: String);
begin

end;

In Data steckt dein Paket drin und du kannst es da weiterbearbeiten.

Probier die Komponenten einfach mal aus, ich bin absolut begeistert

[Daniel B]

Hallo janjan,

das kommt nicht in frage. Ich bentuze diese Komponente in zu vielen Programmen. Eine umstellung wäre katastrophal. Ausserdem bin ich auch damit sehr zufrieden. Das Problem was ich jetzt habe liegt ja auch nicht an der Komponenten, sondern an der auswertung der Daten, denk ich.

Grüsse, Daniel

[janjan]

Ich würd eventuell die Zeile
ComPort1.ReadStr(sCom, 1); durch sowas hier ersetzen:

Delphi-Quellcode:

if ComPort1.ReadStr(sCom, 1) = 1 then 
  begin
  ...
  end;

Sollte eigentlich auch so klappen, aber wer weiß das schon genau...

[Daniel B]

Zitat von janjan:

Ich würd eventuell die Zeile
ComPort1.ReadStr(sCom, 1); durch sowas hier ersetzen:

Delphi-Quellcode:

if ComPort1.ReadStr(sCom, 1) = 1 then 
  begin
  ...
  end;

Sollte eigentlich auch so klappen, aber wer weiß das schon genau...

Das würde nichts bringen. Ich sag ja schon sCom, 1! ich lese ein Byte. Und da das Ereigniss, sprich die Prozedur nur ausgelöst wird, wenn was in den Buffer kommt, lese ich somit nur 1 und das immer. Das würde keinen Sinn machen. Ich lese ein Byte, oder gar nichts, in dem Fall wird auch die ganze Prozedur nicht aufgerufen.

Grüsse, Daniel

[janjan]

Schon klar, deswegen ja auch mein:

Zitat von janjan:

Sollte eigentlich auch so klappen, aber wer weiß das schon genau...

Das war das einzige was mir noch zu dem Problem eingefallen ist...

[Daniel B]

[quote="janjan"]Schon klar, deswegen ja auch mein: Das war das einzige was mir noch zu dem Problem eingefallen ist.../quote]
Macht ja nichts. War ja gut gemeint. Vielleicht braucht man sowas bei anderen Komponenten, aber nicht bei der TComPort.

Grüsse, Daniel

[DataCool]

Hi,

ich hab das ganze Posting nur überfolgen, aber ich bin der Meinung, dass
Du folgendes versuchen solltest :

Code:

var
 sCom, sByte: String;
 iFor: Integer;
begin
{ ComPort1.ReadStr(sCom, 2);
 sByte := '';
 Delay;
 sByte := IntToStr(Byte(sCom[2]));
 ShowMessage('Daten: ' + sByte); }
 ComPort1.ReadStr(sCom,ComPort1.InputCount);
 for iFor := 1 to Length(sCom) do
 begin
  sByte := sCom[iFor];
  begin
   case sCom[iFor] of
         #0 : begin
             ShowMessage(IntToStr(Ord(sCom[iFor]))); ***
             //ShowMessage(IntToStr(Ord(sCom[2])));
            end;
         #1 : begin
//             ShowMessage(IntToStr(Ord(sByte)));
//             ShowMessage(IntToStr(Ord(sByte])));
            end;
   end; //case
  end; //begin
 end; //for
end;

Das kann jetzt auch totaler SChwachsinn sein, aber ich weiss ja nicht was Du genau machen willst ?!

Data

[Udo]

@Daniel

Da folgendes funktioniert:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
  sCom: string;
  sByte: Char;
  iFor: Integer;
begin
  sCom := #0#1;
  for iFor := 1 to Length(sCom) do
  begin
    sByte := sCom[iFor];
    begin
      case sCom[iFor] of
        #0:
          begin
            ShowMessage(IntToStr(Ord(sCom[iFor])));
            //ShowMessage(IntToStr(Ord(sCom[2])));
          end;
        #1:
          begin
            ShowMessage(IntToStr(Ord(sByte)));
            // ShowMessage(IntToStr(Ord(sByte])));
          end;
      end;
    end;
  end;
end;

Keine Ahnung ob man Alles auf einmal aus dem Buffer lesen muss aber sByte sollte bestimmt ein Char sein.

Gruss
udo