async Fragen

[xeus]

Hallo zusammen,
mit hilfe von profis aus diesem board, habe ich es schon geschaft
binäre daten über den comport zusenden.

apdcomport1.putstring(#10);

nun ist nur noch das problem, dass ich auch daten empfangen muss

nun hab ich allerdings keinen plan wie ich das anstellen kann.
am schönsten wärs, wenn ich eine funktion oder prozedur hätte, der immer 1 byte von den insgesammt acht in eine variable speichert, also dass ich am schluss insgesammt acht variablen hab z.b. byte1 - byte8.

wär super wenn mir bei meinem problem jemand helfen könnte

xeus

[Borti]

Hallo,
ich will ja nicht die profis unterlaufen, aber ich hätt da auch eine funktionierende Methode für Senden und Empfangen vom Com-Port anzubieten:
Man lade sich diese DLL runter http://www.geekhideout.com/iodll.shtml und verfahre nach dem angehängten PDF-Dokument.
ich hab mir so schon selbst ein kleines terminal für die RS232 geschrieben. Das einzige problem ist, dass ich bisher auf keine Interrupts der Schnittstelle hören kann.
Gruß,
Borti

[alzaimar]

Oder, ganz ohne DLL, dafür uralt, mit Komponente und echt simpel:
Die war noch Freeware: Ich hatte nie Probleme damit, obwohl die Implementierung eines Protokolls nicht so einfach ist, da die Komponente komplett eventgesteuert ist. Aber einen Versuch ists wert...

[marabu]

Hi,

nur für den Fall, dass AsyncPro immer noch eine Chance hat - eine Antwort hatte ich im original thread gepostet: klick

Grüße vom marabu

[xeus]

Will eigentlich schon mit async weitermachen.
hab den code soweit übernommen, schmeist er mir einige fehler aus:

comport: undef bezeichnung
receivebuffer1: "

hilfe, danke

[xeus]

OK,
hab den fehler selber beheben können.
nur zum verstzändniss:

die über die schnittstelle eingehenden daten, werden im puffer hinterlegt. in welcher form werden sie hinterlegt, werden alle daten hintereinander eingefügt, oder gibt es für jedes byte einen puffer? oder wie kann ich jedes kommende byte seperat abbarbeiten? am schönsten wäre es, wenn er mir jedes byte in eine var hinterlegt, z.b
byte1 = b1
..
byte8 = b8

so das ich mit diesen inhalten in anderen proceduren weiter arbeiten kann.

vielen dank

[marabu]

Hi,

sobald die empfangenen Daten im Empfangspuffer abgelegt wurden, kannst du jedes Byte über seinen Index ansprechen:

Delphi-Quellcode:

var
  i: integer;
begin
  Memo.Clear;
  for i := Low(ReceiveBuffer1) to High(ReceiveBuffer1) do
    Memo.Lines.Add(Format('Byte %d hat den Wert %d', [i, ReceiveBuffer1[i]]));  
end;

Grüße vom marabu

[xeus]

suupppiii,
und wie kann ich den puffer, wieder löschen?

[marabu]

SetLength(ReceiveBuffer1, 0); Aber du wirst doch nicht etwa so weiter machen wollen? Einen "Ringpuffer" hatte ich dir nahe gelegt...

marabu

[xeus]

ertsmal danke, für deine ganze hilfe.
ich bin mir sicher, das es mit einem ringbuffer besser geht.
nur das problem ist, dass ich nicht weiss was ein ringbuffer ist, und wie ich ihn erzeuge