Delphi（Indy）服务器在写入时冻结

Question

我目前在客户端 (IdTCPClient) 和服务器 (IdTCPServer) 之间有稳定的代码，一切都按计划工作。但是，当我从按钮的 OnClick 事件调用以下函数时，服务器会冻结。

var
  SendStream: TMemoryStream;
  FileStream: TFileStream;
  List: TList;
  I: Integer;
begin
  try
    //Load
    FileStream := TFileStream.Create(Path, fmOpenRead);
    FileStream.Position := 0;
    //Place into stream
    SendStream := TMemoryStream.Create;
    SendStream.Write(Header, SizeOf(Header)); //This works; supporting code ommitted  for brevity
    SendStream.CopyFrom(FileStream, FileStream.Size);
    SendStream.Position := 0;

    TIdContext(fTCP.Contexts.LockList[0]).Connection.IOHandler.Write(SendStream, 0, True);
    fTCp.Contexts.LockList;
   if Assigned(Self.fServerOnSync) then Self.fServerOnSync(SizeOf(Header)) //event handler for main form

  finally
    FileStream.Free;
    SendStream.Free;
  end;

我猜它与死锁线程有关，但对于我来说，我不知道为什么会发生这种情况。

另外，如果我将上面的代码封装在某个包含 IdTCP 服务器的类中，它将调用我的自定义 fServerOnSync 事件，这是线程安全的吗？

干杯， 阿德里安

Answer 1

你调用了两次fTCp.Contexts.LockList()，但你根本没有调用fTCp.Contexts.UnlockList()，所以当服务器试图访问Contexts列表时，它就会陷入死锁。列表锁定后需要解锁，例如：

var 
  SendStream: TMemoryStream; 
  FileStream: TFileStream; 
  List: TList; 
  I: Integer; 
begin 
  FileStream := TFileStream.Create(Path, fmOpenRead or fmShareDenyWrite); 
  try 
    SendStream := TMemoryStream.Create; 
    try
      SendStream.Write(Header, SizeOf(Header));
      SendStream.CopyFrom(FileStream, FileStream.Size); 
      SendStream.Position := 0; 

      List := fTCP.Contexts.LockList; 
      try
        TIdContext(List[0]).Connection.IOHandler.Write(SendStream, 0, True); 
      finally
        fTCP.Contexts.UnlockList; 
      end;
      if Assigned(fServerOnSync) then fServerOnSync(SizeOf(Header)); 
    finally 
      SendStream.Free; 
    end; 
  finally
    FileStream.Free; 
  end;
  ...
end;