Zitat von Furtbichler:

Zitat von Mavarik:

...und lößt eine manuelle Exception aus!

... Was ist denn eine 'manuelle Exception'?

markieren

Delphi-Quellcode:

procedure SignalConverter(ExceptionEIP: LongWord; FaultAddr: LongWord; ErrorCode: LongWord);
{$IFDEF CPUARM}
begin
  raise GetExceptionObject(ExceptionEIP, FaultAddr, ErrorCode) at Pointer(ExceptionEIP);
end;
{$ENDIF CPUARM}

{
RaiseSignalException is called from SignalConverter, once we've made things look
like there's a legitimate stack frame above us. Now we will just create
an exception object, and raise it via a software raise.
}
procedure RaiseSignalException(ExceptionEIP: LongWord; FaultAddr: LongWord; ErrorCode: LongWord);
begin
raise GetExceptionObject(ExceptionEIP, FaultAddr, ErrorCode);
end;

{
SignalConverter is where we come when a signal is raised that we want to convert
to an exception. This function stands the best chance of being called with a
useable stack frame behind it for the purpose of stack unwinding. We can't
guarantee that, though. The stack was modified by the baseline signal handler
to make it look as though we were called by the faulting instruction. That way
the unwinder stands a chance of being able to clean things up.
}

markieren

Delphi-Quellcode:

var
  E : TEvent;
begin
  E.SetEvent;
  // call dispatch_semaphore_signal(FEvent);

Mavarik

Das Create vom TEvent hast du aber drin oder hast den quelltext extrem gekürzt ?

Zitat von daywalker9:

Das Create vom TEvent hast du aber drin oder hast den quelltext extrem gekürzt ?

Ja sorry... Ging mir nur um die Aufrufreihenfolge...

Im Simulator funktioniert es ja auch....

Mavarik

OK... Es geht doch...

Der Compiler akzeptiert zwar

markieren

Delphi-Quellcode:

var
  E : TEvent;
begin
  E := TEvent.Create;
  E.ResetEvent;
...
end;

Aber es funktioniert nur mit:

markieren

Delphi-Quellcode:

var
  E : TEvent;
begin
  E := TEvent.Create(NIL,true,true,''); // <---
  E.ResetEvent;
...
end;

Das war der Trick!

Grüsse Mavarik

Ich persönlich finde es ja schicker, wenn der Event sich selbst zurücksetzt.

Dann reicht

markieren

Delphi-Quellcode:

var
  E : TEvent;
begin
  E := TEvent.Create( nil, False, False, '' );
  while not Terminated do
  begin
    E.WaitFor;
  end;
end;

Zitat von Sir Rufo:

Ich persönlich finde es ja schicker, wenn der Event sich selbst zurücksetzt.

Ist glaube ich Geschmacksache.

Ich mache es lieber so...

zusammenfalten · markieren

Delphi-Quellcode:

  while GetAdresse and not Terminated do
    begin
      E.ResetEvent;

      Akt := GetTickCount;
      Waiter := Akt - LastTick;
      LastTick := Akt;

      if Waiter < 1000 then
        Sleep(1000-Waiter);

      FGeocoder.Geocode(Address); // 1x pro Sekunde

      R := E.WaitFor(15000);
      case R of
        wrSignaled : begin
                           Synchronize(Process);
                           if fAbort then
                             begin
                               Error := -8;
                               break;
                             end;
                         end;
        wrTimeout : begin
                           Error := -4;
                           break;
                         end;
        wrAbandoned : begin
                           Error := -5;
                           break;
                         end;
        wrError : begin
                           Error := -6;
                           break;
                         end;
        wrIOCompletion : begin
                           Error := -7;
                           break;
                         end;
      end;
    end;

Mavarik