Com-Port über Delphi 2005 mit Async Pro ansprechen

Stolle · Hält's aus hier Beiträge: 2

Hi,

ich hab mal ne Frage. Ich wollte gerne ein Projekt in Delphi 2005 schreiben mit dem ich den ComPort über Async Pro ansprechen kann.

Async Pro funktioniert an sich auch. Wenn ich das programm starte, dann zeigt er die Daten, die von der Maus kommen, auch an. Such jetzt bloß nach einer Einbindung in Delphi.

Ich hatte mir gedacht, dass das Programm eine Anzeige besitzt, die die Daten vom Port ausliest. Hab schon meine alte Maus mit COM-Anschluss rausgeholt.
Wenn ich die Maus jetzt bewege. wollte ich eigentlich erreichen, dass diese Anzeige mir irgendetwas wieder ausgibt.

Bekomm das leider nicht auf den Haken , habe bisher auch nur C-Kenntnisse.

Hat jemand vllt. einen Tip für mich, wo ich am besten ansetzen kann?

MFG

chrisw · Beiträge: 439 Erhaltene Danke: 3 W2K D7

die Frage habe ich nicht ganz verstanden :

Erst sagst Du, dass die Daten angezeigt bekommst :

Zitat:

dann zeigt er die Daten, die von der Maus kommen, auch an.

Dann fragst Du, wie man die Daten anzeigen kann :

Zitat:

Wenn ich die Maus jetzt bewege. wollte ich eigentlich erreichen, dass diese Anzeige mir irgendetwas wieder ausgibt.

Was ist denn nun das Problem ?

_________________
Man sollte keine Dummheit zweimal begehen, die Auswahl ist schließlich groß genug.

Stolle · Hält's aus hier Beiträge: 2

Async Pro zeigt die Daten an.

Ich möchte das aber gerne in Delphi jetzt mit einbinden, sodass ich ein Programm schreiben kann, mit dem ich sowohl Daten schreiben als auch auslesen kann über den Com-Anschluss.

Hoffe meine Frage ist jetzt klar.

chrisw · Beiträge: 439 Erhaltene Danke: 3 W2K D7

Um die Daten Deiner Maus in z.Bsp einem Memofeld darzustellen musst Du folgendes in Deinem Programm machen:

Ziehe eine TMemo Komponente auf dein Formular. (Name Memo1)
Ziehe eine ApdComport Komponente auf Dein Formular (unter APRO)

Stelle im OI die Parameter für die Schnittstelle ein (Databits, Parity, StopBits, Baud; normal 8n1 mit 19200)
Alle anderen Parameter unverändert lassen (insbesondere Autopen);

Im Ereignis OnTriggerAvail folgendes eintragen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

procedure Form1.DataAvail(CP:TObject; Count: Word);
var i : Integer;
begin
  for i := 1 to Count do Memo1.Text := Memo1.Text + ComPort.GetChar; 
end;

Senden mit:

markieren

Delphi-Quelltext

1:	apdComport1.PutString('hallo dies ist ein Satz');

Hoffe Du hast das Prinzip verstanden !

_________________
Man sollte keine Dummheit zweimal begehen, die Auswahl ist schließlich groß genug.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme