EAccessViolation führt zu unerwartetem APPCRASH (gelöst)

[Jasocul]

Das Break verlässt nur die innere Schleife.
Danach kommt ein Disconnect, welches vermutlich einen Fehler verursachen wird.

Prüfe vor dem Disconnect, ob IsConnected True ist.

[mjustin]

Zitat von Jasocul:

Das Break verlässt nur die innere Schleife.
Danach kommt ein Disconnect, welches vermutlich einen Fehler verursachen wird.

Prüfe vor dem Disconnect, ob IsConnected True ist.

Das Disconnect wird nicht erreicht, wie im Stacktrace zu erkennen ist wird als letzte Zeile der Unit das Break bzw. das IsConnected := True ausgeführt. Dann geht es nur noch ins madExcept bzw. die RTL System Units.

[KodeZwerg]

ot
Ich habe da mal eine Frage, Du beginnst mit " while True do", worauf bezieht sich "True" ?
/ot

[mjustin]

Zitat von KodeZwerg:

ot
Ich habe da mal eine Frage, Du beginnst mit " while True do", worauf bezieht sich "True" ?
/ot

True ist immer wahr, eine while True do ... Schleife ist somit eine 'Endlosschleife' da die Abbruchbedingung nie False wird

[KodeZwerg]

Zitat von mjustin:

True ist immer wahr, eine while True do ... Schleife ist somit eine 'Endlosschleife' da die Abbruchbedingung nie False wird

Danke, ich habe Schleifen bis jetzt nie so eingesetzt. Das bedeutet also das selbst bei einem Fehler in der inneren Schleife die "while true do" immer weiter läuft und läuft und läuft... also der Versucht sich permanent zu Connecten, gut zu Wissen!


Ginge es so eventuell?

Delphi-Quellcode:

procedure TProducerLoop.Run;
begin
  while True do
  begin
    if not IsConnected then Connect;

    while IsConnected do
    begin
      try
        ProduceOneMessage;
      except
        on E: Exception do
        begin
          Break; // hier fehler oder auch nicht, schau mal.
        end;
      end;
    end;

    if IsConnected then Disconnect;
  end;
end;

[mjustin]

Zitat von KodeZwerg:

Zitat von mjustin:

True ist immer wahr, eine while True do ... Schleife ist somit eine 'Endlosschleife' da die Abbruchbedingung nie False wird

Danke, ich habe Schleifen bis jetzt nie so eingesetzt. Das bedeutet also das selbst bei einem Fehler in der inneren Schleife die "while true do" immer weiter läuft und läuft und läuft... also der Versucht sich permanent zu Connecten, gut zu Wissen!


Ginge es so eventuell?

Delphi-Quellcode:

procedure TProducerLoop.Run;
begin
  while True do
  begin
    if not IsConnected then Connect;

    while IsConnected do
    begin
      try
        ProduceOneMessage;
      except
        on E: Exception do
        begin
          Break; // hier fehler oder auch nicht, schau mal.
        end;
      end;
    end;

    if IsConnected then Disconnect;
  end;
end;

Danke, aber das ist nicht erforderlich: die Connect-Methode sieht so aus:

Delphi-Quellcode:

procedure TProducerLoop.Connect;
begin
  while True do
  try
    CreateProducer;
    Logger.Info('Connected %d', [GetCurrentThreadID]);
    IsConnected := True;
    Exit;
  except
    on E: Exception do
    begin
      Sleep(1000);
    end;
  end;
end;

Die ursprüngliche Version - ohne IsConnected - ist aber völlig ausreichend. Den langen Umweg über IsConnected habe ich nur verwendet um das "Break" als Ursache des APPCRASH auszuschliessen. Der Code mit Break benötigt keine weitere Variable für den Abbruch der Schleife, ist funktional identisch, und leichter lesbar:

Delphi-Quellcode:

procedure TProducerLoop.Run;
begin
  while True do
  begin
    Connect;

    while True do
    begin
      try
        ProduceOneMessage;
      except
        on E: Exception do
        begin
          Break;
        end;
      end;
    end;

    Disconnect;
  end;
end;

[KodeZwerg]

Zitat von mjustin:

Delphi-Quellcode:

procedure TProducerLoop.Run;
begin
  while True do
  begin
    Connect;

    while True do
    begin
      try
        ProduceOneMessage;
      except
        on E: Exception do
        begin
          Break;
        end;
      end;
    end;

    Disconnect;
  end;
end;

Delphi-Quellcode:

procedure TProducerLoop.Run;
Label MyBreak;
begin
  while True do
  begin
    Connect;

    while True do
    begin
      try
        ProduceOneMessage;
      except
        on E: Exception do
        begin
          Goto MyBreak;
        end;
      end;
    end;
    Disconnect;
    MyBreak:
  end;
end;

So solltest Du aus Deinen Endlosschleifen rauskommen ohne Crash, oder?

[mjustin]

Zitat von Jasocul:

Das Break verlässt nur die innere Schleife.
Danach kommt ein Disconnect, welches vermutlich einen Fehler verursachen wird.

Prüfe vor dem Disconnect, ob IsConnected True ist.

Im Delphi Debugger (mit abgeschaltetem madExcept) habe ich überprüft welche Codezeilen ausgeführt werden wenn der Server nicht mehr erreicht werden kann:
als Breakpoint habe ich die Zeile mit IsConnected := False gesetzt. Dort stoppt das Programm dann wie erwartet, aber von dort geht es mit F8 sofort aus der Prozedur heraus in das finally der aufrufenden Methode.

Delphi-Quellcode:

  ProducerLoop := TProducerLoop.Create(BROKER_URL, QUEUE_NAME);
  try
    ProducerLoop.Run; // die Run-Prozedur wird bei einer Exception verlassen ...
  finally
    ProducerLoop.Free;  // ... und daher das Programm hier fortgesetzt
  end;

[himitsu]

k.A. was die ursprüngliche Exception auslöst ... Warum kommt niemand auf die Idee erstmal danach zu sehen?


Nja, wenn irgendwas einen der Stacktraces oder anderen Speicher schrottet, dann kann danach sonstwas kaputt sein und mit etwas Glück auch das ganze Programm abrauchen.

[mjustin]

Zitat von himitsu:

k.A. was die ursprüngliche Exception auslöst ...

Nja, wenn irgendwas den Stacktrace oder anderen Speicher schrottet, dann kann danach sonstwas kaputt sein und mit etwas Glück auch das ganze Programm abrauchen.

Dem stimme ich 100%ig zu.

Fehler im sonstigen Code, der einen beschädigten Stack verursacht, ist natürlich nicht leicht zu finden.

Sobald ich etwas mehr Zeit habe, schreibe ich eine simple Testanwendung, die nur versucht den Port des Servers zu öffnen. Spanned wird es wenn das dann funktioniert. Ursachen für Stackschäden zu finden ist sicher kein Ponyhof