AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Win32/Win64 API (native code) Delphi Serielle Schnittstelle - Bitfolge übertragen

Serielle Schnittstelle - Bitfolge übertragen

Ein Thema von Koasa · begonnen am 11. Jan 2007 · letzter Beitrag vom 11. Jan 2007
Antwort Antwort
Koasa

Registriert seit: 11. Jan 2007
2 Beiträge
 
#1

Serielle Schnittstelle - Bitfolge übertragen

  Alt 11. Jan 2007, 10:20
Hi,

ich müsste für meine Diplomarbeit Daten von PC und µC austauschen.
Dafür habe ich das Zusatzpaket AsyncProf für Delphi installiert, das auch wunderbar funktioniert, wenn ich Charakters schicken möchte.
Ich bin allerdings noch nicht dahinter gekommen, wie ich einfach eine bestimmte Bitfolge (zB 10101100) senden kann, da ja alles char-basiert ist. Kann mir da vl jemand weiterhelfen?

Schon einmal danke für die Antoworten,

MfG Stefan
  Mit Zitat antworten Zitat
Benutzerbild von chaosben
chaosben

Registriert seit: 27. Apr 2005
Ort: Görlitz
1.358 Beiträge
 
Delphi XE2 Professional
 
#2

Re: Serielle Schnittstelle - Bitfolge übertragen

  Alt 11. Jan 2007, 10:24
Aus der Hüfte geschossen würde ich sagen: Sende doch einfach ein '¬' was deiner Bitfolge als Zeichen entspricht.
Benjamin Schwarze
If I have seen further it is by standing on the shoulders of Giants. (Isaac Newton)
  Mit Zitat antworten Zitat
Benutzerbild von ste_ett
ste_ett

Registriert seit: 10. Sep 2004
Ort: Dülmen
464 Beiträge
 
Delphi 7 Professional
 
#3

Re: Serielle Schnittstelle - Bitfolge übertragen

  Alt 11. Jan 2007, 10:24
Du sendest einfach die Zahl, die deiner Bitfolge entspricht.

10101100 (2) <=> 172 (10)
Stefan
"Geht nicht!" ist keine Fehlerbeschreibung und "Hab ich schon versucht!" keine Antwort!

Hey, it compiles! Ship it!
  Mit Zitat antworten Zitat
Koasa

Registriert seit: 11. Jan 2007
2 Beiträge
 
#4

Re: Serielle Schnittstelle - Bitfolge übertragen

  Alt 11. Jan 2007, 11:53
Ja aber welchen befehl soll ich dabei verwenden?

der normale befehl zum senden sieht ja zb so aus:
ApdComPort1.OutPut := 'A';

wenn ich statt A 170 schreibe, interpretiert er das doch als String und nicht als Zahl 170, die binär 10101100 entspricht.
  Mit Zitat antworten Zitat
Benutzerbild von chaosben
chaosben

Registriert seit: 27. Apr 2005
Ort: Görlitz
1.358 Beiträge
 
Delphi XE2 Professional
 
#5

Re: Serielle Schnittstelle - Bitfolge übertragen

  Alt 11. Jan 2007, 11:57
Imho hieß die Funktion, die dir dabei hilft, 'Ord'.
Benjamin Schwarze
If I have seen further it is by standing on the shoulders of Giants. (Isaac Newton)
  Mit Zitat antworten Zitat
Maja Jessica

Registriert seit: 16. Apr 2005
Ort: Dortmund
92 Beiträge
 
Delphi 4 Standard
 
#6

Re: Serielle Schnittstelle - Bitfolge übertragen

  Alt 11. Jan 2007, 12:42
Hi,

wenn du z.B. in einem TEdit die Zeichenfolge als String, wie "10101010", eingeben und senden möchtest, könnte dieses helfen:

Delphi-Quellcode:
function IntOfBin(Bin: string): Cardinal;
var
  i: Integer;
begin
  Result := 0;
  Bin := Copy(Bin, 1, 32);
  for i := Length(Bin) downto 1 do
    if Bin[i] = '1then
      Inc(Result, 1 shl (Length(Bin) - i));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(IntOfbin(edit1.Text))+ ' ist das Zeichen '+ chr(IntOfbin(edit1.Text)));
// ApdComPort1.OutPut := chr(IntOfBin(Edit1.Text);
end;
Die hübsche Function IntOfBin ist nicht von mir, habe ich hier im Forum gefunden.

Gruß, MJ
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:23 Uhr.
Powered by vBulletin® Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2019 by Daniel R. Wolf