Einzelnen Beitrag anzeigen

shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#11

Re: Übertragung von Buchstaben per RS232?

  Alt 8. Mai 2007, 16:59
Zitat von Rainer1000:
ich weiß nicht, wie ich das serialNG dazu bekomme was zu übertragen, bzw. wie ich die Serial-Port-Einstellungen mach..
Jede Wette, du hast das Beispielprojekt SerialNGBasicDemo.dpr nicht angeschaut.
Sonst hättest du gesehen, dass auf dem Formular ein Button "Settings" liegt.
Geht man da dem Code nach kommt man zu:
Delphi-Quellcode:
procedure TSerialNGBasicDLG.GetDLGData(SerialPortNG : TSerialPortNG);
begin
  SerialPortNG.CommPort := CBPort.Items[CBPort.ItemIndex]; // z.B. 'COM1'
  SerialPortNG.BaudRate := StrToIntDef(CBBaud.Items[CBBaud.ItemIndex],9600); // z.B. 2400
  SerialPortNG.DataBits := StrToIntDef(Copy(CBData.Items[CBData.ItemIndex],1,1),8); // z.B. 8
  SerialPortNG.StopBits := CBStop.ItemIndex; // 0 = 1 Stopbit
  SerialPortNG.ParityType := CBParity.ItemIndex;
  SerialPortNG.FlowControl := BasicFlowModes[CBFlow.ItemIndex];
  SerialPortNG.Active := True;
end;
Also für mich sieht das ganz Glasklar und direkt aus.
Man muss natürlich den Willen haben, die Komponente zu installieren und das Beispielprojekt anzuschauen...
Die ganzen Properties lassen sich auch direkt im Objektinspektor einstellen.
Andreas
  Mit Zitat antworten Zitat