Thread's & Signals?

[Mavarik]

Zitat:

Zitat von daywalker9 (Beitrag 1215856)

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

[Mavarik]

OK... Es geht doch...

Der Compiler akzeptiert zwar

Delphi-Quellcode:

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

Aber es funktioniert nur mit:

Delphi-Quellcode:

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

Das war der Trick!

Grüsse Mavarik

[Sir Rufo]

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

Dann reicht

Delphi-Quellcode:

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

[Mavarik]

Zitat:

Zitat von Sir Rufo (Beitrag 1219847)

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

Ist glaube ich Geschmacksache.

Ich mache es lieber so...

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