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