Projektbericht 796.8 KByte - Technikpreis

43 D Quellcode
begin
lblCaption.Caption := PaxonStr;
end;
procedure TPaxonThread.SendSensorData();
begin
myString := myStringPointer^;
end;
procedure TPaxonThread.Connect(Call : WideString);
begin
Connection := myPaxon.FindConnection(Call);
PaxonStr := ’Connection gefunden’;
Synchronize(UpdateLabel);
If Connection = Nil Then
begin
Connection := myPaxon.Connect(Call);
PaxonStr := ’Neu verbunden’;
Synchronize(UpdateLabel);
end;
end;
procedure TPaxonThread.SendToMailbox(Einstieg : WideString; Board :
WideString; Betreff : WideString);
begin
Connect(Einstieg);
Connection.SendTextLine(’ ’);
Connection.WaitForText(’=>’);
Connection.SendTextLine(’m’);
Connection.WaitForText(’-->’);
Connection.SendTextLine(’ ’);
Connection.WaitForText(’-->’);
Connection.SendTextLine(’s’ + ’ ’ + Board + ’ ’ + Betreff);
Connection.WaitForText(’:’);
Connection.SendTextLine(’Diese Mail wurde automatisch generiert’);
Synchronize(SendSensorData);
Connection.SendTextLine(myString);
Connection.SendTextLine(’NNNN’);
Connection.WaitForText(’-->’);
Connection.SendTextLine(’ ’);
Connection.WaitForText(’-->’);
Connection.SendTextLine(’q’);
SendMailNext := False;
end;
end.
unit CalibSensor;
interface
uses
SysUtils, Windows, Messages, Classes, Graphics, Controls,
StdCtrls, ExtCtrls, Forms, Dialogs;
type TCalibArray = Array[0..7,0..255] of Single;
type TEinheitArray = Array[0..7] of ShortString;
type
TfrmCalibSensor = class(TForm)
btnOk: TButton;
btnCancel: TButton;
Label1: TLabel;
lblSensorNr: TLabel;
Label2: TLabel;
Label3: TLabel;