Projektbericht 796.8 KByte - Technikpreis

37 D Quellcode
begin
if chbSendMail.Checked = True Then myPaxonThread.SendMailNext := True
else myPaxonThread.SendMailNext := False;
end;
procedure TfrmMain.txtSensorTimeChange(Sender: TObject);
begin
tmrSensorabfrage.Interval := StrToInt(txtSensorTime.Text) * 1000;
end;
procedure TfrmMain.txtSendTimeChange(Sender: TObject);
begin
tmrMail.Interval := StrToInt(txtSendTime.Text) * 60000;
end;
procedure TfrmMain.btnSendEinstellungenClick(Sender: TObject);
var save : boolean;
begin
save := myPaxonThread.SendMailNext;
myPaxonThread.SendMailNext := False;
myPaxonThread.myEinstieg := txtEinstieg.Text;
myPaxonThread.myBoard := txtBoard.Text;
myPaxonThread.myBetreff := txtBetreff.Text;
myPaxonThread.SendMailNext := save;
end;
end.
unit Thread;
interface
uses
Classes, Windows, SysUtils;
type
TSerialThread = class(TThread)
private
PortTimeout : _COMMTIMEOUTS;
PortHandle : Integer;
PortDCB : TDCB;
PortNr : Integer;
PortState : Cardinal;
WriteOverlapped,ReadOverlapped,StatusOs: TOverlapped; { Private-Deklarationen }
protected
fComEvent: cardinal;
fStatCTS: boolean;
fStatDCD: boolean;
fStatDSR : Boolean;
fStatRing : Boolean;
procedure Execute; override;
public
StatDTR : boolean;
StatRTS : boolean;
StatTXD : boolean;
constructor Create(CreateSuspended: Boolean);
property ComEvent: cardinal read fComEvent;
property StatCTS: boolean read fStatCTS;
property StatDCD: boolean read fStatDCD;
property StatDSR: boolean read fStatDSR;
property StatRing: boolean read fStatRing;
function ClearDTR : boolean; stdcall;
function ClearRTS : boolean; stdcall;
function ClearTXD : boolean; stdcall;
function SetzeDTR : boolean; stdcall;