Daten an COM-Schnitsstelle senden mit AsyncPro

Paddymann · Beiträge: 58 Delphi 5 Professional

Hallo!
Ich möchte mit der AsyncPro Komponente von TurboPower Daten (einen String) an die COM-Schnittstelle senden.
Dafür ist doch die Output()-Funktion da, richtig?
Ich habe das dann so versucht:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
//wenn Enter gedrückt wird...
  if Key = #13 then  begin
    //...String an COM-Schnittstelle übergeben
    ApdComPort1.Output := Edit1.Text;
    //Textfeld löschen
    Edit1.Text := '';
  end;
end;

Jetzt bekomme ich aber die Fehlermeldung "Zugriffsverletzung bei Addresse...".

Was läuft da schief? Würd mich über Antworten freuen.

thx und mfg
.patrick

Paddymann · Beiträge: 58 Delphi 5 Professional

Hmm ist es denn richtig, dass ich das mit Output mache? Oder gibt es da noch andere Möglichkeiten?

Paddymann · Beiträge: 58 Delphi 5 Professional

Ich weiss nicht aber das Thema hier ist jetzt das 4. in Folge bei dem ich keine Antwort bekomme...

hansa · Beiträge: 3079 Erhaltene Danke: 9

Du schreibst also im Programm folgendes :

Paddymann hat folgendes geschrieben:

markieren

Delphi-Quelltext

1:	ApdComPort1.Output := Edit1.Text;

Und denkst, das wärs dann ? Und dann kommt das :

Zitat:

Jetzt bekomme ich aber die Fehlermeldung "Zugriffsverletzung bei Addresse...".

Wie wärs jetzt mal mit Handbüchern ? Sind sehr umfangreich. Deine Programmzeile steht sinngemäß z.B. auf Seite 76 des Developers Guide. Da steht aber auch folgendes : "See : Setting up a Comport on page 74" Ist das auch so gemacht, wie beschrieben ? Oder ist das für Dich uninteressant ? :mrgreen:

Prinzipiell stellen sich noch weitere Fragen : wozu das ganze, insbesondere : welches Gerät ? Wie wird getestet ? Ich würde zuerst mal am besten mit 2 PCs eine COM-Verbindung aufbauen. Jeweils mit einem gestarteten Terminalpogramm (sind bei AsyncPro dabei). Kommen die Tastatureingaben von einem PC bei dem anderen an und sind auf dem Bildschirm zu sehen, dann hat man eine Arbeitsgrundlage. Die serielle Schnittstelle hat ziemlich viele Parameter und wenn davon einer nicht stimmt, dann gehts nicht. Und das gilt noch für Sender und Empfänger gleichzeitig. Deshalb kann es sehr diffizil werden.

_________________
Gruß
Hansa

Ehemaliges Mitglied Erhaltene Danke: 1

hi,

hatte auch damals mit den komponenten von turbopower gearbeitet.
benutze jetzt für com und rs232 die AsyncFree-Komponenten:
sourceforge.net/proj...mp;release_id=130401

da geht es relativ easy:
1. port setzen
2. aktivieren
3. string/char senden über writestring oder writechar

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

  afComport.Active := true;

// in anderer prozedur dann
  if afComport.Active then begin
    afComport.Writestring(#34 + #13 + #...); // so
    afComport.Writestring(chr($FF) + chr($05) + ...); // als hex...
  end;

funzt jedenfalls ganz gut...

über readstring liest du die antwort...

gruß

rd3

Paddymann · Beiträge: 58 Delphi 5 Professional

Ich habe leider keine 2 PCs um das zu testen. Ich habe an der COM-Schnittstelle einen Infrarot-Tranceiver. Der dient zur Kommunikation mit einem Roboter. Der Roboter heisst ASURO. Ist ein bisschen bekannt vllt. hat jemand von dem schonmal etwas gehört. Und Handbücher habe ich zu AsyncPro leider nicht. Wo bekomme ich denn den Developer's Guide her?

thx und mfg
.patrick

Ehemaliges Mitglied Erhaltene Danke: 1

hier:
sourceforge.net/proj...amp;package_id=72501

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme