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:

Zitat von Natcree (Beitrag 1264914)

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]

Delphi-Quellcode:

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.

[himitsu]

Ich seh grade was. :wall:

Zitat:

Delphi-Quellcode:

for i:=0 to length(text)-1 do
begin
  SendByte(ord(text[i]));
end;

Du solltest unbedingt mal die Bereichsprüfung in deinem Delphi aktivieren, wenn du ständig solchen Mist verbockst.

String-Indize beginnen bei 1 :!: (außer in den neuen iOS/Android-Plattformen)

[Natcree]

das heisst wenn ich es so mache klappt es ?

Delphi-Quellcode:

for i:=1 to length(text)-1 do
begin
  SendByte(ord(text[i]));
end;

[EWeiss]

Zitat:

Zitat von Natcree (Beitrag 1266060)

das heisst wenn ich es so mache klappt es ?

Delphi-Quellcode:

for i:=1 to length(text)-1 do
begin
  SendByte(ord(text[i]));
end;

Hmmm... Testen ?
Dann siehst du doch ob es klappt. ;)

gruss

[Sir Rufo]

Wenn man durch alle Elemente iterieren möchte, dann geht das immer nach folgendem Schema:

Code:

Für Index
  von <kleinster Index>
  bis <größter Index>

Ist nur kleinster Index und die Anzahl der Elemente bekannt, so kann man durch eine simple Rechnung den Wert von größter Index ermitteln:

Code:

Für Index 
  von <kleinster Index> 
  bis <kleinster Index> + <Anzahl der Elemente> - 1

Wenn man sich gar sehr unsicher ist und sich diese komplizierte Berechnung nicht zutraut und zudem ein Array vor sich hat, dann doch bitte so und der Drops ist gelutscht:

Delphi-Quellcode:

for LIdx := low( text ) to high( text ) do
  begin
    WhateverWith( text[LIdx] );
  end;

Schon kümmert es den Code nicht mehr, ob der Compiler 1-basierende, 0-basierende oder n-basierende Strings verwaltet.

[hathor]

Warum nicht so?

Delphi-Quellcode:

procedure SENDSTRING (Buffer: String);
var BytesWritten: DWord;
begin
  WriteFile(PortHandle,(Pchar(Buffer))^,Length(Buffer),BytesWritten,NIL);
END;

procedure TForm1.Button1Click(Sender: TObject);
var TextString : String;
begin
   TextString := 'Hallo';
   SendString (TextString+ #13);
end;

[himitsu]

Weil der Code seit 5 Jahren (Unicode) so nicht mehr richtig funktionieren könnte?

[hathor]

Er hat doch nur Delphi 7 Enterprise...

[himitsu]

Dennoch wäre es besser den Code ordentlich zu schreiben, denn genau durch solche Codes gab es die meisten Probleme bei der Unicodeumstellung.

In diesem Fall wird AnsiString verwendet, also gehört der Code auch so geschrieben.
> AnsiString und PAnsiChar