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

program ComPort;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  TMyClass in 'TMyClass.pas',
  TComThread in 'TComThread.pas';

var myClassObj : MyClass;

begin
  myClassObj := MyClass.Create;
  myClassObj.startCom;
  myClassObj.Free;
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:

unit TMyClass;

interface

uses SysUtils,
     TComThread;

type
  MyClass = class
    public
      constructor Create;
      procedure startCom;
    private
      myComThread : MyThread;
  end;

implementation

constructor MyClass.Create;
begin
  myComThread := MyThread.Create;  {Thread-Objekt erzeugen}
end;

procedure MyClass.startCom;
var i : Integer;
begin
  myComThread.Resume;              {Thread starten}
  for i := 1 to 20 do begin
    sleep(300);
    writeln('wait ' + inttostr(300*i) + ' ms...');
  end;
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:
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:
59:
60:
61:
62:
63:
64:
65:
66:

unit TComThread;

interface

uses
  Classes, SysUtils,
  OoMisc, AdPort, SyncObjs; {Klassen für die TurboPower-Komponente}

type
  MyThread = class(TThread)
  public
    constructor Create;
  private
                {Klasse von Turbopower zur Kommunikation über die Com-Schnittstelle}
    ApdComPort: TApdComPort;       
                {Ereignis-Prozedur für das Empfangen von Nachrichten}
    procedure ApdComPortTriggerAvail(CP: TObject; Count: Word);
                {Prozedur zum Senden von Nachrichten}
    procedure sende(text : String);
  protected
                {Execute wird aufgerufen, wenn der Thread gestartet wird}
    procedure Execute; override;
  end;

implementation

constructor MyThread.Create;
begin
  inherited Create(true);
  ApdComPort := TApdComPort.Create(nil);    {Kommunikations-Objekt erzeugen}
  ApdComPort.ComNumber := 1;                {Com-Port festlegen}
  ApdComPort.OnTriggerAvail := ApdComPortTriggerAvail;  {Ereignis mit der Prozedur verknüpfen}
end;

procedure MyThread.ApdComPortTriggerAvail(CP: TObject; Count: Word);
var
  I : Word;
  C : Char;
  S : String;
begin
  S := '';                      {Initialisieren}
  for I := 1 to Count do Begin  
    C := ApdComPort.GetChar;    {Zeichen aus dem Empfangspuffer holen}
    Case C of
      #0..#31 : ;               {Sonderzeichen nicht behandeln}
      else S := S + C;          {Empfangene Nachricht zusammensetzen}
    end;
  end;
  writeLn('received: ' + S);    {Empfangene Nachricht auf Konsole ausgeben}
end;

procedure MyThread.sende(text : String);
begin
  writeLn('send->Com1: ' + text);       {zu sendende Nachricht auf Konsole ausgeben}
  ApdComPort.Output := text + #13#10;   {Nachricht senden}
end;

procedure MyThread.Execute;
begin
  beep;                         {Signalton ausgeben}
  sende('ATZ');                 {Nachricht 'ATZ' senden}
  sleep(3000);                  {3 sec warten}
  writeln('execute ready');     {statusmeldung: Thread ist beendet}
end;

end.