[jira] [Closed] (THRIFT-4468) Make the class TGUIConsole thread-safe

["James E. King III (JIRA)" <ji...@apache.org>]

     [ https://issues.apache.org/jira/browse/THRIFT-4468?page=com.atlassian.jira.plugin.system.issuetabpanels:all-tabpanel ]

James E. King III closed THRIFT-4468.
-------------------------------------

> Make the class TGUIConsole thread-safe
> --------------------------------------
>
>                 Key: THRIFT-4468
>                 URL: https://issues.apache.org/jira/browse/THRIFT-4468
>             Project: Thrift
>          Issue Type: Sub-task
>          Components: Delphi - Library
>    Affects Versions: 0.11.0
>            Reporter: Anton Shchyrov
>            Assignee: Jens Geyer
>            Priority: Major
>             Fix For: 0.12.0
>
>
> In Delphi all methods that refer to VCL should do it only from main thread. But class TGUIConsole despite the name does not contain any synchronization methods.
> My suggestion is to rename this class to TStringsConsole, make method InternalWrite virtual and make new class TGUIConsole inherits from TStringsConsole
>  
> {code:java}
> TGUIConsole = class( TStringsConsole )
> protected
>    procedure InternalWrite(const S: string; bWriteLine: Boolean); override;
> end;
> { TGUIConsole }
> procedure TGUIConsole.InternalWrite(const S: string; bWriteLine: Boolean);
>  begin
>    if TThread.CurrentThread.ThreadID <> MainThreadID then begin
>      TThread.Synchronize(nil, procedure
>        begin
>          inherited InternalWrite(S, bWriteLine);
>        end
>      );
>    end else
>      inherited InternalWrite(S, bWriteLine);
>  end;
> {code}
>  



--
This message was sent by Atlassian JIRA
(v7.6.3#76005)