Delphi-PRAXiS - Einzelnen Beitrag anzeigen - Delphi Steuerung einer Märklin-Eisenbahn mit Delphi

**s.h.a.r.k**

Hey... Also ich hab hier mal ein paar Ansätze für das Programm, aber komplett bekommst du es nicht! Da steckt nämlich zu viel Arbeit drin...

Also mach mal eine globale Variable für das Ansprechen des Com-Ports

markieren

Delphi-Quellcode:

			var

  ComHandle : THandle;

Dann füg unter den var-Teil noch einen const-Teil hinzu:

markieren

Delphi-Quellcode:

			const

  { Einstellungen für die Weichenstellung }

  rund =          34;

  gerade =        33;

  { Pausen für verschiedene Impulse, da es manschmal länger dauern muss

  dass es funktioniert - v.a. bei den Weichen }

  befehlspause =      100;

  weichenimpulse =    200;

Um eine Verbindung zum COM-Port zu trennen nutzt du diesen Befehl:

markieren

Delphi-Quellcode:

			FileClose(ComHandle);

ComHandle := 0;

Die Verbindungsprocedure kann wie folgt aussehen (inkl Disconnect):

zusammenfalten · markieren

Delphi-Quellcode:

			procedure ConnectToCOMPort(Disconnect: Boolean);

var

  DCB:        TDCB;

  TimeOut:    TCommTimeouts;

  i:          Integer;

begin

  { Wenn die Verbindung wieder getrennt werden soll }

  if (Disconnect) then begin

    FileClose(ComHandle);

    ComHandle := 0;

    exit;

  end;

  { Die Verbindung zum COM-Port wird hergestellt - wenn dies nicht funktioniert

  wird es bis zu zehn Mal probiert }

  i := 0;

  while (ComHandle <= 0) and (i < 10) do begin

    ComHandle := CreateFile(pchar(COMCB.Text), GENERIC_READ or GENERIC_WRITE,

                        0, nil, OPEN_EXISTING, 0, 0);

    inc(i);

  end;

  { Einstellungen zum COM-Port zuweisen, wenn die Verbindung aktiv ist }

  if (ComHandle > 0) then begin

    DCB.DCBlength := SizeOf(DCB);

    DCB.ByteSize := 8;

    DCB.Parity := NoParity;

    DCB.StopBits := TWOSTOPBITS;

    DCB.BaudRate := 2400;

    DCB.Flags := 5123; { Wenn 2 Pins belegt sind }

    DCB.EofChar := #0;

    DCB.ErrorChar := #0;

    DCB.EvtChar := #0;

    DCB.XoffChar := #0;

    DCB.XoffLim := 0;

    DCB.XonChar := #0;

    DCB.XonLim := 0;

    SetCommState(ComHandle, DCB);

    GetCommTimeOuts(ComHandle, TimeOut);

    TimeOut.ReadIntervalTimeOut := 100;

    TimeOut.ReadTotalTimeoutMultiplier := 0;

    TimeOut.ReadTotalTimeoutConstant := 250;

    TimeOut.WriteTotalTimeoutMultiplier := 0;

    TimeOut.WriteTotalTimeoutConstant := 200;

    SetCommTimeouts(ComHandle, TimeOut);

  end;

end;

Mit dieser Funktion schickst du daten an den COM-Port:

markieren

Delphi-Quellcode:

			function WriteDataToCOMPort(Text: String):Boolean;

var

  i : Integer;

begin

  { Senden der Daten an den COM-Port - mit Ausgabe ob der Befehl

  erfolgreich war }

  i := FileWrite(ComHandle, Text[1], Length(Text));

  if (i <> Length(Text)) then Result := False else Result := True;

end;

Jetzt mal ne kleine Auflistung an Befehlen:

markieren

Code:

			WriteDataToComPort(chr(96)) : Starten des Interface -> Entspricht "GO"-Taste

WriteDataToComPort(chr(97)) : Nothalt -> Entspricht "Stop"-Taste

WriteDataToCOMPort(chr(Speed)+chr(LokAddr)) : Einstellungen an der Lok (Wenn die Sonderfunktion aktiviert werden soll, dann muss die Speed + 16 genommen werden)

WriteDataToCOMPort(chr(Direction)+chr(Addr)) : Schalten einer Weiche - Direction ist hier [b]rund[/b] oder [b]gerade[/b] (siehe Konstanten) allerdings sollte danach folgender Code stehen

markieren

Delphi-Quellcode:

			  sleep(weichenimpulse);

  WriteDataToCOMPort(chr(32));

  sleep(befehlspause);

Ich hoffe das ganze hilft dir weiter!

lg shark

Einzelnen Beitrag anzeigen

Re: Steuerung einer Märklin-Eisenbahn mit Delphi