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

procedure TForm1.SendButtonClick(Sender: TObject);
var
  str, str2: string;
  int: Integer;
begin
  Comport.ClearBuffer(true, true);
  if SendEdit.Text <> '' then
  begin
    str := SendEdit.Text + #13;
    ComPort.WriteStr(str);
  end;
  sleep(50);
  int := ComPort.Readstr(str2, 32);
  memo1.Lines.Add('Gelesene Zeichen: ' + inttostr(int));
  memo1.Lines.Add(str2);
end;					

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:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:

unit PressureControl;

interface

uses SysUtils, Classes, CPort, CPortCtl;

type
  TPressureControl = class(TObject)
    ComPort: TComPort;
  private

  public
    constructor Create(Port: TPort; Baud: TBaudRate; Parity: TParityBits;
      AOwner: TComponent);
    destructor Destroy; override;
    function GetID: string;
    function IsConnected: Boolean;
    function SetBaud(Baud: TBaudRate): Boolean;
    function SetPort(Port: TPort): TPort;
    function SetParity(Parity: TParityBits): Boolean;
  end;

implementation

{ TPressureControl }

constructor TPressureControl.Create(Port: TPort; Baud: TBaudRate;
  Parity: TParityBits; AOwner: TComponent);
begin
  inherited Create;
  Comport := TComport.Create(AOwner);
  SetBaud(Baud);
  Comport.DataBits := dbSeven;
  Comport.FlowControl.FlowControl := fcNone;
  SetParity(Parity);
  SetPort(Port);
  Comport.StopBits := sbOneStopBit;
  Comport.Open;
end;

destructor TPressureControl.Destroy;
begin
  if Assigned(Comport) then
    ComPort.Free;
  inherited Destroy;
end;

function TPressureControl.GetID: string;
var
  str: string;
  vInt: Integer;
begin
  Comport.ClearBuffer(true, true);
  ComPort.WriteStr('ID' + #13);
  sleep(50);
  vint := ComPort.Readstr(str, 32);
  result := 'Gelesene Zeichen: ' + inttostr(vInt) + '; ' + str;
end;					

1:

PC := TPressureControl.Create('Com1', br9600, prOdd, self);					

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

procedure TForm1.SendButtonClick(Sender: TObject);
var
  str: string;
  str2: string;
  vint: Integer;
begin
  Comport.ClearBuffer(true, true);
  if SendEdit.Text <> '' then
  Comport.ClearBuffer(True, True);
  begin
    str := SendEdit.Text + #13;
    ComPort.WriteStr(str);
  end;
  //sleep(50);
  vint := 0;
  vint := ComPort.Readstr(str2, 32);
  memo1.Lines.Add('Gelesene Zeichen: ' + inttostr(vint));
  memo1.Lines.Add(str2);
end;					

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

procedure StartProcedure;
begin
  for i := 0 to Count -1 do
  begin
    OpenValve(x);
    sleep(ValveTime);
    CloseValve(x);
    if PressureControl.GetPressure >= Grenzwert then  //Liesst den aktuellen Druck  aus dem Controller aus
    begin
      raise Exception;
    end;
  end;
end;					

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

procedure StartProcedure;
begin
  for i := 0 to Count -1 do
  begin
    OpenValve(x);
    sleep(ValveTime);
    CloseValve(x);
    pressureController.WriteSyntax('AV1'); //Befehl für Druckmessung
    Application.ProcessMessages;  
    if FPressureValue >= Grenzwert then  //Das Event schreibt den erhaltenen Wert in das Feld
      raise Exception;
  end;
end;					

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:

procedure Rumpf;
begin
  for i := 0 to Count do
  begin
    ErsterTeil;
  end;
end;

procedure ErsterTeil;
begin
  OpenValve(x);
  if not Druckmnessung then
    ZweiterTeil
  else
    PressureControl.WriteSyntax('Blubb');
end;

procedure ZweiterTeil;
begin
  CloseValve(x);
  WeitererCode;
end;

procedure PressureControl.OnRxirgendwas;
begin
  str := AlgoZumStringZusammenbauenStehtHier;
  if strtoint(str) >= Grenzwert then
    raise Exception
  else ZweiterTeil;
end;					

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:
34:
35:
36:
37:
38:
39:
40:
41:
42:

type
  TData = array[0..cBufferSize] of AnsiChar;

...
private
  FData: TData;
...

function TPressureControl.ReceiveData: string;
var
  vStr: string;
begin
  result := '';
  FillChar(FData, SizeOf(FData), #0);                  //Füllt Array mit Nullbytes zur bessern Umwandlung später
  FLastReadBytes := ComPort.Read(FData, cBufferSize);  //Daten werden mit Intervall-Timeout gelesen (s.u.)
  FData[FLastReadBytes - 1] := #0;                     //gerät schließt Msg mit #13 ab, wird umgewandelt in NullByte
  vStr := string(FData);                               //umwandlung in String
  if FLastReadBytes > 1 then                           //Exceptionhandling
  begin
    if vStr[1] = '#' then
    begin
      GenerateError(vStr);
    end;
  end;
  result := vStr;
end;

constructor TPressureControl.Create(Port: TPort; Baud: TBaudRate;
  Parity: TParityBits; AOwner: TComponent);
begin
  inherited Create;
  Comport := TComport.Create(AOwner);
  SetBaud(Baud);
  Comport.DataBits := dbSeven;
  Comport.FlowControl.FlowControl := fcNone;
  SetParity(Parity);
  SetPort(Port);
  Comport.StopBits := sbOneStopBit;
  Comport.Timeouts.ReadInterval := 20;             //Setze das Intervall zwischen zwei Bytes auf 20ms
  Comport.Timeouts.ReadTotalConstant := 500;       //Setze Gesamttimeout auf 500ms
  Comport.Open;
end;