Threadsafe Ausgabe in TRichedit

[bernhard_LA]

wenn ich mit folgender Funktion

Delphi-Quellcode:

procedure AddFormatedLine(ARichEdit: TRichEdit; AText: string; AColor: TColor;
  BoldFlag: Boolean; UnderlineFlag: Boolean);
begin
  with ARichEdit do
  begin
    SelStart := Length(Text);
    SelAttributes.Color := AColor;
    SelAttributes.Size := 8;
    SelAttributes.Name := 'MS Sans Serif';
    if UnderlineFlag then
      SelAttributes.Style := SelAttributes.Style + [fsunderline]
    else
      SelAttributes.Style := SelAttributes.Style - [fsunderline];
    if BoldFlag then
      SelAttributes.Style := SelAttributes.Style + [fsbold]
    else
      SelAttributes.Style := SelAttributes.Style - [fsbold];

    Lines.Add(AText);
  end;
end;



procedure TErrorListViewForm.AddFormatedStringTomemo(  NewLine: String);
var   AColor: TColor;
  BoldFlag: Boolean;
  UnderlineFlag: Boolean;
  AcolorStr : String;

begin
      if (Pos('B+', NewLine) > 0) then
      begin
        BoldFlag := true;
        delete(NewLine, Pos('B+', NewLine), 2);
      end;
      if (Pos('B-', NewLine) > 0) then
      begin
        BoldFlag := false;
        delete(NewLine, Pos('B-', NewLine), 2);
      end;

      if (Pos('U+', NewLine) > 0) then
      begin
        UnderlineFlag := true;
        delete(NewLine, Pos('U+', NewLine), 2);
      end;
      if (Pos('U-', NewLine) > 0) then
      begin
        UnderlineFlag := false;
        delete(NewLine, Pos('U-', NewLine), 2);
      end;


      if (Pos('cl', NewLine) > 0) then
      begin
        AcolorStr  := Copy(NewLine, Pos('cl', NewLine)+2, 1);

        if  (AcolorStr='B') then AColor :=clBlack;
        if  (AcolorStr='R') then AColor :=clRed;
        if  (AcolorStr='G') then AColor :=clGreen;
        if  (AcolorStr='Y') then AColor :=clYellow;
        if  (AcolorStr='M') then AColor :=clBlue;

        delete(NewLine, Pos('U+', NewLine), 3);
      end;



      AddFormatedLine(PErrorMemo, NewLine, AColor, BoldFlag,
        UnderlineFlag);


end;

aus einem Thread heraus in mein Richedit schreiben will kommt es zu einem OutOfResource Error.

a) vermutlich weil VCL nicht Threadsafe und deshalb knallt es hier .....
b) kann ich mein Richedit gegen MultiTread Zugriff absichern ?

[Bummi]

wie immer mit synchronize ? oder meinst Du etwas anderes...

[bernhard_LA]

In meinem HauptFormular gibt es eine Klasse GlobalStringList : TMyStringList, immer wenn ich einen String in die Liste einfüge erfolgt automatisch die Ausgabe in mein Richedit durch die Funkltion WriteStrIntoRichedit
Wenn ich im Haputformular DoThreads (...) ausführe werden meine Threads gestarted, Informationen aus dem Thread heraus schreibe ich dann in die GlobalStringList, welche sofort die Ausgabe in die VCL durchführt.
Beim Schreiben in die VCL kommt es zur AV weil, vermutlich hier versucht wird parallel zuschreiben.


Benötige ich eine Threadsafe StringList wie
http://http://www.swissdelphicenter.ch/de/showcode.php?id=2167

oder ....

Delphi-Quellcode:

Type TMainForm = Class (TForm) 

    GlobalStringList : TMyStringList;
    MyThreads :    TMyThreadClass;

    proedure DoThreads (...);
end;


type  TMyStringList = Class (StringList)

     procedure WriteStrIntoRichedit (aStr);

     end;

[Bummi]

Ich fürchte eine Threadsave Sringlist wird nicht helfen, da Du ja dann trotzdem im Nicht-VCL-Kontext auf das Richedit zugreifst.

[bernhard_LA]

Wenn ich in meiner StringList die add funktion überschreibe und hier die StringListe sperre (lockList) GlobalStringList.OnStringAdded := AddStr2List;, dh. der VCL Zugriff erfolgt noch im OnstringsAdd Event der StringListe, ist dies ein Denkbarer Weg um nur mit einem Thread in die VCL (Richedit) zu schreiben ? Nur funtioniert mein Code weiter unten leider nicht

Delphi-Quellcode:

procedure TForm.AddStr2List(.....);
var  FLock: TRTLCriticalSection;

begin


    InitializeCriticalSection(FLock);

    EnterCriticalSection(FLock);

    StringListViewForm.ErrorStrList := GlobalErrorList;

    StringListViewForm.ErrorStringList2memo;

    LeaveCriticalSection(FLock);

    DeleteCriticalSection(FLock);


  end
  else
    //
    DisplayStatusStr(' Message : ' + aStr);

end;

[Bummi]

Dann bist Du immer noch im Threadkontext und hast keine Sicherheit dass nicht irgendetwas aus dem Haupthread mit dem Richedit kommuniziert.

[Sir Rufo]

Und das ist ja wohl grober Unfug

Delphi-Quellcode:

InitializeCriticalSection(FLock);
EnterCriticalSection(FLock);
// do something   
LeaveCriticalSection(FLock);
DeleteCriticalSection(FLock);

Du erzeugst dir bei jedem Aufruf eine CriticalSection und überschreibst dabei auch noch den Wert, der in einem anderen ThreadContext evtl. gerade benutzt wird. :wall: