multithreading - IdHTTP.Post 在后台工作时为 TAnimate 设置动画？

Question

使用 Delphi XE2，如何在 TIdHTTP 对象在后台工作时播放/更新 TAnimate 动画？例如，我IdHTTP1.Post在远程服务器上等待这个 PHP“应用程序”完成：

<?php
echo date('h:i:s') . "\n";
sleep(5);
echo date('h:i:s') . "\n";
?>

在这 5 秒内，即使是线程计时器 (TJvThreadTimer) 也不会触发！我还尝试IdHTTP1.Post使用带有 CreateTask 的 OmniThreadLibrary 将其放入单独的线程中。即使在这种情况下，线程计时器也不会触发，TAnimate 动画也不会更新。那么在后台工作时
我可以做些什么来为动画制作动画？IdHTTP1.Post

Answer 1

似乎只需在表单上放置一个 TIdAntiFreeze 组件（并将其 IdleTimeOut 属性设置为 10 而不是默认的 250），就可以轻松解决该问题。不需要线程，当 IdHTTP.Post 在后台运行 5 秒时，动画就可以正常播放！非常好！