Ergebnis der Suchanfrage

• Forum: Netzwerke

  Re: Zeitversetzt senden

    Delphi
    by Thomas F, 17. Dez 2008
  Fehler gefunden !
  
  Datetimepicker1.Time Datetimepicker2.date
  
  Datetimepicker1.date Datetimepicker2.time
  
  vetauscht :wall:
• Forum: Netzwerke

  Re: Zeitversetzt senden

    Delphi
    by Thomas F, 17. Dez 2008
  Ich konnte keinen Fehler finden, ich habe dann alle Objekte gelöscht und dann alles nochmal neu
  programmiert, beim zweiten Mal hat es dann funktioniert.
  Vermutlich ein Fehler von Delphi 2005, soll nicht ganz fehlerfrei sein.
• Forum: Netzwerke

  Re: Zeitversetzt senden

    Delphi
    by Thomas F, 17. Dez 2008
  ...ich hab alles nochmal neu eingegeben, jetzt funktioniert es :gruebel:
  
  Form1.color := CLBackground geht auch
  
  irgendein Fehler, seltsam
• Forum: Netzwerke

  Re: Zeitversetzt senden

    Delphi
    by Thomas F, 17. Dez 2008
  ........komisch, das funktioniert trotzdem nicht.
  Ich kann keinen Fehler finden.. :gruebel:
  
  
  unit Unit1;
  
  interface
  
  uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
• Forum: Netzwerke

  Re: Zeitversetzt senden

    Delphi
    by Thomas F, 16. Dez 2008
  systemzeit := time;
  Versende_Zeit := DatetimePicker1.Time;
  Timer1.Interval := 1000;
  
  
  Fehlermeldungen kommen keine, es wird nichts verschickt
  Ich hab mal zur Kontrolle einen ähnlichen Code geschrieben, um alles nochmal zu überprüfen, aber
  der funktioniert auch nicht
• Forum: Netzwerke

  Re: Zeitversetzt senden

    Delphi
    by Thomas F, 16. Dez 2008
  ich habs so eingegeben, aber es funktioniert einfach nicht :gruebel:
• Forum: Netzwerke

  Re: Zeitversetzt senden

    Delphi
    by Thomas F, 16. Dez 2008
  ....so
  
  
  procedure TForm1.Timer1Timer(Sender: TObject);
  begin
  Timer1.Interval:= 1000;
  if Systemzeit >= Versende_Zeit then
  Zeitversetzt_Senden;
  
  end;
• Forum: Netzwerke

  Re: Zeitversetzt senden

    Delphi
    by Thomas F, 16. Dez 2008
  Achso, jetzt hab ichs kapiert.....
  
  
  procedure TForm1.Timer1Timer(Sender: TObject);
  begin
  Timer1.Interval:= 1000;
  if Systemzeit = Versende_Zeit then
  Zeitversetzt_Senden;
  
  end;
• Forum: Netzwerke

  Re: Zeitversetzt senden

    Delphi
    by Thomas F, 16. Dez 2008
  procedure TForm1.Zeitversetzt_Senden;
  var Systemzeit,Systemzeit_Datum,Versende_Zeit_Datum,Versende_Zeit,Differenz:TDatetime;
  begin
  Systemzeit:=Time;
  Systemzeit_Datum:=Date;
  Versende_Zeit:= Datetimepicker2.Time;
  Versende_Zeit_Datum:=Datetimepicker1.Date;
  If Systemzeit_Datum = Versende_Zeit_Datum then
  Differenz:= Versende_Zeit - Systemzeit;
  end;
• Forum: Netzwerke

  Re: Zeitversetzt senden

    Delphi
    by Thomas F, 16. Dez 2008
  Die Differenz aus Systemzeit und Versende_Zeit ermitteln, und dann mit dem Timer hochzählen.
• Forum: Netzwerke

  Zeitversetzt senden

    Delphi
    by Thomas F, 16. Dez 2008
  Wie kann ich eine Email zeitversetzt senden.
  
  Das normale Versenden mit Button.Onclick hab ich schon fertig und es funktioniert auch,
  
  müßte nur noch , vermutlich mit TTimer , eine Zeit einstellen und dann verschicken.
  
  z.B in 15 Minuten oder 21:00 Uhr