Announcement

**Hagen Reddmann** · 05.08.2003, 20:16

Dieser Vorgang soll aber im selben Thread Context laufen ? 

Gruß Hage

**Harald Binder** · 06.08.2003, 07:29

Hallo Hagen 
Ja das sollte er.  
 
Gruß 
Harald Binder 
</font&gt

**Hagen Reddmann** · 06.08.2003, 08:13

Hm, nochmal damit ichs begreife: der Thread soll diese Funktion nur auslösen, weiterlaufen und erst später diese Funktion wirklich abarbeiten. Das einfachste Mittel wäre eine Boolean Variable in der .Execute Loop auf True zu setzen. Am Ende dieser Loop steht dann der Aufruf der eigentlichen Funktion wenn das Booleanflag True ist. 
Alles andere macht in meinen Augen keinen Sinn, da egal ob Thread oder MainThread, das Verfahren wie bei PostMessage() auch nur eine zeitverzögerte sequentielle Abarbeitung des Programmcodes darstellt. 
Ansonsten bliebt nur innerhalb des Threads einen neuen Thread zu starten der "parallel" die Funktion ausführt.

Gruß Hage

**Harald Binder** · 06.08.2003, 10:39

Hallo Hagen, 
ich möchte mit GetQueuedComple tionStatus und ReadDirectoryChanges&nbsp ;einen 
Ordner überwachen. In der&nbsp ;Execute sollen die Events in& nbsp;eine ActionList 
geschrieben werden. Der Grund  ist wenn ich mich zu lang e im Loop  
aufhalte können mir Events&nbs p;verloren gehen. Das schreiben&nbs p;der ActionList 
geht schneller als das was&nbs p;ich mit diesen Events machen  muß. Also soll  
der ganze Kram in eine Li ste gehämmert werden und  außerhalb des Loops 
abgearbeitet werden. Das geht  allerdings nur wenn ich nicht& nbsp;auf die  
Rückkehr der Message waren&nbs p;muß. Ich hoffe es ist& nbsp;jetzt verständlich 
geworden. 
 
Das ist der Anfang der pr ocedure die angestoßen werden  soll. 
 
procedure TRingStorageThr.DoAddVideo; 
var 
  Action : Integer; 
begin 
  if AddList.Count > 0  then while AddList.count >  0 do begin 
    Action :=   StrToInt(AddList.Strings[0][1]); 
    case Action of
      FILE_ACTION_AD DED: begin 
      end; 
      FILE_ACTION_RE MOVED: begin 
      end; 
      FILE_ACTION_MO DIFIED: begin 
      end; 
      FILE_ACTION_RE NAMED_OLD_NAME: begin 
      end; 
      FILE_ACTION_RE NAMED_NEW_NAME: begin 
      end; 
    end; 
  end; 
end; 
 
Danke schon mal 
 
Viele Grüße 
Harald Binder 
</font&gt

**Hagen Reddmann** · 06.08.2003, 11:46

Also dann musst du mit zwei Threads arbeiten, wobei einer dein Überwachungsthread ist und der andere zB. der Mainthread der Applikation.

Im Überwachungsthread wartest du auf die Events und füllst eine neue Liste, danach wird mit PostMessage() der Mainthread informiert. Die Event-Liste sollte als Object in einer Liste hinzugefügt werden, per Locking, die dann der Mainthread nach Empfang der PostMessage() ausließt. 

Aber! wie kommst du darauf das dir Events verloren gehen ?? Das OS buffert die ja auch zwischen.

Gruß Hage

**Harald Binder** · 06.08.2003, 13:05

Hi Hagen, 
dann wird mir ja wohl nic ht anderes übrigbleiben als&nb sp;einen 
zusätzlichen Thread damit zu&n bsp;beauftragen.  
 
Meinst Du die Events vom  PostMessage?? Die meine ich ni cht.  
Ich meine das die Änderun g eines Ordners(Event) nicht i mmer 
ankommen. Ich kann das nur&nbs p;sehr schwer nachvollziehen weil
ich in dem Ordnersystem im&nbs p;Moment mit fast 100000 Video s 
arbeite. Und das sind noch&nbs p;sehr wenig. Eine ScanRoutine&nbsp ;mit  
FindFirst/FindNext dauert immer ewig lan ge. Besonders dann 
wenn das System neu gestartet& nbsp;wurde. Außerdem habe ich   
festgestellt das manchmal hinter&nb sp;dem Filenamen Datenmüll ste ht,  
obwohl ich wie folgt auslese. 
 
FileName := Trim(WideCharLenToString(@(F ileOpNotification^.FileName), 
        &n bsp;       &nbs p;                 &n bsp;   FileOpNotification^.FileName Length)); 
 
Das bedeutet das FileNameLength&nbs p;nicht immer stimmt. Oder ich  habe ein  
Zeigerproblem. Durch den Datenm&uum l;ll dahinter wird der File&nb sp;nicht als  
Multieye-Video erkannt.  
 
Schönen Dank für deine&nb sp;wie immer gute Hilfe. 
 
Viele Grüße 
Harald Binder 
</font&gt

**Hagen Reddmann** · 06.08.2003, 17:21

Ich das FileNotify Event. Sobald ein solches in einem WatchThread reinkommt, wird es als Liste erzeugt und per Locking in eine globale Liste angefügt. Nach dem Anfügen wird per PostMessage eine Message zB. an MainForm abgesetzt das sich an der Liste was geändert hat. Natürlich kannst auch mit MakeObjectInstance() eine eigene Fensterprocedure für den Thread registrieren. Dies läuft dann im MainThread wird aber zusammen mit dem Thread erzeugt und zerstört.

Etwa so:
<pre>
type
TWatchThread = class(TThread)
private
FWnd: hWnd;
FList: TList;
FThreadList: TList;
FLock: TRTLCriticalSection;
FOnChange: TNotifyEvent;
procedure WndProc(var Msg: TMessage);
protected
procedure Execute; override;
public
procedure Lock;
procedure Unlock;
contructor Create;
destructor Destroy; override;
published
property List: TList read FList;
property OnChange: TNotifyEvent read FOnChange write FOnChange;
end; 

procedure TWatchThread.WndProc(var Msg: TMessage);
begin
if Msg.Msg = wm_User then
try
Lock;
FList.AddObjects(FThreadList);
FThreadList.Clear;
finally
Unlock;
if Assigned(FOnChange) then
FOnChange(Self);
end else
with Msg do
Result := CalldefWndProc(FWnd, Msg, wParam, lParam);
end; 

procedure TWatchThread.Execute;
begin
try
while not Terminated do
if WaitForMultipleObjects() = WAIT_OBJECT_0 then
try
Lock;
... Get Notify's
FThreadList.Add();
finally
Unlock;
PostMessage(FWnd, wm_User, 0, 0);
end else Terminate;
except
end;
end; 

procedure TWatchThread.Lock;
begin
EnterCtricialSection(FLock);
end; 

procedure TWatchThread.Unlock;
begin
LeaveCtricialSection(FLock);
end; 

contructor TWatchThread.Create;
begin
inherted Create(True);
InitializeCriticialSection(FLock);
FList := TList.Create;
FThreadList := TList.Create;
FWnd := MakeObjectInstance(WndProc);
Resume;
end; 

destructor TWatchThread.Destroy;
begin
inherited Destroy;
DestroyWnd(FWnd);
FreeObjectInstance(WndProc);
FList.Free;
FThreadList.Free;
DeleteCriticalSection(FLock);
end; 

</pre>

Gruß Hage

**Harald Binder** · 07.08.2003, 10:03

Hallo Hagen, 
Danke für Deine Hilfe. 
 
Aber ich habe Probleme die&nbs p;eigene Fensterprocedure für  den Thread zu registrieren. 
 
FWnd := MakeObjectInstance(WndProc);&nbs p;>> Fehler Inkompatible Type n: HWND und Pointer 
 
DestroyWnd(FWnd); >> Fehler U ndefinierter Bezeichner DestroyWnd  (Unit Controls ist eingebunden) 
 
FreeObjectInstance(WndProc); >> Ni cht genügend wirkliche Paramet er 
 
Würdest Du mir ein Beispi el erstellen welches funktioniert.& nbsp;Ich meine nur das erzeuge n der 
eigene Fensterprocedure. Ich verste hen den ganzen Kram nämli ch nicht. 
 
Das währe sehr nett von&n bsp;Dir. 
 
Viele Grüße 
Harald Binder 
</font&gt

**Hagen Reddmann** · 07.08.2003, 11:01

Scheiße ich habe da was durcheinander gebracht.
Es muß FWnd := AllocateHWnd(WndProc); und DeallocateHWnd(FWnd); heissen.

<pre>
contructor TWatchThread.Create;
begin
inherted Create(True);
InitializeCriticialSection(FLock);
FList := TList.Create;
FThreadList := TList.Create;
FWnd := AllocateHWnd(WndProc);
Resume;
end; 

destructor TWatchThread.Destroy;
begin
inherited Destroy;
DeallocateHWnd(FWnd);
FList.Free;
FThreadList.Free;
DeleteCriticalSection(FLock);
end;

</pre>

Aus DestroyWnd() wird richtigerweise DestroyWindow(). An Hand meines obigen Beispiels sieht man sehr schön das ich im Grunde ein Trial&Error Coder bin. Nicht jede Funktion ist mir exakt geläufig, sondern nur die Information das da irgendwas existiert mit so einem ähnlichem Namen. Tja, das ist halt das Problem wenn man frei aus dem Gedächtnis codet ohne zu testen. Allerdings, Harald, es lauffähig zu bekommen ist ja deine Aufgabe

Gruß Hage

**Hagen Reddmann** · 07.08.2003, 11:04

Und noch eines drauf:

<pre>
procedure TWatchThread.WndProc(var Msg: TMessage);
begin
if Msg.Msg = wm_User then
try
Lock;
FList.AddObjects(FThreadList);
FThreadList.Clear;
finally
Unlock;
if Assigned(FOnChange) then
FOnChange(Self);
end else
with Msg do
Result := DefWindowProc(FWnd, Msg, wParam, lParam);
end;
</pre>

Also DefWindowProc() statt CallDefWndProc().

Gruß Hage

**Hagen Reddmann** · 07.08.2003, 11:08

So, AllocateHWnd(WndMethod) erzeugt ein Window Fenster mit der Klasse "TPUtilWindow" und ordnet WndMethod als Fensterfunktion zu. Zb. TTimer/Thread-Synchronize (bis D5) usw. funktionieren auf diesem Wege. DeallocateHWnd() zerstört das Fensterhandle und gibt den Stub für WndMethod frei. Dieser Stub wird mit MakeObjectInstance(WndMethod) erzeugt udn mit FreeObjectInstance() wieder freigegeben. Einfach mal in Forms.pas (D5) und ExtCtrls.pas reinschauen.

Gruß Hage

Announcement

Aus der Execute eines Threads eine Botschaft verschicken ohne auf die Rückkehr zu warten

Aus der Execute eines Threads eine Botschaft verschicken ohne auf die Rückkehr zu warten

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment