Eine Procedure durch Stop Button unterbrechen

[sx2008]

Eigentlich ist das Problem ganz einfach zu lösen.
Man braucht dazu ein Flag, einen Start- und einen Stopbutton und zwei kleine Hilfsfunktionen:

Delphi-Quellcode:

TForm1=class(TForm)

pivate
  FRunning : Boolean; // =True wenn Arbeitsprocedure läuft
  procedure DoWork;   // die Arbeitsprocedure; kann längere Zeit laufen
protected
  function IsRunning:Boolean;
  procedure UpdateButtons;
end;
....

function TForm1.IsRunning:Boolean;
begin
  // wichtig, VCL muss die Gelegenheit bekommen
  // auf einen Klick auf Stopbutton zu reagieren
  Application.ProcessMessages;  
  Result := FRunning;
end;

// Start- und Stopbutton an- bzw. abschalten
procedure TForm1.UpdateButtons;
begin
  ButtonStart.Enabled := not FRunning;
  ButtonStop.Enabled := FRunning;
end;

procedure TForm1.StartButtonClick(Sender:TObject)
begin
  FRuning := True;
  UpdateButtons;
  DoWork;
  FRunning := False;
  UpdateButtons;
end;

procedure TForm1.StopButtonClick(Sender:TObject)
begin
  FRuning := False;
end;


// die Arbeitsprocedure
// hier kann man alles mögliche tun,
// man muss nur regelmässig die Funktion IsRunning aufrufen
// und mit Exit abbrechen falls nötig
procedure TForm1.DoWork;
begin
  for i:=1 to 1000 do
  begin
    if not IsRunning then Exit;
    ....
  end;
end;

[klaus9]

Hi,

das ist super, habe ich auch soweit integriert in mein Project.

Nun habe ich es mal ausprobiert mit folgendem Code

Delphi-Quellcode:

procedure TForm1.DoWork;
var
i:Integer;
begin
  for i:=1 to 1000 do
  begin
    if not IsRunning then Exit;
//BEGIN
Action1.execute;
//ENDE

  end;
end;

Der Code meiner Test ausführung beinhaltet

Delphi-Quellcode:

var    ovElements: OleVariant;    i: Integer;
begin
ovElements := WebBrowser1.OleObject.Document.forms.item(0).elements;
    for i := 0 to (ovElements.Length - 1) do
         if (ovElements.item(i).tagName = 'INPUT') and
               (ovElements.item(i).type = 'submit') and
                 (ovElements.item(i).Value = 'Filter löschen') then
                   ovElements.item(i).Click;
delay(900);
ovElements := WebBrowser1.OleObject.Document.forms.item(0).elements;
    for i := 0 to (ovElements.Length - 1) do
         if (ovElements.item(i).tagName = 'INPUT') and
               (ovElements.item(i).type = 'submit') and
                 (ovElements.item(i).Value = 'Filter löschen') then
                   ovElements.item(i).Click;
delay(900);
ovElements := WebBrowser1.OleObject.Document.forms.item(0).elements;
    for i := 0 to (ovElements.Length - 1) do
         if (ovElements.item(i).tagName = 'INPUT') and
               (ovElements.item(i).type = 'submit') and
                 (ovElements.item(i).Value = 'Filter löschen') then
                   ovElements.item(i).Click;

end;

Nun versuche ich diese Routine zu unterbrechen, nur leider klappt es nicht.. Was mache ich falsch ?

Gruß und nochmal danke für den Code..

[sx2008]

Du darfst die Schleife von 1 bis 1000 nicht einfach so übernehmen; das war nur ein Beispiel.
Du musst in deinem Code immer wieder die Funktion IsRunning aufrufen.
Wenn du das zu oft tust, wird der Ablauf langsamer als nötig.
Zu selten und die Reaktion auf Stop ist verzögert.
Ein gesundes Mittelmaß ist nötig.

Delphi-Quellcode:

var ovElements: OleVariant; i: Integer;
begin
ovElements := WebBrowser1.OleObject.Document.forms.item(0).elements;
    for i := 0 to (ovElements.Length - 1) do
         if (ovElements.item(i).tagName = 'INPUT') and
               (ovElements.item(i).type = 'submit') and
                 (ovElements.item(i).Value = 'Filter löschen') then
                 begin
                   if not IsRunning then Exit;  //***
                   ovElements.item(i).Click;
                 end;
for i:=1 to 9 do
begin
  if not IsRunning then Exit; //***
  delay(100);
end;
ovElements := WebBrowser1.OleObject.Document.forms.item(0).elements;
    for i := 0 to (ovElements.Length - 1) do
         if (ovElements.item(i).tagName = 'INPUT') and
               (ovElements.item(i).type = 'submit') and
                 (ovElements.item(i).Value = 'Filter löschen') then
                   ovElements.item(i).Click;
for i:=1 to 9 do
begin
  if not IsRunning then Exit;  //***
  delay(100);
end;
ovElements := WebBrowser1.OleObject.Document.forms.item(0).elements;
    for i := 0 to (ovElements.Length - 1) do
         if (ovElements.item(i).tagName = 'INPUT') and
               (ovElements.item(i).type = 'submit') and
                 (ovElements.item(i).Value = 'Filter löschen') then
                   ovElements.item(i).Click;

end;

[klaus9]

Ah okay danke ich probiere es später mal aus