Einzelnen Beitrag anzeigen

Natcree

Registriert seit: 5. Mär 2013
502 Beiträge
 
Delphi 7 Enterprise
 
#1

Sende String an comport

  Alt 9. Jul 2014, 11:20
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.
  Mit Zitat antworten Zitat