"ApdComPort" Tutorial?

[Teddyman]

Hallo,
weiss jemand, wie man mit dieser Komponente arbeitet?
Ich kenne mich leider nicht besonders damit aus!

DAnke. Mfg.

[Micha]

Eigentlich ist ja eine Hilfe-Datei mit dabei. Ich hab eine dafür.

Was willst du denn genau wissen?
ComPort öffnen, schließen, Daten senden ...?

Ich hab selber ist in den letzten Tagen angefangen mich damit zu beschäftigen.

[Teddyman]

Ich habe "TurboPower Async Professional - Version 4.06" installiert und will mit der Komponente "ApdComPort" serielle Schnittstellen einlesen.

[Micha]

Einlesen oder Auslesen?!

ComPort öffnen:

Delphi-Quellcode:

ApdComPort1.Open := true;

ComPort schließen:

Delphi-Quellcode:

ApdComPort1.Open := false;

Senden von Daten:

Delphi-Quellcode:

  ApdComPort1.Output := 'Dein Text'; // ich sende Daten zu einem LED-Laufband, es stehen dann bei mir hier, bevor der eigentliche Text kommt noch einige Angaben, wie z. B. Startkennung etc.

Im Objektinspector sind zudem noch einige Eingabe zu tätigen, z. B. (Angaben in Klammer sind die, wie ich sie eingestellt habe, kommt aber glaub ich drauf an, was du dann genau machen willst):

- Baud (9600)
- ComNumber (1)
- DataBits ('8')
- Parity (keine)
- RS485Mode (false)
- RTS (false)
- StopBits (1)

[runger]

Hallo,
hast du dir auch die Hilfe downgeloaded?
Dort ist ein Tutorial.
Wenn du nicht zurecht kommst schick ich dir ein Stück Code.

z.B.
port1.GetBlock(empfangsbuffer,anzahl_zeichen);

oder
empfangsbuffer:=port1.getstring;

Das ist aber so einfach, dass sich das Ganze selbst erklärt!
Bitte lies nach.

Rainer

[Teddyman]

Folgendes: Ich habe eine 4fach-RS232-Karte in meinem Rechner installiert.
Will unter Delphi 5.0 vier Sensoren mit je einer RS232-Schnittstelle über diese Karte einlesen und weiterverarbeiten.
Da ich nicht lange mit Delphi arbeite, fällt es mir schwer es zu verstehen!
Ich bin deshalb für jede Hilfe sehr dankbar und werde mich in Zukunft stärker mit Delphi beschäftigen.

[hardingfele]

hallo,

ich möchte gerne auch wissen, wie man diese komponente verwendet. die zwei pdf's (developers/reference-manual) und die hilfemenü's verweisen auf eine "printed documentation", die ich nicht finden kann. ist diese documentation nur gegen bezahlung erhältlich? mir würde es auch sehr helfen, beispielprogramme zur verwendung des packages zu sehen, um zu verstehen, wie man mit der schnittstelle kommuniziert.

trotzdem noch ein paar konkrete fragen:
ich möchte gerne den microcontroller eines schrittmotors ansteuern. der befehlssatz des microcontrollers besteht aus päckchen zu je 9 bytes, das letzte byte ist eine "checksum". im reference-manual des motors steht, daß die commands im binärformat an den microcontroller gesendet werden sollen. wie kann ich das nun anstellen? die property "output" sendet nur strings. worauf muß man beim programmieren eines comports unter verwendung der AdpComPort-komponente sonst noch achten? reicht es, nur den port zu öffnen, daten zu senden (mein 9-byte-package :?: ) und wieder zu schließen und die schon in diesem tread erwähnten parameter wie baud-rate, stop-bit etc. einzustellen? oder muß ich auch so was wie einen "buffer" programmieren :pale: ? habe von serieller kommunikation leider verschwindend wenig ahnung :(

vielen dank im voraus!!!

:stupid:

[shmia]

Zitat:

Zitat von hardingfele

...der befehlssatz des microcontrollers besteht aus päckchen zu je 9 bytes, das letzte byte ist eine "checksum". im reference-manual des motors steht, daß die commands im binärformat an den microcontroller gesendet werden sollen. wie kann ich das nun anstellen? die property "output" sendet nur strings.

Kein Problem, ein Sring in Delphi kann beleibige binäre Daten enthalten.
Beispiel:

Delphi-Quellcode:

var
  daten : string;
  checksum : integer;
  i : integer;
begin
  daten := #$A0#00#00#00#$FF#255;   // Sequenz aus 7 Bytes
  // jedes Byte beginnt mit dem # Zeichen
  // nach #$ dürfen nur 2 Hexzeichen folgen
  daten := daten + #32;   // noch ein Zeichen mit ASCII-Code 32 hinzu

  // Prüfzeichen ermitteln
  // das hier gezeigt Verfahren ist nur ein Beispiel 
  checksum := 0;
  for i := 1 to Length(daten) do
  begin
     checksum := checksum + Ord(daten[i]);
  end;  
  checksum := checksum and $FF;  // nur die niederwertigsten 8 Bit behalten
  daten := daten + chr(checksum);  // Prüfzeichen dranhängen

[Nuclear-Ping]

Anmerkung: Ich hab festgestellt, dass die Async-Kompos unter Vista Probleme machen können. :warn:

[hardingfele]

hallo,

vielen dank erst mal für die prompten antworten. hätte gerne gleich alles ausprobiert, jetzt stehe ich aber vor einem neuen problem: meine "TApdComPort"-klasse existiert nicht mehr! ich hatte keinen blassen schimmer warum und habe delphi und async pro etliche male neu installiert und sogar registry-einträge vorher gelöscht. aber ich finde immer keine apro-bibliothek und wenn ich eine datei öffnen will, die ich mit der komponente programmmiert hatte, taucht eine fehlermeldung auf daß es die klasse "TApdComPort" nicht gibt.
die installation von async pro habe ich schön unter dieser tollen und eigentlich "idiotensicheren" anleitung durchgeführt:

http://www.delphipraxis.net/internal...ghlight=xmlrtl

ach so, ich programmiere übrigens unter xp.

vielen dank nochmal im voraus!!

grüße