Projektbericht 796.8 KByte - Technikpreis

41 D Quellcode
unit Speichern;
interface
uses
Classes, Windows, SysUtils;
procedure WriteMyData(FileName: OpenString; Data : OpenString);
type
TSaveSensor = class(TFileStream)
private
protected
public
end;
const
fmCreate = $FFFF;
fmOpenRead = $0000;
fmOpenWrite = $0001;
fmOpenReadWrite = $0002;
fmShareCompat = $0000 platform;
fmShareExclusive = $0010;
fmShareDenyWrite = $0020;
fmShareDenyRead = $0030 platform;
fmShareDenyNone = $0040;
implementation
procedure WriteMyData(FileName: OpenString; Data : OpenString);
var myFile : TextFile;
begin
AssignFile(myFile,FileName);
try
if FileExists(FileName) = True then Append(myFile) else Rewrite(myFile);
writeln(myFile,Data);
finally
CloseFile(myFile);
end;
end;
end.
unit Paxon;
interface
uses Windows, Paxon_TLB, ComObj, ActiveX, Dialogs, Classes, StdCtrls;
type PBoolean = ^Boolean;
type
TPaxonThread = class(TThread)
private
lblCaption : TLabel;
myStringPointer :PWideString;
myString : WideString;
SendMailNextPointer : PBoolean;
procedure Connect(Call : WideString);
procedure SendSensorData();
protected
PaxonStr : string;
procedure Execute; override;
procedure UpdateLabel;