Was passiert wenn Du
auf einem
Button
ComPort.WriteStr(#$99);
hast
auf einem anderen
ComPort.WriteStr(#$01#$02#$00#$00#$00#$00#$3C);
FInBuffer als Klassen oder auch mal als globale Variable
Delphi-Quellcode:
Function Hexit(const s:AnsiString):String;
var
i:Integer;
begin
Result := '';
for I := 1 to Length(s) do Result := Result +'$' +IntToHex(Byte(s[i]),2) +' ';
end;
procedure TwasAuchImmer.Comport1RxChar(Sender: TObject; Count: Integer);
var
s:AnsiString;
begin
BaseSerial1.ReadStr(s,Count);
FInBuffer := FInBuffer + s;
Memo1.Text := Hexit(FInBuffer );
end;
FInBuffer: AnsiString; //so als globale variable ?
Wenn ja dann steht bei
ComPort.WriteStr(#$99);
das "$99" im Memo1.Text
und bei
ComPort.WriteStr(#$01#$02#$00#$00#$00#$00#$3C);
das "$01 $02 $00 $00 $00 $00 $3C "