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:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:
262:
263:
264:
265:
266:
267:
268:
269:
270:
271:
272:
273:
274:
275:
276:
277:
278:
279:
280:
281:
282:
283:
284:
285:
286:
287:
288:
289:
290:
291:
292:
293:
294:
295:
296:
297:
298:
299:
300:
301:
302:
303:
304:
305:
306:
307:
308:
309:
310:
311:
312:
313:
314:
315:
316:
317:
318:
319:
320:
321:
322:
323:
324:
325:
326:
327:
328:
329:
330:
331:
332:
333:
334:
335:
336:
337:
338:
339:
340:
341:
342:
343:
344:
345:
346:
347:
348:
349:
350:
351:
352:
353:
354:
355:
356:
357:
358:
359:
360:
361:
362:
363:
364:

program ACA_Stop;

uses
  Forms,
  SDIMain in 'SDIMain.pas' {SDIAppForm},
  ABOUT in 'ABOUT.PAS' {AboutBox},
  V24 in 'V24.pas',
  RSCOMdec in 'RSCOMdec.pas',
  Comwahl in 'Comwahl.pas' {Form1},
  Daten in 'Daten.pas' {Form2};

{$R *.RES}

begin
  Application.Initialize;
  Application.Title := 'ACA_Stop';
  Application.CreateForm(TSDIAppForm, SDIAppForm);
  Application.CreateForm(TAboutBox, AboutBox);
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.Run;
end.

unit Comwahl;

interface

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

type
  TForm1 = class(TForm)
    RadioGroup1: TRadioGroup;
    RadioButton2: TRadioButton;
    RadioButton1: TRadioButton;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

const
    baudrate  = '9600';   {Einstellungen für die}
    paritaet  = 'E';      {serielle Schnittstelle}
    datenbit  = '8';
    stopbit    = '1';

var
  Form1: TForm1;
  comparameter: string;         {String mit Comport-Parameter}
  abbruch: integer;
  ACATime: TDateTime;
  acatag: integer;
  acamonat: integer;
  acajahr: integer;
  acastunde: integer;
  acaminute: integer;
  acasekunde: integer;
  timediff: TDateTime;

implementation

{$R *.dfm}

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
  abbruch:=0;
  comparameter:='COM2: baud='+baudrate+' data='+datenbit+
          ' parity='+paritaet+' stop='+stopbit;
  abbruch:= v24open(comparameter);
  if abbruch = 0 then
    Button1.Caption := 'Beenden'
  else
    Button1.Caption := 'Weiter';
end;

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
  abbruch:=0;
  comparameter:='COM1: baud='+baudrate+' data='+datenbit+
          ' parity='+paritaet+' stop='+stopbit;
  abbruch:= v24open(comparameter);
  if abbruch = 0 then
    Button1.Caption := 'Beenden'
  else
    Button1.Caption := 'Weiter';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if  abbruch = 0 then
    Application.Terminate
  else
    begin
    sendestring:='X9N00U';        {Zeichenkette für Uhrzeit holen}
    v24senden(sendestring);
    repeat
      InString := v24lesen;
    until (length(instring) = 27) and (copy(instring,1,9) = 'X027UEADY');
    val(copy(instring,10,2),acatag,fehler);
    val(copy(instring,13,2),acamonat,fehler);
    val(copy(instring,16,2),acajahr,fehler);
    acajahr :=acajahr+2000;
    val(copy(instring,20,2),acastunde,fehler);
    val(copy(instring,23,2),acaminute,fehler);
    val(copy(instring,26,2),acasekunde,fehler);
    ACATime := EncodeDateTime(acajahr, acamonat, acatag, acastunde,
                              acaminute, acasekunde, 0);
    TimeDiff := Now - acaTime;
    Form1.Free;
    end;
end;

end.


unit V24;

interface

function v24open(comparameter: string):integer;
procedure v24senden(sendestring: string);
function v24lesen: string;
procedure v24close;
function acazustand: String;

var
    sendestring: string;          {zu sendende zeichenkette}
    sendestringlaenge: integer;
    InString: String;             {vom Comport gelesene Zeichenkette}
    instringlaenge: integer;      {Länge der gelesenen Zeichenkette}
    fehler: integer;
    v24lesezeichen: Char;

implementation

uses RSCOMdec, Dialogs, SysUtils;

function v24open(comparameter: string):integer;
begin
  fehler := OPENCOM(pchar(comparameter));
  if fehler = 0 then
    showmessage('Schnittstelle nicht verfügbar!');
  v24open:=fehler;
end;

procedure v24close;
begin
  CLOSECOM();
end;

procedure v24senden(sendestring: string);
var i: integer;
begin
  sendestringlaenge:=length(sendestring);
  for i := 1 to sendestringlaenge do
    begin
    SENDBYTE(ord(sendestring[i]));
    end;
end;

function v24lesen: string;
var v24lesestring:string;
begin
  repeat
    v24lesezeichen := chr(READBYTE);
  until v24lesezeichen = 'X';
  repeat
                v24lesestring := v24lesestring+v24lesezeichen;
    v24lesezeichen := chr(READBYTE);
  until IntToHex(ord(v24lesezeichen),2) = 'FF';
  result:= v24lesestring;
end;

function acazustand: String;
begin
  sendestring:='X9N00Z';        {Zeichenkette für Zustandsabfrage}
  v24senden(sendestring);
  InString := v24lesen;
  val(copy(instring,2,3),instringlaenge,fehler);
  acazustand:=copy(instring,1,instringlaenge);
end;

end.


unit SDIMain;

interface

uses Windows, Classes, Graphics, Forms, Controls, Menus,
  Dialogs, StdCtrls, Buttons, ExtCtrls, ComCtrls, ImgList,
  StdActns, ActnList, ToolWin, V24, RSCOMdec, LMDControl,
  LMDBaseControl, LMDBaseGraphicControl, LMDGraphicControl,
  LMDClock, Comwahl, SysUtils, LMDCustomButton, LMDButton;

type
  TSDIAppForm = class(TForm)
    ToolBar1: TToolBar;
    ToolButton9: TToolButton;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    StatusBar: TStatusBar;
    ButtonMess: TButton;
    LabelBefehl: TLabel;
    ButtonKalib: TButton;
    ButtonKalibMess: TButton;
    ButtonSpuel: TButton;
    ButtonEntlueft: TButton;
    ButtonZustand: TButton;
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    FileNewItem: TMenuItem;
    FileOpenItem: TMenuItem;
    FileSaveItem: TMenuItem;
    FileSaveAsItem: TMenuItem;
    N1: TMenuItem;
    FileExitItem: TMenuItem;
    Edit1: TMenuItem;
    CutItem: TMenuItem;
    CopyItem: TMenuItem;
    PasteItem: TMenuItem;
    Help1: TMenuItem;
    HelpAboutItem: TMenuItem;
    ActionList1: TActionList;
    FileNew1: TAction;
    FileOpen1: TAction;
    FileSave1: TAction;
    FileSaveAs1: TAction;
    FileExit1: TAction;
    EditCut1: TEditCut;
    EditCopy1: TEditCopy;
    EditPaste1: TEditPaste;
    HelpAbout1: TAction;
    ImageList1: TImageList;
    OpenDialog: TOpenDialog;
    SaveDialog: TSaveDialog;
    LabelZustand: TLabel;
    LabelZeitPC: TLabel;
    LabelZeitACA: TLabel;
    Timer1: TTimer;
    ButtonFastlynx: TButton;
    ButtonDaten: TButton;
    procedure ButtonDatenClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure ButtonFastlynxClick(Sender: TObject);
    procedure ButtonEntlueftClick(Sender: TObject);
    procedure ButtonKalibMessClick(Sender: TObject);
    procedure ButtonKalibClick(Sender: TObject);
    procedure ButtonMessClick(Sender: TObject);
    procedure ButtonZustandClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure ButtonSpuelClick(Sender: TObject);
    procedure FileNew1Execute(Sender: TObject);
    procedure FileOpen1Execute(Sender: TObject);
    procedure FileSave1Execute(Sender: TObject);
    procedure FileExit1Execute(Sender: TObject);
    procedure HelpAbout1Execute(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  SDIAppForm: TSDIAppForm;
  sendestring: string;          {zu sendende zeichenkette}
  pcjahr: string;
  pcmonat: string;
  pctag: string;
  pcstunde: string;
  pcminute: string;
  pcsekunde: string;
  TimePC: string;
  DatePC: string;
  timeaca: string;
  dateaca: string;

implementation

uses about, Daten;

{$R *.dfm}

procedure TSDIAppForm.FileNew1Execute(Sender: TObject);
begin
  { Nichts ausführen }
end;

procedure TSDIAppForm.FileOpen1Execute(Sender: TObject);
begin
  OpenDialog.Execute;
end;

procedure TSDIAppForm.FileSave1Execute(Sender: TObject);
begin
  SaveDialog.Execute;
end;

procedure TSDIAppForm.FileExit1Execute(Sender: TObject);
begin
  Close;
end;

procedure TSDIAppForm.HelpAbout1Execute(Sender: TObject);
begin
  AboutBox.ShowModal;
end;

procedure TSDIAppForm.FormDestroy(Sender: TObject);
begin
  CLOSECOM();
end;

procedure TSDIAppForm.ButtonZustandClick(Sender: TObject);
begin
  labelZustand.Caption:=acazustand;
end;

procedure TSDIAppForm.ButtonMessClick(Sender: TObject);
begin
  sendestring:='X9N00A';
  v24senden(sendestring);
  labelZustand.Caption:=acazustand;
end;

procedure TSDIAppForm.ButtonKalibClick(Sender: TObject);
procedure TSDIAppForm.ButtonKalibMessClick(Sender: TObject);
procedure TSDIAppForm.ButtonSpuelClick(Sender: TObject);
procedure TSDIAppForm.ButtonEntlueftClick(Sender: TObject);
procedure TSDIAppForm.ButtonFastlynxClick(Sender: TObject);
begin
  sendestring:='X9N00T';        {Zeichenkette für Fastlynx starten}
  v24senden(sendestring);
  CLOSECOM();
  labelZustand.Caption:='FastLynx';
  MessageDlg('FastLynx-Slavemodus auf Messgerät gestartet.'+#10#13+
       'Nach der Dateiübertragung den Slavemodus über'+#10#13+
       'FastLynx beenden, und dann auf "OK" klicken.',
        mtInformation,[mbOK],0);
  v24open(comparameter);
  labelZustand.Caption:=acazustand;
end;

procedure TSDIAppForm.Timer1Timer(Sender: TObject);
begin
  TimePC := TimeToStr(Now);
  DatePC := DateToStr(Now);
  labelZeitpc.Caption := 'Zeit PC'+#10#13+TimePC+#10#13+DatePC;
  timeACA := TimeToStr(now-Timediff);
  dateaca := Datetostr(now-timediff);
  labelZeitACA.Caption := 'Zeit ACA'+#10#13+timeaca+#10#13+dateaca;
end;

end.