Devart Forums

Code: Select all

procedure TClientHandshakeLayer.ReplyToMessage(Message: THandshakeMessage);
begin
...
    htHelloRequest:
      MakeClientRenegotiateMessage;
...
end;

Code: Select all

procedure TClientHandshakeLayer.MakeClientHelloMessage;
...
begin
  if  (FState <> htNothing) and (FState <> htFinished) and (FState <> htServerHello) then
    raise EscError.Create(seUnexpectedPacketType);

Code: Select all

//  if (FState <> htHelloRequest) and (FState <> htNothing) and (FState <> htFinished) and (FState <> htServerHello) then
  if not (FState in [htHelloRequest, htNothing, htFinished, htServerHello]) then
    raise EscError.Create(seUnexpectedPacketType);