Wecker - Abruf Problem

[netscanner]

wie ist deine email adresse?, dann mail ich dir mal meinen code...
EDIT: So ich hab jetzt mal meinen Code angehängt. Bei mir geht er...

[Z32]

Hallo,

Mal gucken wie du es gemacht hast, interesiert mich wirklich mal. Nur kann ich leider keine .rar Archive öffnen. Habe nur Winzip, gucke mich aber nach nem Tool dafür um.

Ich hatte da noch so ne andere Idee. Ich habe bei den Memos enabled = false eingestellt, und dachte daran liegts. Tuts aber leider nicht

Naja. Aufjeden Fall gucke ich mir mal den Code an, und vielleicht finde ich meinen Fehler ja dann.

[Z32]

@ netscanner

Hab mir mal WinRar besorgt, und deine Idee angesehn. Also ich muss dir sagen, dass ich nicht ganz verstehe, was das sein soll. Wofür sind den die 4 Memo - Felder und die ganzen Anzeigen dadrin. Und wann klingelt es den bzw. wo kann man die Zeit eingeben.

Also ich möchte nicht dein Programm schlecht machen. Aber ich verstehe es halt nicht ganz.

[netscanner]

ist ja kein problem
ich hab das problem schnell in 3 minuten geschrieben.

Du kannst im programm keine zeit eingeben - war mir zu viel arbeit sorry
Du musst die zeit bzw datum in der txt datei selber ändern.
Darin wird wahrsch. auch dein Fehler liegen...Wenn du die Weckzeit über dein Programm eingegeben hast guck auch mal ob es wirklich richtig in der txt datei drin steht.

Zu den Memos
Memo1 = Weckzeit
Memo2 = aktuelle Zeit
Memo3 = Weckdatum
Memo4 = aktuelles Datum
Dazu hättest du dir den Source aber nur genauer anschauen müssen

[Z32]

Gut ok, da hast du recht.

In den txt Dateien von mir steht auch die eingegebene Zahl drin. Aber ich glaube ich weiß wo es happert. In dem Timer muss das programm die txt Dateien ja jede Sekunde öffnen. Ich glaube das geht gar nicht so schnell und oft, oder ???

[netscanner]

doch das ginge schon
wäre aber blödsinn da hast du recht...
ich pers. würde die textdatei mit button klick einmalig reinladen...
aber wiegesagt bei mir läufts auch so

[ChrisE]

Hallo Z32,

also ich weiß ja nicht, ob es dich noch interessiert, aber ich würde das ganze eher so angehen:

Delphi-Quellcode:

  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    datdat: String;
    timtim: String;
    dattim: TDateTime;
  end;

var
  Form1: TForm1;

implementation

uses DateUtils;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  sl: TStringList;

begin
  Timer1.Enabled := FALSE;                // Zur Sicherheit
  sl := TStringList.Create;
  sl.LoadFromFile('datumundzeit.txt');    // Einfach mit DateTimeToStr beim speichern der Datei ablegen, dann wirds einfacher
  dattim := StrToDateTime(sl[0]);
  // nur der Vollständigkeit halber
  datdat := DateToStr(dattim);
  timtim := TimeToStr(dattim);
  if dattim > now then begin
    // was passiert wenn der Zeitpunkt in der Zukunft liegt?
    Timer1.Interval := MilliSecondsBetween(now, dattim);
    Timer1.Enabled := TRUE;
  end else begin
    // was ist wenn die Zeit bereits vorbei ist beim öffnen der Anwendung
    ShowMessage('Zeitpunkt liegt in der Vergangenheit');
  end;
  sl.Free;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := FALSE;
  sndplaysound(PChar('Glockenspiel.wav'),snd_sync);
end;

end.

Das ganze ist nur ein Vorschlag wie man das "Warten" so einfach wie möglich gestalten kann. Du passt eigentlich nur das Intervall (in Millisekunden) an die Wartezeit an und startest den Timer. Dann bist du schon fertig. Sobald der Timer auslößt, schlatest du Ihn wieder aus und reagierst mit deinem Soundevent.
Alles weitere kannst du herum bauen wie du magst.

Vielleicht bringt es dir ja was.

Gruß, Chris

[Z32]

mhh, das sieht aber sehr professionell aus.

Ich glaube das muss ich mir erst mal genauer angucken.

Sieht kopleziert aus, ist das für nen ganz einfachen Wecker denn nötig ???

Aber ich gucke mal, ob ich vielleicht eine kleine Passage schon übernehmen kann, aufjedenfall danke für deine Idee