引言: 我使用了线程压缩文件，FORM像死掉了一样！ 本来以为可以用多线程来压缩文件同时，FORM还可以用来操作其它功能； 但是我使用了线程，FROM的界面也照样象撕掉一样！ 请各位帮我调试一下，谢谢！ 程式参见： http://delphi.ktop.com.tw/topic.php?TOPIC_ID=34573

MaxBufSize:=32768 ;
count:=inStream.Size ;      if Count > MaxBufSize then 
    BufSize := MaxBufSize 
  else 
    BufSize :=   Count;
  GetMem(Buffer, BufSize);
  try
    while Count <> 0 do
    begin
      if Count > BufSize then N := BufSize else N := Count;
      Source.ReadBuffer(Buffer^, N);
      WriteBuffer(Buffer^, N);
      Dec(Count, N);

      application.processmessages ;        end;
  finally
    FreeMem(Buffer, BufSize);
  end;
 

引言: aquarius : 感谢您提供的方法， 不过我在压缩〉20MB的文件的时候，还是不能够让FORM有反应！并且，我希望在压缩的过程中使线程发挥作用！ 希望给于指教！

引言: procedure Tthreadstream.compress_stream(var instream,outStream: TMemoryStream;standard:compress_stream_standard=0); var ys: TCompressionStream; MaxBufSize,count,BufSize,n:integer; Buffer:pointer; begin inStream.Position := 0; case standard of 1: ys := TCompressionStream.Create(clnone,OutStream); 2: ys := TCompressionStream.Create(clFastest,OutStream); 3: ys := TCompressionStream.Create(cldefault,OutStream); 4: ys := TCompressionStream.Create(clmax,OutStream); else ys := TCompressionStream.Create(clFastest,OutStream); end; MaxBufSize:=32768 ; count:=inStream.Size ; if Count > MaxBufSize then BufSize := MaxBufSize else BufSize := Count; GetMem(Buffer, BufSize); try while Count <> 0 do begin if Count > BufSize then N := BufSize else N := Count; inStream.ReadBuffer(Buffer^, N); ys.WriteBuffer(Buffer^, N); Dec(Count, N); application.processmessages ; end; finally FreeMem(Buffer, BufSize); end; end; 这是根据您的方法，改过的！！！！ 还是出现上述问题，请您讲我上传的程式修改一下； 使其具有真正的线程压缩功能，并且FORM不能死掉！！！ 谢谢！

再看了一下, 我知道你的問題在那兒了!! 你都是用 MemoryStream , 又去存取超過 20MB 的檔案. 這表示什麼, 這表示你記憶體用太多啦!! 不只是 FORM 不會動, 你整個系統應該都被拖住, 虛擬記憶體 SWAP 得太兇, 應該是硬碟狂轉, Windows 系統都沒反應. 把 MemoryStream 改成 FileStream 應該就沒問題了. ...

引言: aquarius 兄： 不知道您是否试验过----还是不行的，我想让它具有多线程压缩的功能；像WINRAR,WINZIP之类的功能，我想它门在压缩大文件的时候，并没有将系统或FORM死掉吗！！！

唉呀! 本來想偷個懶, 用看的就把問題看出來.... 嗯, 這兩天找個空檔寫個範例放到發表區去好了..... 不過不要期望太大..... 也可能偷懶沒寫出來.....呵呵... ...