Netze	[Material] [historische Beispiele] [Einstieg] [Grundbegriffe] [Netzhardware] [Universal-Empfänger] [mini-Sender] [mini-Empfänger] [miniEthernet] [Transceiver] [Fehlererkennung] [Fehlerbehandlung] [Bus] [Rahmen] [Medium Access Control] [Routing] [Schichtenmodell] [Sockets] [Dienste im Internet] [Real-Experimente] [Sicherheit] [Codes] [Programme] [Hardware] [Protokolle] [Glossar] [Bautipps] [Unterricht] Pfad: [Startseite] / [Fächer] / [Informatik] / [Netze] / [Hardware]
Hohenstaufen-Gymnasium Kaiserslautern	Autor: mk Letzte Änderung dieser Seite: 30.06.2007 11:13:26  4063 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