我有一支程式,  VCL main thread  -> create client thread -> create log object 中間會將 memo1.lines 當 TStrings 傳到 client thread, 再由 client thread 傳給log object 但很奇怪的是 log object 會寫log 到memo1 和 file (用傳統的assignfile 和wirteln), 跑一跑, 我client thread 又未結束, 就會出現access violation. 出現時間不定, 有時跑很久才會出現, 一出現就整支down 掉了. 看一下writeln 寫的log 和畫面上的不一致, 它只有write 大半到file 中. infop,asciip 都已getmem 64 K 了, BufRev 也確定有getmem 但就是會出現ACCESS violation. 每次查log file 都是寫了大半.    procedure TLogger.dump(BufRev:pchar;receivelength:integer); var   infoi:integer;   asciii:integer; begin   i:=-1;   infoi:=-1;   asciii:=-1;   inc(i);   inc(infoi);   inc(asciii);   info:='';   sTotal:='';   try   while i#31) and ((BufRev i)^<#127) then begin (asciip asciii)^:=' '; inc(asciii); (asciip asciii)^:=(BufRev i)^; inc(asciii); end else begin (asciip asciii)^:=' '; inc(asciii); (asciip asciii)^:='.'; inc(asciii); end; inc(i) end;// end while i

VCL is not thread safe, you need to use Synchorize in your client thread in order to update the GUI. http://pywong.hk.st http://www.lazybones.ca

千萬不可在child thread中直接去異動main thread的VCL元件內容, 可以在child thread中透過Synchronize交由main thread來代替執行。 即使你是將memo.lines當成TStringList傳入child thread, 但child thread異動了這個TStringList卻也觸發memo的事件, 這時會產生訊息 交由main thread來執行, 因此很有可能產生了main/child thread 同時在存取memo.lines的內容, 故會出問題。

引言: 千萬不可在child thread中直接去異動main thread的VCL元件內容, 可以在child thread中透過Synchronize交由main thread來代替執行。 即使你是將memo.lines當成TStringList傳入child thread, 但child thread異動了這個TStringList卻也觸發memo的事件, 這時會產生訊息 交由main thread來執行, 因此很有可能產生了main/child thread 同時在存取memo.lines的內容, 故會出問題。

不會有你們講的問題 因為我只起一個thread, 而mainthread 也沒有access tmemo 的動作 除非client thread 停下來,中間沒有鬼打架的情形. 再說, 我寫在client thread 中的dump procedure 除了不寫檔以外. 功能和log object 的完全一樣, 就跑很久都沒事. 而且, 如果是Synchronize 的問題, 我根本不可能知道, 畫面上的和 寫入檔案的有不一致的情形;

Visual components MUST be accessed by the MAIN thread only. http://pywong.hk.st http://www.lazybones.ca