Schleifenfunktion?

[BullsEye]

Zitat:

Zitat von Die Muhkuh

Oh je. Mach einen Windows-Task, der das Programm alle drei Stunden aufruft. Im Programm schließt Du nach dem Klicken das Programm wieder. Somit keine x geöffneten Fenster.

hm wäre auch ne Möglichkeit aber aber das wird denn alles nicht so, wie ich das haben will^^
Und es bietet einige Nachteile

[Klaus01]

ich finde es immer noch, dass der Ansatz falsch ist.
Aber Du willst es ja nicht anders.

Delphi-Quellcode:

procedure TfrmMain.CheckBox1Click(Sender: TObject);
VAR zeit, i : longint;
begin
  IF CheckBox1.Checked THEN 
    BEGIN
      zeit := StrToInt(Edit2.text);
      zeit := zeit * 3600;
    END;

    i:=0;
    // fast endlos Schleife
    while CheckBox1.checked do
    BEGIN
      if i = zeit then
        begin
           Button1.Click;
           i:=0
        end;
      //sleep(1000);
      delay(1000);
      inc(i,1000);
    END;

end;

Die delay Funktion findest Du hier im Forum.
Grüße
Klaus

[BullsEye]

Zitat:

Zitat von Klaus01

ich finde es immer noch, dass der Ansatz falsch ist.
Aber Du willst es ja nicht anders.

Im Grunde gebe ich dir da Recht, nur ist das so für mich besser zu regelen und später sollen noch einige Funktionen hinzukommen. Deswegen. Aber danke, der Ansatz hilft mir!

[Klaus01]

Oder so:

Delphi-Quellcode:

procedure TForm1.CheckBox1Click(Sender: TObject);
var
  stunden: Integer;
  zeit: LongInt;
begin

  if checkbox1.Checked then
    begin
      stunden:=StrToInt(Edit1.Text);
      zeit:=stunden * 3600;
      Timer1.Interval:=zeit*1000;
    end;
  Timer1.Enabled:=checkbox1.Checked;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  button1.Click;
end;

Gute Nacht.
Grüße
Klaus

[Die Muhkuh]

Sorry, aber von allen Lösungen ist Deine echt die schlechteste. Wenn man wüsste, was Dein Programm macht, könnte man Dir noch besser helfen. Einen Button anklicken, der dann wieder irgendwas macht.

Du könntest eine Consolen-App z.B. mit Parameter aufrufen und dann entsprechenden Code ausführen.

Quasi ist alles besser, als das, was Du vor hast.

[BullsEye]

Zitat:

Zitat von Die Muhkuh

Sorry, aber von allen Lösungen ist Deine echt die schlechteste. Wenn man wüsste, was Dein Programm macht, könnte man Dir noch besser helfen. Einen Button anklicken, der dann wieder irgendwas macht.

Du könntest eine Consolen-App z.B. mit Parameter aufrufen und dann entsprechenden Code ausführen.

Quasi ist alles besser, als das, was Du vor hast.

Der Button bewirkt, das eine URL aufgerufen wird, die in dem Edit Feld steht.

[Die Muhkuh]

Und warum das ganze nicht per Parameter an die Anwendung übergeben? Oder aus einer Ini / XML / Text-Datei auslesen?

[Klaus01]

Zitat:

Zitat von BullsEye

Der Button bewirkt, das eine URL aufgerufen wird, die in dem Edit Feld steht.

Und was soll dann mit der aufgerufenen URL passieren.
Angezeigt werden (Twebbrowser?) geparst werden (TidHttp?)?

Grüße
Klaus

[BullsEye]

Delphi-Quellcode:

ShellExecute(Application.Handle, 'open',
               PChar(sLabel3.Caption), nil, nil,
               SW_ShowNormal);

Er soll den Standardbrowser öffnen und dann anzeigen

[Die Muhkuh]

Mach Dir eine Konsole, übergib als ersten Paramter die Website und alles ist gut. Dann kannst Du bei mehreren Internetseiten mehrere Tasks erstellen und aufrufen lassen.