Netze	Material historische Beispiele Einstieg Grundbegriffe Netzhardware Universal-Empfänger Raw-Transceiver mini-Sender mini-Empfänger miniEthernet Transceiver Fehlererkennung Fehlerbehandlung Bus Rahmen Medium Access Control Routing Schichtenmodell Sockets Dienste im Internet Filius Real-Experimente Sicherheit Codes Programme Hardware Protokolle Glossar Bautipps Modem Lehrplan Unterricht Pfad: Startseite / Fächer / Informatik / Netze / Hardware
Autor: mk 30.06.2007 11:13 5289	Serielle Schnittstelle

Links

• Serielle Schnittstelle ansprechen und pollen
• Serial Communications in Win32 Artikel aus MSDN
• TComPort von Christian Seise
• Serial I/O
• Bits in Serie, RS232

Direktes Ansprechen der Schnittstelle unter Delphi

comportmini.zip

procedure TForm1.OpenComClick(Sender: TObject);
var
  res,error : integer;
  PortStr   : string;
begin
  if Sender = bOpenCom1 then PortStr := 'COM1';
  if Sender = bOpenCom2 then PortStr := 'COM2';
  res := CreateFile(PChar(PortStr),
                    GENERIC_READ or GENERIC_WRITE,
                    0,nil,OPEN_EXISTING,0,0);
  if res > 0
  then
  begin
    PortHandle := res;
    EscapeCommFunction(PortHandle,CLRRTS);
    EscapeCommFunction(PortHandle,CLRBREAK);
    EscapeCommFunction(PortHandle,CLRDTR);
  end
  else
  begin
    error := GetLastError;
    ShowMessage('Fehler: '+IntToStr(error));
  end;
end;

....

procedure TForm1.bCloseClick(Sender: TObject);
begin
  CloseHandle(PortHandle);
end;

procedure TForm1.bEinlesenClick(Sender: TObject);
var
  ein : DWORD;

  function bin(a : integer) : string;
  var
    s : string;
  begin
    s :='';
    while a > 0 do
    begin
      if a mod 2 = 1 then s := '1'+s else s := '0'+s;
      a := a div 2;
    end;
    if s='' then result := '0' else result := s;
  end;

  function b8(b : string) : string;
  var
    i : integer;
  begin
    for i := Length(b)+1 to 8 do b := '0'+b;
    result := b;
  end;

begin
  GetCommModemStatus(PortHandle,ein);
  lEingaben.caption := b8(bin(integer(ein)));
  if (ein and 128) > 0
  then lDCD.Caption := 'DCD = 1'
  else lDCD.Caption := 'DCD = 0';
  if (ein and 32) > 0
  then lDSR.Caption := 'DSR = 1'
  else lDSR.Caption := 'DSR = 0';
  if (ein and 16) > 0
  then lCTS.Caption := 'CTS = 1'
  else lCTS.Caption := 'CTS = 0';
  if (ein and 64) > 0
  then lRI.Caption := 'RI  = 1'
  else lRI.Caption := 'RI  = 0';
end;

procedure TForm1.cbRTSClick(Sender: TObject);
begin
  if cbRTS.checked
  then
    EscapeCommFunction(PortHandle,SETRTS)    // ein
  else
    EscapeCommFunction(PortHandle,CLRRTS);   // aus
end;

procedure TForm1.cbTxDClick(Sender: TObject);
begin
  if cbTxD.checked
  then
    EscapeCommFunction(PortHandle,SETBREAK)  // ein
  else
    EscapeCommFunction(PortHandle,CLRBREAK); // aus
end;

procedure TForm1.cbDTRClick(Sender: TObject);
begin
  if cbDTR.checked
  then
    EscapeCommFunction(PortHandle,SETDTR)  // ein
  else
    EscapeCommFunction(PortHandle,CLRDTR); // aus

end;

Belegung eines 0-Modem-Kabels

Strommessungen

Messungen ergaben an einem Desktop-PC 9,2 mA Kurzschlussstrom RTS-GND in beiden Richtungen. RTS-CTS ergab 2 mA in beiden Richtungen.

lokal