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

Var
 Form2:Tform2
Implementation
{$R*.dfm}
Procedure Eingang;
Begin
// hier werden die Daten von Anlage geholt
End;

procedure Tform2.Timer1Timer(Sender:tobject);
Begin
Eingang;
End;
End.                    

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

uses
  classes;

type
  TMyThread = class(TThread)
    private
      { Private-Deklarationen }
    protected
      procedure Execute; override;
    end;

......


procedure TMyThread.Execute;
begin
  while not Self.Terminated do
  begin
    DoSomething();
    
  end;
end;                    

1:
2:
3:
4:
5:
6:

  MyThread : TMyThread;

  ...

  MyThread := TMyThread.create(true / false);
  MyThread.Resume;                    

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

//Timer
var t: cardinal;
begin
  t:=GetTickCount;
  Eingabe;
  Form1.Caption:=inttostr(GetTickCount-t);
end;                    

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

//Timer
var t: cardinal;
begin
  Timer.Enabled:=False;
  t:=GetTickCount;
  Eingabe;
  Form1.Caption:=inttostr(GetTickCount-t);
  Timer.Enabled:=True;
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:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:

unit Unit2;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls,prodave;
type
  TMYThread=class(TThread)
      protected
      procedure Execute; Override;
      end;
  TForm2 = class(TForm)
    ende: TButton;
    Timer1: TTimer;
    Edit1: TEdit;
    Edit2: TEdit;
    Online: TButton;
    Offline: TButton;
    procedure endeClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure OnlineClick(Sender: TObject);
    procedure OfflineClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
var
  Form2: TForm2;
implementation
{$R *.dfm}
uses pvar;
procedure Eingabe;
Var
Abbyte,Anzahl:integer;
Begin
 // Werte Holen
     Abbyte:=124;
     Anzahl:=1;
     Res_R:= load_tool(1, addr(sps_name),addr(sps_adr_table[0]));
      if Res_R=0 then
      E_field_read(Abbyte,Anzahl,RW_byte);
      Res_R:=Unload_Tool;
end;
//--------------------------------Werte holen
procedure Tmythread.Execute;
Begin
while not self.terminated do
begin
 Eingabe;
 Form2.Edit2.Text:=intToStr(RW_byte[0]);
 end;
end;
//---------------------------Erstmal ohne Timer
procedure TForm2.Timer1Timer(Sender: TObject);
Var t:cardinal;
begin
 { Timer1.Enabled:=False;
    t:=GetTickCount;
    Eingang;
    Form2.Edit2.Text:=intToStr(RW_byte[0]);
    Timer1.Enabled:=True;
    Edit1.Text:=intTostr(GetTickcount-t);    }
end;
//--------------------------Thread Aktivieren
procedure TForm2.OnlineClick(Sender: TObject);
Var
Thread: TmyThread;
begin
 Thread:=Tmythread.Create(True);
 Thread.Resume;  // ich weiß nicht was das hier macht?
 end;
//-------------------------Thread Beenden
procedure TForm2.OfflineClick(Sender: TObject);
Var Thread:TmyThread;
begin
  Thread:=Tmythread.Create(False);
  
end;
//------------------------Form schliessen
 procedure TForm2.endeClick(Sender: TObject);
 begin
 close;
 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:

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Ende: TButton;
    lesen: TButton;
    procedure EndeClick(Sender: TObject);
    procedure lesenClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.EndeClick(Sender: TObject);
begin
close;
end;
procedure TForm1.lesenClick(Sender: TObject);
begin
Form2.show;
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:

unit pvar;
 interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

Var
  //-------------------------------------SPS
  sps_adr_table: Array[0..15] of byte;
  SPS_name:Array[0..256] of Char;
  RW_Byte:Array[0..256] of byte;
  RW_Word:Array[0..512] of word;
  Res_R,Res_w:longint;
  amount: longint;
  m:integer;
 implementation

  Begin
     Sps_adr_table[0]:=2;
     Sps_adr_table[1]:=0;
     Sps_adr_table[2]:=2;
     Sps_adr_table[3]:=0;
     Sps_adr_table[4]:=0;
     Strcopy(sps_name,'S7ONLINE');
     for M:=0 to 512 do RW_byte[M]:=0;
     M:=0;
end.                    

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

var
....
.... 
RW_Byte:Array[0..256] of byte; //256 (257)
.....  
implementation
Begin     
......
......
......
 for M := 0 to 512 do   //512 (513)?
     RW_byte[M]:=0;

 M := 0;
end.                    

1:

E_field_read(Abbyte,Anzahl,RW_byte);                    

1:
2:

Timer1.Enabled:= True; // aktivieren
Timer1.Enabled:= False; // deaktivieren