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:
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.