(RESOLVIDO) Ajuda Delphi - Criaçao De Log

[Monky]

Boas Pessoal...

Estou com umas dificuldades em fazer a criação de um ficheiro de log, eu estou a desenvolver um projecto de segurança nesse projecto tenho um cofre que abre e fecha atravez do programa em delphi o que pretendia era criar um log a dizer se a porta do cofre tinha sido aberta ou fechada, a que horas, e em que dia, e depois também queria fazer outro para dois sensores que tenho, para saber quando foram desligados e ligados e ainda outro para saber a data e hora do disparo do alarme...

Como controlo todos os sensores e a porta do cofre atravez da paralela aqui vos deixo o esquema de bits que tenho:

Setbit(0)=Fazer motor andar para um lado

Setbit(1)=Fazer motor andar para o outro lado

Setbit(5)=Saida para a buzina(alarme)

S4=Sensor1

S5=Sensor2

Aqui fica um pedaço do codigo das minhas esperiencias a tentar criar os log files...

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IniFiles;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Button2: TButton;
    Button3: TButton;
    ColorDialog1: TColorDialog;
    Edit1: TEdit;
    GroupBox1: TGroupBox;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  NomeDoLog: String;
  Arquivo: TextFile;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  Ini: TIniFile;
begin
NomeDoLog := 'historico.hst';
  AssignFile(Arquivo, NomeDoLog);
  if FileExists(NomeDoLog) then
    Append(arquivo) { se existir, apenas adiciona linhas }
  else
    ReWrite(arquivo); { cria um novo se não existir }
  try
    WriteLn(arquivo, '------------------------');
    WriteLn(arquivo, 'Aqui Nesta Linha Queria Colocar a hora e a data');
    WriteLn(arquivo, 'Aqui O estado, ou seja se a porta do cofre foi aberta ou fechada');
    WriteLn(arquivo, '------------------------');
    WriteLn(arquivo, 'Aqui Nesta Linha Queria Colocar a hora e a data');
    WriteLn(arquivo, 'Aqui o estado dos sensores, se estes tinhas sido desligados');
    WriteLn(arquivo, '------------------------');
    WriteLn(arquivo, 'Aqui Nesta Linha Queria Colocar a hora e a data');
    WriteLn(arquivo, 'O alarme foi accionado');
finally
    CloseFile(arquivo)
  end;
  // isto convem por no OnShow
  Ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'config.ini');
  Self.Color := StringToColor(Ini.ReadString('CONF', 'COR', '$00FFFFFF'));
  // este $00FFFFFF é só um default caso o ficheiro n exista
  FreeAndNil(Ini); 
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
NomeDoLog:='historico.hst';
if FileExists(NomeDoLog) then memo1.Lines.LoadFromFile('historico.hst');
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  Ini: TIniFile;
begin
if colordialog1.Execute then
begin
  form1.Color:=colordialog1.Color;
  groupbox1.Color:=colordialog1.Color;

  edit1.Text:=ColorToString(colordialog1.color);
  Ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'config.ini');
  Ini.WriteString('CONF', 'COR', edit1.Text);
  FreeAndNil(Ini);
end;

end;

end.

Editado Julho 10, 2008 por Monky

[Micheus]

quanto a gravar hora e data:

WriteLn(arquivo, FormatDateTime('hh:nn - dd/mm/yyyy', Now)); // gravando hora e data

já quanto a gravar o estado, ou seja se a porta do cofre foi aberta ou fechada, esta informação não deveria ser gravada quando este estado mudasse? Seja quando você dá o comando ou quando dê esta informação?

Voce poderia enviar o comando de abertura e simplesmente a porta não abrir. Não seria conveniente registrar o comando, e depois registrar a leitura da situação da porta? Você recebe de algum modo a informação de que a porta abriu ou fechou?

Você citou um função SetBit usada para setar um determinado bit na porta paralela. No momento em que você enviar estar informação para a porta, seria o momento de gravar a mensagem de que foi solicitado o fechamento ou abertura. O evento OnCreate, não parece ser o local mais apropriado para isto.

Já se você receber algum evento, ou fizer alguma leitura da porta paralela, este seria o momento de registrar a situação em que a porta se encontra.

Abraços