Sende String an comport

[Natcree]

Hallo ich habe ein externes Display. Dieses ist am Comport5 angeschlossen. ich möchte nun einen Text an dieses externe Display schicken. Jedoch passiert nichts mit meinem Code. habe die rs232 in uses eingebunden und auch die com.dll. Hier der code

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
text:String;
begin
OPENCOM('COM5: baud=19200, data=8, parity=N, stop=1');
text:='Hallo';
for i:=0 to length(text)-1 do
begin
  SendByte(ord(text[i]));
end;

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  closeCOM;
end;

ich hoffe ihr könnt mir weiterhelfen. wenn ich eine druckausgabe an diesen comport über canvas mache dann zeigt er nur Hyroglyphen.

[Der schöne Günther]

Habe ich eine Bildungslücke oder ist die "Unit rs232" eine wohlbekannte Unit die standardmäßig dabei ist?

[p80286]

Zitat von Natcree:

wenn ich eine druckausgabe an diesen comport über canvas mache dann zeigt er nur Hyroglyphen.

Was auch immer die Canvas mit dem COM-Port und einem Monitor/Terminal zu tun hat.

Ich vermute, daß Du da ein Terminal angeschlossen hast, das über ein bestimmtes Protokoll mit dem Rechner kommuniziert. Da reicht es nicht dem COM-Port die richtigen Parameter zu verpassen, da muß auch das Protokoll stimmen.

Du solltes mal ganz genau beschreiben was Du da eigentlich treibst.

Gruß
K-H

[Natcree]

Also ich habe ein LED Display was einen Werbetext anzeigen soll. dieses wird über den Comport an meinem Rechner angeschlossen nunmehr will ich dem display diesen Werbetext schicken. Im Prinzip ähnlich wie ein Display bei verkaufskassen. Wo der Preis drauf steht.

[mkinzler]

Versuch es mal als AnsiString

[Natcree]

gibt es da ein code beispiel für?

[mkinzler]

text:AnsiString; Den string ist ab D2009 ja UnicodeString

Ohne das Gerät zu kennen wird es aber schwer zu Helfen. Gibt es eine Dokumentation für das Display?

[himitsu]

Nja, so wie das aussieht, kannst du problemlos auf die alten Pascalfunktionen umsteigen oder gar auf FileStreams.

Delphi-Quellcode:

var F: TextFile;

AssignFile(F, 'COM5: baud=19200, data=8, parity=N, stop=1');
Rewrite(F);
Write(F, 'Hallo');

Ansonsten empfehle ich dir eher mal nach einer "aktuelleren" ComPort-Komponente ausschau zu halten.

Zitat:

data=8

Falls aktuelleres UnicodeDelphi, dann wäre es natürlich besser auch AnsiStrings zu verwenden.



DLL?

Wenn du diese DLL meinst
http://www.b-kainka.de/referenz.txt
Das Ding ist eh Schrott und funktioniert in aktuelleren Windowsen nicht mehr.
Die Pascal-Header sind ebenfalls mistig geschrieben und funktionieren in D2009+ nicht mehr. (Char statt AnsiChar usw.)

Ich hatte vor Kurzem die Header-PAS dieser DLL umgeschrieben, so daß sie mit neueren Delphis funktioniert und dazu auch gleich die DLL entsorgt.
Den nötigen Code direkt in der PAS implementiert und diesen auf neuere APIs umgeleitet. Der Code ist aber noch nicht komplett getestet und einige Funktionen (vorallem vom Sound) sind rausgeflogen.

[baumina]

Erwartet das OpenCOM wirklich einen String und keinen PChar?

[himitsu]

(vermutlich) siehe verlinkte Deklaration, in meinem letzten Post.

Ja, ist PChar, aber Delphi konvertiert String-Konstanten automatisch in PChar, wenn man sie direkt an den Parameter übergibt.