String von Thread an Programm senden - Stilfrage!

**sirius**

Nö, das geht so nicht.
Du musst schon das schreiben Synchronisieren und nicht nur den Zeiger auf den String kopieren.
Du kannst:

1. Anstatt WM_CopyData auch jede andere Message nehmen und synchronisiert (sendmessage) nen pointer auf die Adresse senden. Wobei das mit dem pointer nicht notwendig ist (Message alleine reicht), da in dem Moment auch der MainThread auf alle public Felder und Properties des TThreads zugreifen kann. Dein Thread wird ja aufgrund des sendmessage angehalten.

2. Du rufst mittels synchronize eine Methode des MainThreads auf und kannst von da auf die gesamte Klasse TThread zugreifen.

3. Eine Schöne Idee ist auch für solche "globalen" AustauschVariablen eine Klasse zu schaffen:

zusammenfalten · markieren

Delphi-Quellcode:

			uses sysutils, classes;

type TContainer=class(TMultiReadExclusiveWriteSynchronizer) //oder =class(TSimpleRWSync)

       private

         FmyVariable:string;

         FOnChange:TNotifyEvent; //Vielleicht hier auch eine Liste

         function getmyVariable:string;

         procedure setmyVariable(value:string);

         function getOnChange:TNotifyEvent;

         procedure setOnChange(value:TNotifyEvent);

         procedure DoOnChange;

       public

         property myVariable:string read getmyVariable write setmyVariable;

         property OnChange:TNotifyEvent read getOnChange write setonchange;

     end;

implementation

function Tcontainer.getmyVariable:string;

begin

  beginread;

  result:=FmyVariable;

  endread;

end;

procedure TContainer.setmyVariable(value:string);

begin

  beginwrite;

  FmyVariable:=value;

  endwrite;

  DoOnChange;

end;

function Tcontainer.getOnChange:TNotifyEvent;

begin

  beginread;

  result:=FOnChange;

  endread;

end;

procedure Tcontainer.setOnChange(Value:TNotifyEvent);

begin

  beginwrite;

  FOnChange:=Value;

  endwrite;

end;

procedure Tcontainer.DoOnChange;

var tempOnChange:TNotifyEvent;

begin

  tempOnChange:=OnChange;

  if assigned(tempOnChange) then TempOnChange(self);

end;

Das Konzept habe ich selber noch nie angewandt, aber es wäre auch eine Möglichkeit. Mit Messages muss man ja auch mächtig aufpassen, dass man keine Threads gegenseitig locked. Das Problem hast du damit nicht. Intern wird hier mit Events gearbeitet.
Alternativ kannst du dieselbe Klasse auch von "TSimpleRWSync" ableiten. SimpleRWSync ist, wenn du paralleles Lesen von Threads eher selten hast. Dadurch wird die ganze Klasse etwas schneller. SimpleRWSync kapselt CriticalSections.

String von Thread an Programm senden - Stilfrage!

Re: String von Thread an Programm senden - Stilfrage!

Forumregeln