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' , ABOUT in 'ABOUT.PAS' , V24 in 'V24.pas', RSCOMdec in 'RSCOMdec.pas', Comwahl in 'Comwahl.pas' , Daten in 'Daten.pas' ;
{$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 public end;
const baudrate = '9600'; paritaet = 'E'; datenbit = '8'; stopbit = '1';
var Form1: TForm1; comparameter: string; 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'; 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; sendestringlaenge: integer; InString: String; instringlaenge: integer; 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'; 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 public end;
var SDIAppForm: TSDIAppForm; sendestring: string; 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 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'; 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. |