1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

{-----------------------------------------------------------------------------
  Procedure : COM-Port
  Version   : Alfa

  Resultat  : Auslesen der Daten vom COM
-----------------------------------------------------------------------------}
procedure TForm1.ApdComPort1TriggerAvail(CP: TObject; Count: Word);
var
  I : Word;
  C : Char;
  S : String;

begin
  RS232Activate  := True;   // Erst JETZT auf true gesetzt
  Timer1.enabled := False; // Neustart des Timers, sehr wichtig!!
  Timer1.enabled := True;
  S := '';

  for I := 1 to Count do begin  
    C := ApdComPort1.GetChar;
    case C of
      #0..#31 : S := S + C ; //Absichtlich gesondert, um es zu verdeutlichen
      else S := S + C;       //also bitte nicht anmekern :)
    end;
  end;
  tempBuffer := tempBuffer + S;   //Erst temporär
  if tempBuffer = (#6+#48) then
  begin
    ApdComPort1.OutPut := #02 ;  //Bestätigung
  end;
  //DatenString wird erst später deklariert

end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure Daten_Schreiben(Daten: String);
var ApdComPort1: TApdComPort;
    Befehl : String;
begin
   tempBuffer := '';  //damit der sicher leer ist
   Befehl := 'W0000' + Linksnuller(Daten);  //Befehlszeile für das Gerät
   Befehl := Befehl + Exor(Befehl);  //Linksnuller und Exor sind notw. Fkt.
   ApdComPort1.OutPut := Befehl;  //Hier meckert er.
   if tempBuffer = (#6+#48) then
   begin
   sleep(50);  // Wart mal kurz, bis der Balluff seine Quittung zurück sendet
   ApdComPort1.OutPut := Daten + Exor(#2 + Daten);
   end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

Type
  TForm1 = classe (TForm)
...
  private
    procedure Daten_Schreiben(Daten: String);
...
  end;


procedure TForm1.Daten_Schreiben(Daten: String);
var
  Befehl : String;
begin
...
end;					

1:
2:
3:
4:
5:
6:
7:
8:

  type
  TForm1 = class(TForm)
    OpenDialog1: TOpenDialog;
    Button1: TButton;
    Label9: TLabel;
    Button2: TButton;
    Timer1: TTimer;
    ApdComPort1: TApdComPort;