String über Serielle Schnittstelle

[marabu]

Hallo,

alle von dir benötigten Informationen finden sich in deinem Thread:

Delphi-Quellcode:

sendbyte (Length(Edit1.Text));

Grüße vom marabu

PS: Mit deinem Nick auf einer Visitenkarte stehen dir in der IT-Welt Türen und Tore offen ...

[Der_Unwissende]

Hi, wie genau überträgst Du denn im Moment was?

Wenn Du die Anzahl der Stellen überträgst, dann nochmal der Hinweis darauf, dass Du hier Byteweise verschickst. Hast Du <= 255 Stellen, kannst Du einfach die Länge in ein Byte casten - Byte(Length(s)) - und verschicken. Bei größeren Zahlen musst Du auf Seiten des Empfängers erst die Zahl aus mehreren Bytes zusammensetzen (mittels Shift-Operationen und logischem Oder).

Ok, sehe gerade dass der marabu wieder schneller war!

Gruß Der Unwissende

[GierigeSau]

Hey, es klappt noch nicht... ich versteh das nicht. Die Zahlen einzeln übertragen macht das Prog, aber obwohl ich vorher

Delphi-Quellcode:

za := Byte(length(Edit1.Text));
sendbyte(za);

mach, klappt es nicht, aber dies ist auch nicht die einzigste möglichkeit die ich getestet habe, habe schon alles probiert...

Delphi-Quellcode:

sendbyte(length(Edit1.Text));

oder

Delphi-Quellcode:

za := length(Edit1.Text);
sendbyte(za);

ich versteh im moment nur noch bahnhof...

[GierigeSau]

Bitte nicht schlagen... :wall: :wall: :wall:
Zum merken für mich selber:"
Man sollte zum überprüfen des Source nicht einen 2. PC anschließen, mit einem Terminal-Prog was nur "ganz-zahlen" und keine "Bytes" darstellt! :coder2: "

*autsch, das tat weh...

Trotzdem Danke an euch. :dp: :spin2:

[marabu]

Hallo,

wenn die Übertragung mit dem Code aus Beitrag #6 funktioniert, dann empfehle ich dir folgende kleine Änderung:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var 
  i: Integer;
  s: ShortString;
begin
  if Edit1.Text <> '' then
  begin
    // Damit nicht bei jedem Zugriff auf ein Zeichen von Edit1.Text
    // Windows in Aktionismus ausbricht (ist gar nicht so einfach an diesen Text heran
    // zu kommen), speichern wir den Text in einen ShortString um.
    // So erhalten wir auch gleich das Längenbyte.
    s := Edit1.Text;
    // über den ganzen String iterieren
    // Achtung, Strings sind 1 indiziert, dynamische Arrays beginnen bei 0!

    // s[0] enthält die Längeninformation ...
    for i := 0 to length(s) do
    begin
      // Edit1.Text[i] = das i-te Zeichen aus Edit1.Text
      // ord(ZEICHEN) = der Ordinale Wert des ZEICHEN
      SendByte(Ord(s[i]));
    end;
  end else
  begin
    ShowMessage ('Telefon-Nummer eingeben!');
  end;
end;

Freundliche Grüße